-
VB6 Translate to C# .net
hi! can anybody please translate this in c# .net?
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
Thanks in advance!