Enkripsi RC4

Enkripsi RC4 adalah teknik pengacakan data yang ditemukan oleh Ron Rivest tahun 1987, RC4 ini digunakan untuk RSA data Security. RC4 ini merupakan enkripsi standart yang juga digunakan pada protocol-protocol jaringan, termasuk WEP dan WPA untuk card wireless dan TLS

-----------------------------------------------------------------------------------------------

Option Explicit
Dim ByteArray() As Byte
Public Function RC4(ByVal Expression As String, ByVal Password As String) As String On Error Resume Next Dim RB(0 To 255) As Integer Dim X As Long, Y As Long, Z As Long Dim Key() As Byte Dim Temp As Byte If Len(Password) = 0 Then Exit Function End If If Len(Expression) = 0 Then Exit Function End If If Len (Password) > 256 Then Key() = StrConv(Password, vbFromUnicode) End If For X = 0 To 255 RB(X) = X Next X X = 0 Y = 0 Z = 0 For X = 0 To 255 Y = (Y+RB(X) + Key(XMod Len(Password))) Mod 256 Temp = RB (X) RB(X) = RB(Y) RB(Y) = Temp Next X X = 0 Y = 0 Z = 0 ByteArray() = StrConv(Expression, vbFromUnicode) For X = 0 To Len(Expression) Y = (Y + 1) Mod 256 Z = (Z + RB(Y)) Mod 256 Temp = RB(Y) RB(Y) = RB(Z) RB(Z) = Temp ByteArray(X) + ByteArray(X) Xor (RB((RB(Y) + RB(Z)) Mod 256)) Next X RC4 = StrConv(ByteArray, vbUnicode) End Fonction

-------------------------------------------------------------

command1_click-nya adalah sbb:
Private Sub Command1_click () Dim i As Long Text2.Text = RC 4(Text1.Text, txtKey.Text) ‘your message. For i = 0 To Len(Text1.Text) – 1 Text3.Text = Text.Text & Str(ByteArray(i)) Next i End Sub

-------------------------------------------------------------------------------------


Selesai…
Semoga Bermanfaat……….

Thanks for reading & sharing Obay Corps