Browse Source

First OpenSource Release

master
M4-DEV 2 years ago
parent
commit
1fd9462d45
3 changed files with 465 additions and 2 deletions
  1. BIN
      MCrypter.ico
  2. +461
    -0
      MCrypter_.au3
  3. +4
    -2
      README.md

BIN
MCrypter.ico View File

Before After

+ 461
- 0
MCrypter_.au3 View File

@ -0,0 +1,461 @@
#cs
[CWAutCompFileInfo]
Company=M4rcellxD
Copyright=M4rcellxD
Description=Text/Data MCrypter_ By M4rcellxD
Version=2.7.0.0
ProductName=MCrypter_
ProductVersion=2.7.0.0
#ce
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=MCrypter.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=Text/Data MCrypter_ By M4rcellxD
#AutoIt3Wrapper_Res_Description=Text/Data MCrypter_ By M4rcellxD
#AutoIt3Wrapper_Res_Fileversion=2.7.0.0
#AutoIt3Wrapper_Res_LegalCopyright=M4rcellxD
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Run_Au3Stripper=y
#Au3Stripper_Parameters=/so /mo /mi 15
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <file.au3>
#include <Crypt.au3>
#include <Misc.au3>
#include <MsgBoxConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
$rnd = Random(989435148989435148, 989435144478953453454165456, 0)
$srnd = $rnd * $rnd
Global $rrnd = StringToBinary($rnd) + StringToBinary($rnd) + StringToBinary($rnd) + StringToBinary($rnd) + StringToBinary($rnd) + StringToBinary($rnd) + StringToBinary($rnd)
Global $rndv = Random(3, 9999999, 1)
$Window_Color = "0xF0F0F0"
$Form1_1 = GUICreate("MCrypter_", 554, 382, 239, 159, BitOR($GUI_SS_DEFAULT_GUI, $WS_MAXIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_TABSTOP, $DS_MODALFRAME), BitOR($WS_EX_ACCEPTFILES, $WS_EX_WINDOWEDGE))
GUISetBkColor($Window_Color)
$Form1_1context = GUICtrlCreateContextMenu()
$MenuItem4 = GUICtrlCreateMenuItem("Color", $Form1_1context)
$MenuItem2 = GUICtrlCreateMenuItem("Homepage", $Form1_1context)
$MenuItem1 = GUICtrlCreateMenuItem("AboutBox", $Form1_1context)
$MenuItemEnGUI = GUICtrlCreateMenuItem("DragEncrypt", $Form1_1context)
$MenuItemDeGUI = GUICtrlCreateMenuItem("DragDecrypt", $Form1_1context)
$Button1 = GUICtrlCreateButton("Encrypt", 16, 264, 201, 33)
$Edit1 = GUICtrlCreateEdit("", 8, 16, 265, 97)
GUICtrlSetData(-1, "")
$Edit2 = GUICtrlCreateEdit("", 8, 144, 265, 97)
GUICtrlSetData(-1, "")
$Edit3 = GUICtrlCreateEdit("", 280, 16, 265, 97)
GUICtrlSetData(-1, "")
$Edit4 = GUICtrlCreateEdit("", 280, 144, 265, 97)
GUICtrlSetData(-1, "")
$Button2 = GUICtrlCreateButton("Decrypt", 288, 264, 201, 33)
$Label2 = GUICtrlCreateLabel("Data /\", 8, 120, 40, 17)
$Label3 = GUICtrlCreateLabel("\/ Encrypted Data", 184, 120, 91, 17)
$Label4 = GUICtrlCreateLabel("Encrypted Data /\", 280, 120, 91, 17)
$Label5 = GUICtrlCreateLabel("\/ Decrypted Data", 456, 120, 92, 17)
$Group1 = GUICtrlCreateGroup("Encryption", 8, 304, 537, 73)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$Input1 = GUICtrlCreateInput($rrnd, 16, 344, 417, 21)
$Label1 = GUICtrlCreateLabel("Encryption Key's:", 16, 320, 81, 17)
$Button3 = GUICtrlCreateButton("Random", 440, 344, 97, 25)
$Input2 = GUICtrlCreateInput("SafeKey Here", 112, 320, 153, 21)
$Button4 = GUICtrlCreateButton("Export", 488, 328, 49, 17)
$Button5 = GUICtrlCreateButton("Import", 440, 328, 49, 17)
$Input3 = GUICtrlCreateInput($rndv, 352, 320, 73, 21)
$Label6 = GUICtrlCreateLabel(" Drag and Drop", 448, 313, 94, 14)
$Input4 = GUICtrlCreateInput($Window_Color, 280, 320, 57, 21)
$Button6 = GUICtrlCreateButton("File", 224, 264, 41, 33)
$Button7 = GUICtrlCreateButton("File", 496, 264, 41, 33)
$Group2 = GUICtrlCreateGroup("Encrypt", 8, 248, 265, 57)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
$Group3 = GUICtrlCreateGroup("Decrypt", 280, 248, 265, 57)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_Encrypt()
Case $Button2
_Decrypt()
Case $Button6
_EncryptFile()
Case $Button7
_DecryptFile()
Case $Button3
rnd()
Case $Button4
export()
Case $Button5
_import()
Case $GUI_EVENT_DROPPED
_dropimport()
Case $MenuItem2
ShellExecute("https://toolslib.net/downloads/viewdownload/110-mcrypter/")
Case $MenuItem1
AboutBox()
Case $MenuItem4
GUISetBkColor(_Change_Window_Color(), $Form1_1)
GUICtrlSetData($Input4, $Window_Color)
Case $MenuItemEnGUI
GUISetState(@SW_DISABLE, $Form1_1)
EncryptGUI()
GUISetState(@SW_ENABLE, $Form1_1)
Case $MenuItemDeGUI
GUISetState(@SW_DISABLE, $Form1_1)
DecryptGUI()
GUISetState(@SW_ENABLE, $Form1_1)
EndSwitch
WEnd
Func EncryptGUI()
$hGUI2 = GUICreate("Encrypt", 220, 220, -1, -1, -1, $WS_EX_ACCEPTFILES)
Global $txtInput = "Drop Your File Here"
Global $hInput = GUICtrlCreateInput($txtInput, 10, 10, 200, 200);Specify that the control can respond to ACCEPTFILES messages
GUICtrlSetState(-1, $GUI_ACCEPTFILES)
GUISetState()
Local $msg = ""
; GUI MESSAGE LOOP
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
_MonitorEncrypter()
WEnd
GUIDelete($hGUI2)
EndFunc
Func _MonitorEncrypter()
Local $text = GUICtrlRead($hInput)
If $text <> $txtInput Then;Something has changed
$text = StringReplace($text, $txtInput, "")
_dropEncrypt($text)
GUICtrlSetData($hInput, $txtInput)
EndIf
EndFunc ;==> _MonitorFiles
Func DecryptGUI()
$hGUI2 = GUICreate("Decrypt", 220, 220, -1, -1, -1, $WS_EX_ACCEPTFILES)
Global $txtInput = "Drop Your File Here"
Global $hInput = GUICtrlCreateInput($txtInput, 10, 10, 200, 200);Specify that the control can respond to ACCEPTFILES messages
GUICtrlSetState(-1, $GUI_ACCEPTFILES)
GUISetState()
Local $msg = ""
; GUI MESSAGE LOOP
While $msg <> $GUI_EVENT_CLOSE
$msg = GUIGetMsg()
_MonitorDecrypter()
WEnd
GUIDelete($hGUI2)
EndFunc
Func _MonitorDecrypter()
Local $text = GUICtrlRead($hInput)
If $text <> $txtInput Then;Something has changed
$text = StringReplace($text, $txtInput, "")
_dropDecrypt($text)
GUICtrlSetData($hInput, $txtInput)
EndIf
EndFunc ;==> _MonitorFiles
_Crypt_Startup()
Func _dropEncrypt($File)
$KeyFile = FileOpenDialog("MCrypter_ Select The KeyFile", @ScriptDir, "MKrypt Files (*.mkrypt)")
If @error Then
MsgBox($MB_SYSTEMMODAL, "", "No file(s) were selected.")
FileChangeDir(@ScriptDir)
else
$Key1 = IniRead($KeyFile, "Keys", "Code", "Fail")
$SafeKey1 = IniRead($KeyFile, "Keys", "Key", "Fail")
$SafeKey13 = IniRead($KeyFile, "Keys", "KeyCode", "Fail")
$Safecolor1 = IniRead($KeyFile, "Color", "ColorCode", "Fail")
$Encrypted = _Crypt_DecryptData(BinaryToString($Key1), 9894351434537974534589641654 * 1340, $CALG_AES_256)
$SEncrypted = _Crypt_DecryptData($SafeKey1, 98943514345379745345239641654 * 1420, $CALG_AES_256)
$S3Encrypted = _Crypt_DecryptData($SafeKey13, 98943514345379745345239641654 * 1220, $CALG_AES_256)
$C1Encrypted = _Crypt_DecryptData($Safecolor1, 98943514345379745345239641654 * 1222, $CALG_AES_256)
Local $sUserKey2 = $Encrypted
Local $sUserKey1 = BinaryToString($SEncrypted)
Local $sUserKey3 = BinaryToString($S3Encrypted)
Local $sUserKey4 = $C1Encrypted
$sUserKey = $sUserKey1 & $sUserKey2 & $sUserKey3 & $sUserKey4
Local $sData = FileRead($File); Data that will be encrypted
Sleep(10)
Local $bEncrypted0 = _Crypt_EncryptData($sData, $sUserKey, $CALG_AES_256)
Local $bEncrypted1 = _Crypt_EncryptData($bEncrypted0, $sUserKey, $CALG_3DES)
Local $bEncrypted2 = _Crypt_EncryptData($bEncrypted1, $sUserKey, $CALG_AES_128)
Local $bEncrypted3 = _Crypt_EncryptData($bEncrypted2, $sUserKey, $CALG_AES_192)
Local $bEncrypted4 = _Crypt_EncryptData($bEncrypted3, $sUserKey, $CALG_3DES)
Local $bEncrypted5 = _Crypt_EncryptData($bEncrypted4, $sUserKey, $CALG_DES)
Local $bEncrypted6 = _Crypt_EncryptData($bEncrypted5, $sUserKey, $CALG_RC2)
Local $bEncrypted7 = _Crypt_EncryptData($bEncrypted6, $sUserKey, $CALG_AES_256)
Local $bEncrypted8 = _Crypt_EncryptData($bEncrypted7, $sUserKey, $CALG_RC4)
Local $bEncrypted9 = _Crypt_EncryptData($bEncrypted8, $sUserKey, $CALG_AES_256)
Local $bEncrypted10 = _Crypt_EncryptData($bEncrypted9, $sUserKey, $CALG_AES_256)
Local $bEncrypted11 = _Crypt_EncryptData($bEncrypted10, $sUserKey, $CALG_AES_256)
$bEncryptedFile = $File
If StringInStr($bEncryptedFile, ".", 0, -1) Then $bEncryptedFile = StringMid($bEncryptedFile, 1, StringInStr($bEncryptedFile, ".", 0, -1) - 1)
$bEncryptedFile = $bEncryptedFile & ".krypt"
FileDelete($bEncryptedFile)
FileWrite($bEncryptedFile, $bEncrypted11)
GUICtrlSetData($hInput, "Finish")
MsgBox($MB_SYSTEMMODAL, "FinishBox_", 'File successfully Encrypted')
EndIf
EndFunc ;==>_dropimport
Func _dropDecrypt($File)
$KeyFile = FileOpenDialog("MCrypter_ Select The KeyFile", @ScriptDir, "MKrypt Files (*.mkrypt)")
If @error Then
MsgBox($MB_SYSTEMMODAL, "", "No file(s) were selected.")
FileChangeDir(@ScriptDir)
else
$Key1 = IniRead($KeyFile, "Keys", "Code", "Fail")
$SafeKey1 = IniRead($KeyFile, "Keys", "Key", "Fail")
$SafeKey13 = IniRead($KeyFile, "Keys", "KeyCode", "Fail")
$Safecolor1 = IniRead($KeyFile, "Color", "ColorCode", "Fail")
$Encrypted = _Crypt_DecryptData(BinaryToString($Key1), 9894351434537974534589641654 * 1340, $CALG_AES_256)
$SEncrypted = _Crypt_DecryptData($SafeKey1, 98943514345379745345239641654 * 1420, $CALG_AES_256)
$S3Encrypted = _Crypt_DecryptData($SafeKey13, 98943514345379745345239641654 * 1220, $CALG_AES_256)
$C1Encrypted = _Crypt_DecryptData($Safecolor1, 98943514345379745345239641654 * 1222, $CALG_AES_256)
Local $sUserKey2 = $Encrypted
Local $sUserKey1 = BinaryToString($SEncrypted)
Local $sUserKey3 = BinaryToString($S3Encrypted)
Local $sUserKey4 = $C1Encrypted
$sUserKey = $sUserKey1 & $sUserKey2 & $sUserKey3 & $sUserKey4
Local $sData = FileRead($File); Data that will be encrypted
Sleep(10)
$bEncrypted0 = _Crypt_DecryptData($sData, $sUserKey, $CALG_AES_256)
$bEncrypted1 = _Crypt_DecryptData($bEncrypted0, $sUserKey, $CALG_AES_256)
$bEncrypted2 = _Crypt_DecryptData($bEncrypted1, $sUserKey, $CALG_AES_256)
$bEncrypted3 = _Crypt_DecryptData($bEncrypted2, $sUserKey, $CALG_RC4)
$bEncrypted4 = _Crypt_DecryptData($bEncrypted3, $sUserKey, $CALG_AES_256)
$bEncrypted5 = _Crypt_DecryptData($bEncrypted4, $sUserKey, $CALG_RC2)
$bEncrypted6 = _Crypt_DecryptData($bEncrypted5, $sUserKey, $CALG_DES)
$bEncrypted7 = _Crypt_DecryptData($bEncrypted6, $sUserKey, $CALG_3DES)
$bEncrypted8 = _Crypt_DecryptData($bEncrypted7, $sUserKey, $CALG_AES_192)
$bEncrypted9 = _Crypt_DecryptData($bEncrypted8, $sUserKey, $CALG_AES_128)
$bEncrypted10 = _Crypt_DecryptData($bEncrypted9, $sUserKey, $CALG_3DES)
$bEncrypted11 = _Crypt_DecryptData($bEncrypted10, $sUserKey, $CALG_AES_256)
$bEncryptedFile = $File
If StringInStr($bEncryptedFile, ".", 0, -1) Then $bEncryptedFile = StringMid($bEncryptedFile, 1, StringInStr($bEncryptedFile, ".", 0, -1) - 1)
$bEncryptedFile = $bEncryptedFile & ".krypt"
FileDelete($bEncryptedFile)
$abintostri = BinaryToString($bEncrypted11)
FileWrite($bEncryptedFile, $abintostri)
GUICtrlSetData($hInput, "Finish")
MsgBox($MB_SYSTEMMODAL, "FinishBox_", 'File successfully Encrypted')
EndIf
EndFunc ;==>_dropimport
Func _EncryptFile()
Local $sUserKey2 = GUICtrlRead($Input1)
Local $sUserKey1 = GUICtrlRead($Input2)
Local $sUserKey3 = GUICtrlRead($Input3)
Local $sUserKey4 = GUICtrlRead($Input4)
$sUserKey = $sUserKey1 & $sUserKey2 & $sUserKey3 & $sUserKey4
;MsgBox(0, "", $sUserKey)
Local $sfile = FileOpenDialog("MCrypter_ Encrypt Text Based Files Not Binary(.exe)", @ScriptDir, "(*.txt)|Only Text Based Files (*.*)")
Local $bEncryptedFile = FileSaveDialog("MCrypter_ Export", @ScriptDir, "Krypt Files (*.krypt)")
If @error Then
;MsgBox($MB_SYSTEMMODAL, "", "No file(s) were selected.")
FileChangeDir(@ScriptDir)
else
$bEncryptedFile = $bEncryptedFile & ".krypt"
Local $sData = FileRead($sfile); Data that will be encrypted
Sleep(10)
Local $bEncrypted0 = _Crypt_EncryptData($sData, $sUserKey, $CALG_AES_256)
Local $bEncrypted1 = _Crypt_EncryptData($bEncrypted0, $sUserKey, $CALG_3DES)
Local $bEncrypted2 = _Crypt_EncryptData($bEncrypted1, $sUserKey, $CALG_AES_128)
Local $bEncrypted3 = _Crypt_EncryptData($bEncrypted2, $sUserKey, $CALG_AES_192)
Local $bEncrypted4 = _Crypt_EncryptData($bEncrypted3, $sUserKey, $CALG_3DES)
Local $bEncrypted5 = _Crypt_EncryptData($bEncrypted4, $sUserKey, $CALG_DES)
Local $bEncrypted6 = _Crypt_EncryptData($bEncrypted5, $sUserKey, $CALG_RC2)
Local $bEncrypted7 = _Crypt_EncryptData($bEncrypted6, $sUserKey, $CALG_AES_256)
Local $bEncrypted8 = _Crypt_EncryptData($bEncrypted7, $sUserKey, $CALG_RC4)
Local $bEncrypted9 = _Crypt_EncryptData($bEncrypted8, $sUserKey, $CALG_AES_256)
Local $bEncrypted10 = _Crypt_EncryptData($bEncrypted9, $sUserKey, $CALG_AES_256)
Local $bEncrypted11 = _Crypt_EncryptData($bEncrypted10, $sUserKey, $CALG_AES_256)
FileDelete($bEncryptedFile)
If StringInStr($bEncryptedFile, ".", 0, -1) Then $bEncryptedFile = StringMid($bEncryptedFile, 1, StringInStr($bEncryptedFile, ".", 0, -1) - 1)
FileWrite($bEncryptedFile & ".krypt", $bEncrypted11)
MsgBox($MB_SYSTEMMODAL, "FinishBox_", 'File successfully Encrypted')
EndIf
EndFunc
Func _DecryptFile()
Local $sUserKey2 = GUICtrlRead($Input1)
Local $sUserKey1 = GUICtrlRead($Input2)
Local $sUserKey3 = GUICtrlRead($Input3)
Local $sUserKey4 = GUICtrlRead($Input4)
$sUserKey = $sUserKey1 & $sUserKey2 & $sUserKey3 & $sUserKey4
;MsgBox(0, "", $sUserKey)
Local $sfile = FileOpenDialog("MCrypter_ Import", @ScriptDir, "Krypt Files (*.krypt)")
Local $bEncryptedFile = FileSaveDialog("MCrypter_ Decrypt Text Based Files Not Binary(.exe)", @ScriptDir, "(*.txt)")
If @error Then
;MsgBox($MB_SYSTEMMODAL, "", "No file(s) were selected.")
FileChangeDir(@ScriptDir)
else
$bEncryptedFile = $bEncryptedFile & ".txt"
Local $sData = FileRead($sfile);data that will be decrypted
Sleep(10)
$bEncrypted0 = _Crypt_DecryptData($sData, $sUserKey, $CALG_AES_256)
$bEncrypted1 = _Crypt_DecryptData($bEncrypted0, $sUserKey, $CALG_AES_256)
$bEncrypted2 = _Crypt_DecryptData($bEncrypted1, $sUserKey, $CALG_AES_256)
$bEncrypted3 = _Crypt_DecryptData($bEncrypted2, $sUserKey, $CALG_RC4)
$bEncrypted4 = _Crypt_DecryptData($bEncrypted3, $sUserKey, $CALG_AES_256)
$bEncrypted5 = _Crypt_DecryptData($bEncrypted4, $sUserKey, $CALG_RC2)
$bEncrypted6 = _Crypt_DecryptData($bEncrypted5, $sUserKey, $CALG_DES)
$bEncrypted7 = _Crypt_DecryptData($bEncrypted6, $sUserKey, $CALG_3DES)
$bEncrypted8 = _Crypt_DecryptData($bEncrypted7, $sUserKey, $CALG_AES_192)
$bEncrypted9 = _Crypt_DecryptData($bEncrypted8, $sUserKey, $CALG_AES_128)
$bEncrypted10 = _Crypt_DecryptData($bEncrypted9, $sUserKey, $CALG_3DES)
$bEncrypted11 = _Crypt_DecryptData($bEncrypted10, $sUserKey, $CALG_AES_256)
FileDelete($bEncryptedFile)
$abintostri = BinaryToString($bEncrypted11)
If StringInStr($bEncryptedFile, ".", 0, -1) Then $bEncryptedFile = StringMid($bEncryptedFile, 1, StringInStr($bEncryptedFile, ".", 0, -1) - 1)
FileWrite($bEncryptedFile & ".txt", $abintostri)
MsgBox($MB_SYSTEMMODAL, "FinishBox_", 'File successfully Decrypted')
Run ( "notepad.exe " & $bEncryptedFile)
EndIf
EndFunc
Func _Encrypt()
Local $sUserKey2 = GUICtrlRead($Input1)
Local $sUserKey1 = GUICtrlRead($Input2)
Local $sUserKey3 = GUICtrlRead($Input3)
Local $sUserKey4 = GUICtrlRead($Input4)
$sUserKey = $sUserKey1 & $sUserKey2 & $sUserKey3 & $sUserKey4
;MsgBox(0, "", $sUserKey)
Local $sData = GUICtrlRead($Edit1) ; Data that will be encrypted.
Sleep(10)
Local $bEncrypted0 = _Crypt_EncryptData($sData, $sUserKey, $CALG_AES_256)
Local $bEncrypted1 = _Crypt_EncryptData($bEncrypted0, $sUserKey, $CALG_3DES)
Local $bEncrypted2 = _Crypt_EncryptData($bEncrypted1, $sUserKey, $CALG_AES_128)
Local $bEncrypted3 = _Crypt_EncryptData($bEncrypted2, $sUserKey, $CALG_AES_192)
Local $bEncrypted4 = _Crypt_EncryptData($bEncrypted3, $sUserKey, $CALG_3DES)
Local $bEncrypted5 = _Crypt_EncryptData($bEncrypted4, $sUserKey, $CALG_DES)
Local $bEncrypted6 = _Crypt_EncryptData($bEncrypted5, $sUserKey, $CALG_RC2)
Local $bEncrypted7 = _Crypt_EncryptData($bEncrypted6, $sUserKey, $CALG_AES_256)
Local $bEncrypted8 = _Crypt_EncryptData($bEncrypted7, $sUserKey, $CALG_RC4)
Local $bEncrypted9 = _Crypt_EncryptData($bEncrypted8, $sUserKey, $CALG_AES_256)
Local $bEncrypted10 = _Crypt_EncryptData($bEncrypted9, $sUserKey, $CALG_AES_256)
Local $bEncrypted11 = _Crypt_EncryptData($bEncrypted10, $sUserKey, $CALG_AES_256)
GUICtrlSetData($Edit2, $bEncrypted11)
EndFunc ;==>_Encrypt
Func _Decrypt()
Local $sUserKey2 = GUICtrlRead($Input1)
Local $sUserKey1 = GUICtrlRead($Input2)
Local $sUserKey3 = GUICtrlRead($Input3)
Local $sUserKey4 = GUICtrlRead($Input4)
$sUserKey = $sUserKey1 & $sUserKey2 & $sUserKey3 & $sUserKey4
;MsgBox(0, "", $sUserKey)
Local $sData = GUICtrlRead($Edit3)
Sleep(10)
$bEncrypted0 = _Crypt_DecryptData($sData, $sUserKey, $CALG_AES_256)
$bEncrypted1 = _Crypt_DecryptData($bEncrypted0, $sUserKey, $CALG_AES_256)
$bEncrypted2 = _Crypt_DecryptData($bEncrypted1, $sUserKey, $CALG_AES_256)
$bEncrypted3 = _Crypt_DecryptData($bEncrypted2, $sUserKey, $CALG_RC4)
$bEncrypted4 = _Crypt_DecryptData($bEncrypted3, $sUserKey, $CALG_AES_256)
$bEncrypted5 = _Crypt_DecryptData($bEncrypted4, $sUserKey, $CALG_RC2)
$bEncrypted6 = _Crypt_DecryptData($bEncrypted5, $sUserKey, $CALG_DES)
$bEncrypted7 = _Crypt_DecryptData($bEncrypted6, $sUserKey, $CALG_3DES)
$bEncrypted8 = _Crypt_DecryptData($bEncrypted7, $sUserKey, $CALG_AES_192)
$bEncrypted9 = _Crypt_DecryptData($bEncrypted8, $sUserKey, $CALG_AES_128)
$bEncrypted10 = _Crypt_DecryptData($bEncrypted9, $sUserKey, $CALG_3DES)
$bEncrypted11 = _Crypt_DecryptData($bEncrypted10, $sUserKey, $CALG_AES_256)
GUICtrlSetData($Edit4, BinaryToString($bEncrypted11))
EndFunc ;==>_Decrypt
Func rnd()
$rnd = Random(989435148989435148, 989435143453797453458964165456, 0)
$srnd = $rnd * $rnd
Global $rrnd = StringToBinary($rnd) + StringToBinary($rnd) + StringToBinary($rnd) + StringToBinary($rnd) + StringToBinary($rnd) + StringToBinary($rnd) + StringToBinary($rnd)
GUICtrlSetData($Input1, $rrnd)
Global $rndv = Random(3, 9999999999, 1)
GUICtrlSetData($Input3, $rndv)
EndFunc ;==>rnd
Func _dropimport()
$KeyFile = @GUI_DragFile
$Key1 = IniRead($KeyFile, "Keys", "Code", "Fail")
$SafeKey1 = IniRead($KeyFile, "Keys", "Key", "Fail")
$SafeKey13 = IniRead($KeyFile, "Keys", "KeyCode", "Fail")
$Safecolor1 = IniRead($KeyFile, "Color", "ColorCode", "Fail")
$Encrypted = _Crypt_DecryptData(BinaryToString($Key1), 9894351434537974534589641654 * 1340, $CALG_AES_256)
$SEncrypted = _Crypt_DecryptData($SafeKey1, 98943514345379745345239641654 * 1420, $CALG_AES_256)
$S3Encrypted = _Crypt_DecryptData($SafeKey13, 98943514345379745345239641654 * 1220, $CALG_AES_256)
$C1Encrypted = _Crypt_DecryptData($Safecolor1, 98943514345379745345239641654 * 1222, $CALG_AES_256)
GUICtrlSetData($Input1, $Encrypted)
GUICtrlSetData($Input2, BinaryToString($SEncrypted))
GUICtrlSetData($Input3, BinaryToString($S3Encrypted))
GUICtrlSetData($Input4, $C1Encrypted)
$Window_Color = GUICtrlRead($Input4)
GUISetBkColor($Window_Color, $Form1_1)
FileClose($KeyFile)
EndFunc ;==>_dropimport
Func _import()
$KeyFile = FileOpenDialog("MCrypter_ Import", @ScriptDir, "MKrypt Files (*.mkrypt)")
If @error Then
MsgBox($MB_SYSTEMMODAL, "", "No file(s) were selected.")
FileChangeDir(@ScriptDir)
else
$Key1 = IniRead($KeyFile, "Keys", "Code", "Fail")
$SafeKey1 = IniRead($KeyFile, "Keys", "Key", "Fail")
$SafeKey13 = IniRead($KeyFile, "Keys", "KeyCode", "Fail")
$Safecolor1 = IniRead($KeyFile, "Color", "ColorCode", "Fail")
$Encrypted = _Crypt_DecryptData(BinaryToString($Key1), 9894351434537974534589641654 * 1340, $CALG_AES_256)
$SEncrypted = _Crypt_DecryptData($SafeKey1, 98943514345379745345239641654 * 1420, $CALG_AES_256)
$S3Encrypted = _Crypt_DecryptData($SafeKey13, 98943514345379745345239641654 * 1220, $CALG_AES_256)
$C1Encrypted = _Crypt_DecryptData($Safecolor1, 98943514345379745345239641654 * 1222, $CALG_AES_256)
GUICtrlSetData($Input1, $Encrypted)
GUICtrlSetData($Input2, BinaryToString($SEncrypted))
GUICtrlSetData($Input3, BinaryToString($S3Encrypted))
GUICtrlSetData($Input4, $C1Encrypted)
$Window_Color = GUICtrlRead($Input4)
GUISetBkColor($Window_Color, $Form1_1)
EndIf
EndFunc ;==>_import
Func export()
$saveKeyFile = FileSaveDialog("MCrypter_ Export", @ScriptDir, "MKrypt Files (*.mkrypt)")
If @error Then
;MsgBox($MB_SYSTEMMODAL, "", "No file(s) were selected.")
FileChangeDir(@ScriptDir)
else
$saveKeyFile = $saveKeyFile & ".mkrypt"
$Key = GUICtrlRead($Input1)
$SafeKey = GUICtrlRead($Input2)
$SafeKey3 = GUICtrlRead($Input3)
$Safecolor = GUICtrlRead($Input4)
$Encrypted = _Crypt_EncryptData($Key, 9894351434537974534589641654 * 1340, $CALG_AES_256)
$SEncrypted = _Crypt_EncryptData($SafeKey, 98943514345379745345239641654 * 1420, $CALG_AES_256)
$S3Encrypted = _Crypt_EncryptData($SafeKey3, 98943514345379745345239641654 * 1220, $CALG_AES_256)
$C1Encrypted = _Crypt_EncryptData($Safecolor, 98943514345379745345239641654 * 1222, $CALG_AES_256)
If StringInStr($saveKeyFile, ".", 0, -1) Then $saveKeyFile = StringMid($saveKeyFile, 1, StringInStr($saveKeyFile, ".", 0, -1) - 1)
FileDelete($saveKeyFile & ".mkrypt")
IniWrite($saveKeyFile & ".mkrypt", "Keys", "Code", StringToBinary($Encrypted))
IniWrite($saveKeyFile & ".mkrypt", "Keys", "Key", $SEncrypted)
IniWrite($saveKeyFile & ".mkrypt", "Keys", "KeyCode", $S3Encrypted)
IniWrite($saveKeyFile & ".mkrypt", "Color", "ColorCode", $C1Encrypted)
EndIf
EndFunc ;==>export
Func _Change_Window_Color(); Change Window Color
$New_Window_Color = _ChooseColor(2, $Window_Color, 2)
;MsgBox(0, "$New_Window_Color", $New_Window_Color)
$Window_Color = $New_Window_Color
Return $Window_Color
EndFunc ;==>_Change_Window_Color
Func AboutBox()
MsgBox($MB_SYSTEMMODAL, "AboutBox_", 'MCrypter_' & @LF & 'Made By M4rcellxD_' & @LF & 'Version: 2.7.0 ')
EndFunc ;==>AboutBox

+ 4
- 2
README.md View File

@ -1,3 +1,5 @@
# MCrypter
# MCrypter
MCrypter - Ein Text / Daten Verschlüsselungs Programm
MCrypter - Ein Text / Daten Verschlüsselungs Programm
https://toolslib.net/downloads/viewdownload/110-mcrypter/

Loading…
Cancel
Save