{
  StrCode = "fyvdvev.7ztyv5@fagdze7v-hzv99v.ta7"
  StrCodage = "aAbBcCdDeEfFgGhHiIjJkKlLmMnNoOpPqQrRsStTuUvVwWxXyYzZ1234567890"
  IntLong=StrCode.length
  StrLien=""
  for (i=0; i<StrCode.length; i++)
  {
    if (StrCodage.indexOf(StrCode.charAt(i))==-1)
    {
      StrLettre=StrCode.charAt(i)
      StrLien+=(StrLettre)
    }
    else
    {
      StrLettre = (StrCodage.indexOf(StrCode.charAt(i))-IntLong+StrCodage.length) % StrCodage.length
      StrLien+=(StrCodage.charAt(StrLettre))
    }
}