Encription Your String


Function EncDec(InData As variant, Optional inPW As variant=””) as variant

On Error Resume Next

Dim arrSBox(0 to 255) As Integer

Dim arrPW(0 to 255) As Integer

Dim Bi As Integer,Bj as Integer

Dim mKey As Integer

Dim i As Integer, j As Integer

Dim x As Integer, y as Integer

Dim mCode As Byte, mCodeSeries As Variant

EncDec=””

If Trim(inData)=””Then

Exit Function

End If

If inPW <> “” Then

j=1

For i=0 to 255

arrPW(i)=Asc(Mid$(inPW),j,1))

j=j+1

if j > Len(inPW) Then

j=1

End if

Next i

Else

For i = 0 to 255

arrPW(i)=0

Next i

End if

For i = 0 to 255

arrSBox(i)=i

Next i

j=0

For i=0 to 255

j=(arrSBox(i) + arrPW(i)) Mod 256

x=arrSBox(i)

arrSBox(i)=arrSBox(j)

arrSBox(j)=x

Next i

mCodeSeries=””

Bi=0;Bj=0

For i=1 to Len(InData)

Bi=(Bi+1)Mod 256

Bj=(Bj+arrSBox(Bi))Mod 256

‘change

x=arrSBox(Bi)

arrSBox(Bi=arrSBox(Bj)

arrSbox(Bj)=x

‘key for XOR

mKey=arrSBox(arrSBox(Bi)+arrSBox(Bj))Mod 256)

‘use operand XOR

mCode=Asc(Mid$(inData,i,1)) XOR mKey

mCodeSeries=mCodeSeries & Chr(mCode)

Next i

EncDec=mCodeSeries

End Function

If you want to buy something for christmast day don’t worry. Read More

2 responses to “Encription Your String

  1. Pingback: Trackback

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s