Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- '------------------
- 'Creator: aeonhack
- 'Site: elitevs.net
- 'Created: 9/20/2012
- 'Changed: 9/20/2012
- 'Version: 1.0.0
- '------------------
- Public Function RXOR(data As Byte(), key As Byte()) As Byte()
- Dim N1 As Integer = 11
- Dim N2 As Integer = 13
- Dim NS As Integer = 257
- For I As Integer = 0 To key.Length - 1
- NS += NS Mod (key(I) + 1)
- Next
- Dim T(data.Length - 1) As Byte
- For I As Integer = 0 To data.Length - 1
- NS = key(I Mod key.Length) + NS
- N1 = (NS + 5) * (N1 And 255) + (N1 >> 8)
- N2 = (NS + 7) * (N2 And 255) + (N2 >> 8)
- NS = ((N1 << 8) + N2) And 255
- T(I) = data(I) Xor CByte(NS)
- Next
- Return T
- End Function
Add Comment
Please, Sign In to add comment