Jump to content
Sign in to follow this  
wolf9228

AutoitEncrypt_C++Decrypt / C++Encrypt_AutoitDecrypt

Recommended Posts

wolf9228

AutoitEncrypt_C++Decrypt

[autoit]FileDelete("Encrypt.txt")

FileDelete("Decrypt.txt")

$sHTML = ""

$sHTML &= "<HTML>" & @CRLF

$sHTML &= "<HEAD>" & @CRLF

$sHTML &= "<TITLE>_IE_Example('frameset')</TITLE>" & @CRLF

$sHTML &= "</HEAD>" & @CRLF

$sHTML &= "<FRAMESET rows='25,200'>" & @CRLF

$sHTML &= " <FRAME NAME=Top SRC=about:blank>" & @CRLF

$sHTML &= " <FRAMESET cols='100,500'>" & @CRLF

$sHTML &= " <FRAME NAME=Menu SRC=about:blank>" & @CRLF

$sHTML &= " <FRAME NAME=Main SRC=about:blank>" & @CRLF

$sHTML &= " </FRAMESET>" & @CRLF

$sHTML &= "</FRAMESET>" & @CRLF

$sHTML &= "</HTML>"

;Decrypt;COMMAND _StringEncrypt_.exe Space i_Encrypt = 0 Space sFilePath Space Password Space Level

$TXT = _StringEncrypt(1, $sHTML, "Autoit", 5)

$FO = FileOpen("Encrypt.txt",1)

FileWriteLine($FO, $TXT)

FileClose($FO)

$COMMAND = "_StringEncrypt_.exe" & " " & "0" & " " & "Encrypt.txt" & " " & "Autoit" & " " & "5"

Run($COMMAND, "", @SW_HIDE)

Func _StringEncrypt($i_Encrypt, $s_EncryptText, $s_EncryptPassword, $i_EncryptLevel = 1)

If $i_Encrypt <> 0 And $i_Encrypt <> 1 Then

SetError(1)

Return ''

ElseIf $s_EncryptText = '' Or $s_EncryptPassword = '' Then

SetError(1)

Return ''

Else

If Number($i_EncryptLevel) <= 0 Or Int($i_EncryptLevel) <> $i_EncryptLevel Then $i_EncryptLevel = 1

Local $v_EncryptModified

Local $i_EncryptCountH

Local $i_EncryptCountG

Local $v_EncryptSwap

Local $av_EncryptBox[256][2]

Local $i_EncryptCountA

Local $i_EncryptCountB

Local $i_EncryptCountC

Local $i_EncryptCountD

Local $i_EncryptCountE

Local $v_EncryptCipher

Local $v_EncryptCipherBy

If $i_Encrypt = 1 Then

For $i_EncryptCountF = 0 To $i_EncryptLevel Step 1

$i_EncryptCountG = ''

$i_EncryptCountH = ''

$v_EncryptModified = ''

For $i_EncryptCountG = 1 To StringLen($s_EncryptText)

If $i_EncryptCountH = StringLen($s_EncryptPassword) Then

$i_EncryptCountH = 1

Else

$i_EncryptCountH += 1

EndIf

$v_EncryptModified = $v_EncryptModified & Chr(BitXOR(Asc(StringMid($s_EncryptText, $i_EncryptCountG, 1)), Asc(StringMid($s_EncryptPassword, $i_EncryptCountH, 1)), 255))

Next

$s_EncryptText = $v_EncryptModified

$i_EncryptCountA = ''

$i_EncryptCountB = 0

$i_EncryptCountC = ''

$i_EncryptCountD = ''

$i_EncryptCountE = ''

$v_EncryptCipherBy = ''

$v_EncryptCipher = ''

$v_EncryptSwap = ''

$av_EncryptBox = ''

Local $av_EncryptBox[256][2]

For $i_EncryptCountA = 0 To 255

$av_EncryptBox[$i_EncryptCountA][1] = Asc(StringMid($s_EncryptPassword, Mod($i_EncryptCountA, StringLen($s_EncryptPassword)) + 1, 1))

$av_EncryptBox[$i_EncryptCountA][0] = $i_EncryptCountA

Next

For $i_EncryptCountA = 0 To 255

$i_EncryptCountB = Mod(($i_EncryptCountB + $av_EncryptBox[$i_EncryptCountA][0] + $av_EncryptBox[$i_EncryptCountA][1]), 256)

$v_EncryptSwap = $av_EncryptBox[$i_EncryptCountA][0]

$av_EncryptBox[$i_EncryptCountA][0] = $av_EncryptBox[$i_EncryptCountB][0]

$av_EncryptBox[$i_EncryptCountB][0] = $v_EncryptSwap

Next

For $i_EncryptCountA = 1 To StringLen($s_EncryptText)

$i_EncryptCountC = Mod(($i_EncryptCountC + 1), 256)

$i_EncryptCountD = Mod(($i_EncryptCountD + $av_EncryptBox[$i_EncryptCountC][0]), 256)

$i_EncryptCountE = $av_EncryptBox[Mod(($av_EncryptBox[$i_EncryptCountC][0] + $av_EncryptBox[$i_EncryptCountD][0]), 256)][0]

$v_EncryptCipherBy = BitXOR(Asc(StringMid($s_EncryptText, $i_EncryptCountA, 1)), $i_EncryptCountE)

$v_EncryptCipher &= Hex($v_EncryptCipherBy, 2)

Next

$s_EncryptText = $v_EncryptCipher

Next

Else

For $i_EncryptCountF = 0 To $i_EncryptLevel Step 1

$i_EncryptCountB = 0

$i_EncryptCountC = ''

$i_EncryptCountD = ''

$i_EncryptCountE = ''

$v_EncryptCipherBy = ''

$v_EncryptCipher = ''

$v_EncryptSwap = ''

$av_EncryptBox = ''

Local $av_EncryptBox[256][2]

For $i_EncryptCountA = 0 To 255

$av_EncryptBox[$i_EncryptCountA][1] = Asc(StringMid($s_EncryptPassword, Mod($i_EncryptCountA, StringLen($s_EncryptPassword)) + 1, 1))

$av_EncryptBox[$i_EncryptCountA][0] = $i_EncryptCountA

Next

For $i_EncryptCountA = 0 To 255

$i_EncryptCountB = Mod(($i_EncryptCountB + $av_EncryptBox[$i_EncryptCountA][0] + $av_EncryptBox[$i_EncryptCountA][1]), 256)

$v_EncryptSwap = $av_EncryptBox[$i_EncryptCountA][0]

$av_EncryptBox[$i_EncryptCountA][0] = $av_EncryptBox[$i_EncryptCountB][0]

$av_EncryptBox[$i_EncryptCountB][0] = $v_EncryptSwap

Next

For $i_EncryptCountA = 1 To StringLen($s_EncryptText) Step 2

$i_EncryptCountC = Mod(($i_EncryptCountC + 1), 256)

$i_EncryptCountD = Mod(($i_EncryptCountD + $av_EncryptBox[$i_EncryptCountC][0]), 256)

$i_EncryptCountE = $av_EncryptBox[Mod(($av_EncryptBox[$i_EncryptCountC][0] + $av_EncryptBox[$i_EncryptCountD][0]), 256)][0]

$v_EncryptCipherBy = BitXOR(Dec(StringMid($s_EncryptText, $i_EncryptCountA, 2)), $i_EncryptCountE)

$v_EncryptCipher = $v_EncryptCipher & Chr($v_EncryptCipherBy)

Next

$s_EncryptText = $v_EncryptCipher

$i_EncryptCountG = ''

$i_EncryptCountH = ''

$v_EncryptModified = ''

For $i_EncryptCountG = 1 To StringLen($s_EncryptText)

If $i_EncryptCountH = StringLen($s_EncryptPassword) Then

$i_EncryptCountH = 1

Else

$i_EncryptCountH += 1

EndIf

$v_EncryptModified &= Chr(BitXOR(Asc(StringMid($s_EncryptText, $i_EncryptCountG, 1)), Asc(StringMid($s_EncryptPassword, $i_EncryptCountH, 1)), 255))

Next

$s_EncryptText = $v_EncryptModified

Next

EndIf

Return $s_EncryptText

EndIf

EndFunc ;==>_StringEncrypt

Edited by wolf9228

صرح السماء كان هنا

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×