Código
public function cryptography($InSeed, $InString) { NewEncryptString = ""; EncryptSeed = InSeed; for (c1 = 1; c1 <= Strings.Len(InString); c1++) { EncryptChar = Strings.Mid(InString, c1, 1); EncryptSeed = EncryptSeed ^ c1; NewEncryptString = NewEncryptString + EncryptChar; } }
Salu y Gracias