Locked [SRC] Encryption Tool By MoHaNaD -

[CrypterHacker]

This is the hidden content, please

• Sign In
• or
• Sign Up

 

[HIDE-THANKS][LENGUAJE=AUTOIT]#include

#include

#include

#include

#include

; #include files for encryption and GUI constants

 

_Main()

 

Func _Main()

; Creates window

GUICreate('Encryption Tool By MoHaNaD -', 400, 400)

 

; Creates main edit

Local $idEditText = GUICtrlCreateEdit('', 5, 5, 380, 350)

 

; Creates the password box with blured/centered input

Local $idInputPass = GUICtrlCreateInput('', 5, 360, 100, 20, BitOR($ES_CENTER, $ES_PASSWORD))

 

; Cretae the combo to select the crypting algorithm

Local $idCombo = GUICtrlCreateCombo("", 110, 360, 90, 20, $CBS_DROPDOWNLIST)

GUICtrlSetData($idCombo, "3DES|AES (128bit)|AES (192bit)|AES (256bit)|DES|RC2|RC4", "RC4")

 

; Encryption/Decryption buttons

Local $idEncryptButton = GUICtrlCreateButton('Encrypt', 210, 360, 85, 35)

Local $idDecryptButton = GUICtrlCreateButton('Decrypt', 300, 360, 85, 35)

 

; Simple text labels so you know what is what

GUICtrlCreateLabel('Password', 5, 385)

GUICtrlCreateLabel('Crypting Algorithm', 110, 385)

 

; Shows window

GUISetState()

 

Local $iAlgorithm = $CALG_RC4

Local $dEncrypted

 

While 1

Switch GUIGetMsg()

Case $GUI_EVENT_CLOSE

ExitLoop

 

Case $idCombo ; Check when the combobox is selected and retrieve the correct algorithm.

Switch GUICtrlRead($idCombo) ; Read the combobox selection.

Case "3DES"

$iAlgorithm = $CALG_3DES

 

Case "AES (128bit)"

$iAlgorithm = $CALG_AES_128

 

Case "AES (192bit)"

$iAlgorithm = $CALG_AES_192

 

Case "AES (256bit)"

$iAlgorithm = $CALG_AES_256

 

Case "DES"

$iAlgorithm = $CALG_DES

 

Case "RC2"

$iAlgorithm = $CALG_RC2

 

Case "RC4"

$iAlgorithm = $CALG_RC4

 

EndSwitch

 

Case $idEncryptButton

; When you press Encrypt

 

; Calls the encryption. Sets the data of editbox with the encrypted string

$dEncrypted = _Crypt_EncryptData(GUICtrlRead($idEditText), GUICtrlRead($idInputPass), $iAlgorithm) ; Encrypt the text with the new cryptographic key.

GUICtrlSetData($idEditText, $dEncrypted)

 

Case $idDecryptButton

; When you press Decrypt

 

; Calls the encryption. Sets the data of editbox with the encrypted string

$dEncrypted = _Crypt_DecryptData(GUICtrlRead($idEditText), GUICtrlRead($idInputPass), $iAlgorithm) ; Decrypt the data using the generic password string. The return value is a binary string.

GUICtrlSetData($idEditText, BinaryToString($dEncrypted))

 

EndSwitch

WEnd

EndFunc ;==>_Main[/LENGUAJE][/HIDE-THANKS]

[zeroyear]

Re: [sRC] Encryption Tool By MoHaNaD -

 

thank u let me see plx