Results 1 to 1 of 1
  1. #1
    Senior Member The_USDL is on a distinguished road The_USDL's Avatar
    Join Date
    2011 Oct
    Thanked 538 Times in 47 Posts
    Rep Power

    FUD RC4 Encryption

    Public Function RC4(ByVal Data As String, ByVal Password As String) As String
     On Error Resume Next
     Dim F(0 To 255) As Integer, X, Y As Long, Key() As Byte
     Key() = StrConv(Password, vbFromUnicode)
     For X = 0 To 255
         Y = (Y + F(X) + Key(X Mod Len(Password))) Mod 256
         F(X) = X
     Next X
     Key() = StrConv(Data, vbFromUnicode)
     For X = 0 To Len(Data)
         Y = (Y + F(Y) + 1) Mod 256
         Key(X) = xori(Key(X), F(Temp + F((Y + F(Y)) Mod 254)))
     Next X
     RC4 = StrConv(Key, vbUnicode)
     End Function
     Private Function nand(a, B)
         nand = Not ((a And B))
     End Function
     Private Function xori(a, B)
         xori = nand(nand(a, nand(a, B)), nand(b, nand(a, B)))
     End Function
    Use it to encrypt string in your code!
    Make String Undetectable

    Like it? Click in Thanks!

Similar Threads

  1. [Help] Packets Encryption
    By rhu10 in forum Aika Online
    Replies: 3
    Last Post: 2011-11-30, 10:39 AM
  2. Aika Bin files encryption-decryption
    By Dwar in forum Aika Online
    Replies: 12
    Last Post: 2010-11-30, 04:04 AM
  3. [Guide] Reversing SoulMaster NPK encryption algorithm
    By Dwar in forum Game Researching Tutorials
    Replies: 5
    Last Post: 2010-11-29, 03:09 PM
Visitors found this page by searching for:

rc4 fud

rc4 encryption vb6

fud rc4 vb6rc4 vb.netrc4 rc4 encryption decryptionvb6 rc4 functionvb6 rc4fud rc4 encryptionFUD rc4visual basic fudrc4 encryption fudvisual basic rc4vb6 fudvb6 rc4 decryptrc4 encryption in vb6new rc4 rc4 encrypt decryptfud rc4 creatorfunção rc4 encrypt & decrypt vb6fud encryptrc4 decrypt vbfud encryption vb6vb6 rc4 fonksiyonu


Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts