mirror/XOREncryption
1
0
Fork 0
mirror of https://github.com/KyleBanks/XOREncryption.git synced 2023-08-10 21:13:15 +03:00
Code Issues Projects Releases Wiki Activity

Comments Improvements

Browse Source
This commit is contained in:
Ankit Apurv 2016-03-14 22:20:09 +05:30
parent 704660bee4
commit 22e8bd593b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
VB.NET/XORCrypto.vb
View File

@ -21,8 +21,8 @@
Dim output As Char() = New Char(input.Length - 1) {} Dim output As Char() = New Char(input.Length - 1) {}
For i As Integer = 0 To input.Length - 1 For i As Integer = 0 To input.Length - 1
output(i) = ChrW(AscW(input(i)) Xor AscW(key(i Mod key.Length))) output(i) = ChrW(AscW(input(i)) Xor AscW(key(i Mod key.Length)))
'CharW(CharCode As Integer) As Char : Returns the character associated with the specified character code 'ChrW(CharCode As Integer) As Char (Unicode) : Returns the character associated with the specified character code
'AscW([String] As Char) As Integer : Returns an integer value representing the character code corresponding to a character 'AscW([String] As Char) As Integer (Unicode) : Returns an integer value representing the character code corresponding to a character
Next Next
Return New String(output) Return New String(output)
End Function End Function