Results 1 to 1 of 1
  1. #1
    The_USDL is offline
    Senior Member 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, 12:39 PM
  2. Aika Bin files encryption-decryption
    By Dwar in forum Aika Online
    Replies: 12
    Last Post: 2010-11-30, 05:04 AM
  3. [Guide] Reversing SoulMaster NPK encryption algorithm
    By Dwar in forum Game Researching Tutorials
    Replies: 5
    Last Post: 2010-11-29, 04:09 PM
Visitors found this page by searching for:

rc4 fud

rc4 encryption vb6

rc4 vb.netfud rc4 rc4 encryption decryptionvb6 rc4 functionrc4 vb6vb6 rc4 encryptionfud encryptionFUD rc4visual basic fudvisual basic rc4vb6 rc4 decryptrc4 encryption in vb6rc4 encryption fudvb6 fudnew rc4 fudvb net rc4 fonksiyonuPublic Function RC4make rc4 encryption fudencrypt rc4 vb.netfud rc4 encrypt decryptrc4 decrypt vb

Posting Permissions

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