hi! can anybody please translate this in c# .net?
Thanks in advance!Code:Dim SK As Long, K As Long ' init randomizer for password Rnd -1 Randomize Len(password) ' (((K Mod 256) Xor Asc(Mid$(Password, K, 1))) Xor Fix(256 * Rnd)) -> makes sure that a ' password like "pass12" does NOT give the same result as the password "sspa12" or "12pass" ' or "1pass2" etc. (or any combination of the same letters) For K = 1 To Len(password) SK = SK + (((K Mod 256) Xor Asc(Mid$(password, K, 1))) Xor Fix(256 * Rnd)) Next K ' init randomizer for encryption/decryption Rnd -1 Randomize SK ' encrypt/decrypt every character using the randomizer For K = 1 To Len(str) Mid$(str, K, 1) = Chr(Fix(256 * Rnd) Xor Asc(Mid$(str, K, 1))) Next K RndCrypt = str


Reply With Quote