jithji3 Posted October 16, 2011 Share Posted October 16, 2011 CrypLock: this is a free encryption software to make your secrets into coded form .the current version has one limitation that it works correctly with text files.source code is an autoit script which is given with the download,so you can improve it yourself.(this is my first software ,so mail your suggestions and complaints to pkabhijithnair@gmail.com).i have used hill cipher algorithm in this encrypter .the so this is test version updated versions will be released soon.download the source code and exe: Link to comment Share on other sites More sharing options...
czardas Posted October 16, 2011 Share Posted October 16, 2011 Interesting from a historical perspective, but this encryption has zero strength. No password = zero strength operator64 ArrayWorkshop Link to comment Share on other sites More sharing options...
Shaggi Posted October 16, 2011 Share Posted October 16, 2011 Interesting from a historical perspective, but this encryption has zero strength. No password = zero strengthIt seems the key is just hardcoded into the app (didn't check source though). It could be optional, or required. Ever wanted to call functions in another process? ProcessCall UDFConsole stuff: Console UDFC Preprocessor for AutoIt OMG Link to comment Share on other sites More sharing options...
AZJIO Posted October 17, 2011 Share Posted October 17, 2011 (edited) If the password in the program, will not be difficult to decode Here's an example with a password expandcollapse popup#include <Crypt.au3> #include <WindowsConstants.au3> #include <GUIConstantsEx.au3> ; En $LngEnc = 'Encrypt' $LngDec = 'Decrypt' $LngEnPs = 'Enter the password' $LngEnPt = 'Enter the path or drag a file into the input field' $LngSet1 = 'Disabled' $LngSet2 = 'Auto Encoding' $LngSet3 = 'Auto decoding' $LngMs1 = 'Message' $LngMs2 = 'The path does not exist' $LngMs3 = 'No password' $LngNFL='In a new file' $LngScf='Successfully' $LngFlr='Failure' $UserIntLang = DllCall('kernel32.dll', 'int', 'GetUserDefaultUILanguage') If Not @error Then $UserIntLang = Hex($UserIntLang[0], 4) ; Ru ; если русская локализация, то русский язык If $UserIntLang = 0419 Then $LngEnc = 'Кодировать' $LngDec = 'Декодировать' $LngEnPs = 'Введите пароль' $LngEnPt = 'Введите путь или перетащите файл в поле ввода' $LngSet1 = 'Отключено' $LngSet2 = 'Автокодирование' $LngSet3 = 'Автодекодирование' $LngMs1 = 'Сообщение' $LngMs2 = 'Путь не существует' $LngMs3 = 'Отсутствует пароль' $LngNFL='В новый файл' $LngScf='Успешно' $LngFlr='Неудачно' EndIf Global $LastPath='' $Gui = GUICreate($LngEnc & ' / ' & $LngDec, 350, 110, -1, -1, -1, $WS_EX_ACCEPTFILES) If Not @compiled Then GUISetIcon('shell32.dll', 48) $StatusBar=GUICtrlCreateLabel('', 160, 60, 150, 17) $Open37 = GUICtrlCreateButton('...', 313, 30, 26, 23) GUICtrlSetFont(-1, 16) $NewFile = GUICtrlCreateCheckbox($LngNFL, 10, 60, 120, 17) GUICtrlSetState(-1, 1) $key = GUICtrlCreateInput($LngEnPs, 10, 5, 330, 22) GUICtrlSetFont(-1, -1, -1, 2) $Path = GUICtrlCreateInput($LngEnPt, 10, 30, 304, 22) GUICtrlSetState(-1, $GUI_DROPACCEPTED) GUICtrlSetFont(-1, -1, -1, 2) $Auto = GUICtrlCreateCombo('', 10, 80, 140, 23, 0x3) GUICtrlSetData(-1, $LngSet1 & '|' & $LngSet2 & '|' & $LngSet3, $LngSet1) $enc = GUICtrlCreateButton($LngEnc, 160, 80, 80, 24) $dec = GUICtrlCreateButton($LngDec, 250, 80, 90, 24) GUISetState() GUIRegisterMsg(0x0111, "WM_COMMAND") _Crypt_Startup() While 1 $msg = GUIGetMsg() Switch $msg Case -13 If @GUI_DropId = $Path Then GUICtrlSetData($Path, @GUI_DragFile) Switch GUICtrlRead($Auto) Case $LngSet2 _Enc(1) Case $LngSet3 _Enc(0) EndSwitch Case $enc _Enc(1) Case $dec _Enc(0) Case $Open37 If $LastPath='' Then $LastPath=@DesktopDir $OpenFile = FileOpenDialog('', $LastPath , '(*.*)', 3, '', $Gui) If @error Then ContinueLoop GUICtrlSetFont($Path, -1, -1, 0) GUICtrlSetData($Path, $OpenFile) $LastPath=StringLeft($OpenFile, StringInStr($OpenFile, "\", 0, -1)-1) Switch GUICtrlRead($Auto) Case $LngSet2 _Enc(1) Case $LngSet3 _Enc(0) EndSwitch Case -3 _Crypt_Shutdown() Exit EndSwitch WEnd Func _Enc($type) Local $aPath, $ED, $i, $key0, $n, $Path0, $PathN $key0 = GUICtrlRead($key) $Path0 = GUICtrlRead($Path) If Not FileExists($Path0) Then Return MsgBox(0, $LngMs1, $LngMs2) If $key0 = '' Then Return MsgBox(0, $LngMs1, $LngMs3) If $type Then $ED = 'E' Else $ED = 'D' EndIf $aPath = StringRegExp($Path0, '^(.*\\[^\\]*?)(\.[^.]+)?$', 3) $n = UBound($aPath) $i = 0 Do $i += 1 If $n = 2 Then $PathN = $aPath[0] & '_' & $i & $ED & '.' & $aPath[1] Else $PathN = $aPath[0] & '_' & $i & $ED EndIf Until Not FileExists($PathN) If $type Then $yes=_Crypt_EncryptFile($Path0, $PathN, $key0, $CALG_RC4) Else $yes=_Crypt_DecryptFile($Path0, $PathN, $key0, $CALG_RC4) EndIf If GUICtrlRead($NewFile)=4 Then If $yes And FileMove($PathN, $Path0, 9) Then $i=$LngScf Else $i=$LngFlr EndIf Else If $yes Then $i=$LngScf Else $i=$LngFlr EndIf EndIf GUICtrlSetData($StatusBar, $i) AdlibRegister('_StatusBarAR', 2000) EndFunc Func _StatusBarAR() GUICtrlSetData($StatusBar, '') AdlibUnRegister('_StatusBarAR') EndFunc Func WM_COMMAND($hWnd, $msg, $wParam, $lParam) Local $nID = BitAND($wParam, 0x0000FFFF) Switch $nID Case $key Switch GUICtrlRead($nID, 1) Case $LngEnPs GUICtrlSetData($nID, '') GUICtrlSetFont($nID, -1, -1, 0) Case '' GUICtrlSetData($nID, $LngEnPs) GUICtrlSetFont($nID, -1, -1, 2) EndSwitch Case $Path Switch GUICtrlRead($nID, 1) Case $LngEnPt GUICtrlSetData($nID, '') GUICtrlSetFont($nID, -1, -1, 0) Case '' GUICtrlSetData($nID, $LngEnPt) GUICtrlSetFont($nID, -1, -1, 2) EndSwitch EndSwitch Return 'GUI_RUNDEFMSG' EndFunc Edited October 17, 2011 by AZJIO My other projects or all Link to comment Share on other sites More sharing options...
jithji3 Posted October 18, 2011 Author Share Posted October 18, 2011 i thought about password instead of ,inbuilt password in the source code and i will implement it and also add another encryption to increase strength -thankz for ur reply Link to comment Share on other sites More sharing options...
czardas Posted October 19, 2011 Share Posted October 19, 2011 (edited) Thanks to you for introducing me to the Hill Cipher. I finally got around to reading the wiki article and it was very interesting. I was happy to see the link about confusion and diffusion. Although it seems quite obvious, it's good to learn new terminology. I look forward to trying out the next version of your program. Edited October 19, 2011 by czardas operator64 ArrayWorkshop Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now