R0bzt3R Posted December 15, 2010 Share Posted December 15, 2010 How do I Decrypt the message, instead of Encrypt the message. #include <GUIConstantsEx.au3> #include <EditConstants.au3> #include <WindowsConstants.au3> #include <Crypt.au3> #include <WinAPI.au3> $hWnd=GUICreate("Realtime Encrypting",400,300,-1) $hInputEdit=GUICtrlCreateEdit("",0,0,400,150,$ES_WANTRETURN) $hOutputEdit=GUICtrlCreateEdit("",0,150,400,150,$ES_READONLY) GUIRegisterMsg($WM_COMMAND,"WM_COMMAND") GUISetState(@SW_SHOW) _Crypt_Startup() $hKey=_Crypt_DeriveKey("SomePassword",$CALG_RC4) Do $msg=GUIGetMsg() Until $msg=$GUI_EVENT_close _Crypt_DestroyKey($hKey) _Crypt_Shutdown() Func WM_COMMAND($hWinHandle,$iMsg,$wParam,$lParam) If _WinAPI_HiWord($wParam)=$EN_CHANGE And _WINAPI_LoWord($wParam)=$hInputEdit Then $bEncrypted=_Crypt_EncryptData(GUICtrlRead($hInputEdit),$hKey,$CALG_USERKEY) GUICtrlSetData($hOutputEdit,$bEncrypted) EndIf EndFunc Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted December 15, 2010 Moderators Share Posted December 15, 2010 R0bzt3R,By using _Crypt_DecryptData, or is that too obvious a solution and I have misunderstood your question? #include <GUIConstantsEx.au3> #include <EditConstants.au3> #include <WindowsConstants.au3> #include <Crypt.au3> #include <WinAPI.au3> $hWnd = GUICreate("Realtime Encrypting", 400, 450) $hInputEdit = GUICtrlCreateEdit("", 0, 0, 400, 150, $ES_WANTRETURN) $hOutputEdit = GUICtrlCreateEdit("", 0, 150, 400, 150, $ES_READONLY) $hClearEdit = GUICtrlCreateEdit("", 0, 300, 400, 150, $ES_READONLY) GUISetState(@SW_SHOW) GUIRegisterMsg($WM_COMMAND, "WM_COMMAND") _Crypt_Startup() $hKey = _Crypt_DeriveKey("SomePassword", $CALG_RC4) Do $msg = GUIGetMsg() Until $msg = $GUI_EVENT_close _Crypt_DestroyKey($hKey) _Crypt_Shutdown() Func WM_COMMAND($hWinHandle, $iMsg, $wParam, $lParam) If _WinAPI_HiWord($wParam) = $EN_CHANGE And _WinAPI_LoWord($wParam) = $hInputEdit Then $bEncrypted = _Crypt_EncryptData(GUICtrlRead($hInputEdit), $hKey, $CALG_USERKEY) GUICtrlSetData($hOutputEdit, BinaryToString($bEncrypted)) $bCleartext = _Crypt_DecryptData($bEncrypted, $hKey, $CALG_USERKEY) GUICtrlSetData($hClearEdit, BinaryToString($bCleartext)) EndIf EndFunc ;==>WM_COMMANDM23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
Zedna Posted December 15, 2010 Share Posted December 15, 2010 (edited) @Melba There is some problem in your script or maybe in Crypt UDF. When I delete previously typed string there is still text "Ž=)'" in decrypted panel at bottom. EDIT: It corresponds to empty string converted to binary --> 0x00000000 EDIT2: here is correction Func WM_COMMAND($hWinHandle, $iMsg, $wParam, $lParam) If _WinAPI_HiWord($wParam) = $EN_CHANGE And _WinAPI_LoWord($wParam) = $hInputEdit Then $bEncrypted = _Crypt_EncryptData(GUICtrlRead($hInputEdit), $hKey, $CALG_USERKEY) GUICtrlSetData($hOutputEdit, BinaryToString($bEncrypted)) If $bEncrypted = 0x0 Then GUICtrlSetData($hClearEdit, '') Else $bCleartext = _Crypt_DecryptData($bEncrypted, $hKey, $CALG_USERKEY) GUICtrlSetData($hClearEdit, BinaryToString($bCleartext)) EndIf EndIf EndFunc ;==>WM_COMMAND Edited December 15, 2010 by Zedna Resources UDF ResourcesEx UDF AutoIt Forum Search Link to comment Share on other sites More sharing options...
Moderators Melba23 Posted December 15, 2010 Moderators Share Posted December 15, 2010 Zedna, Thanks for that. M23 Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind Open spoiler to see my UDFs: Spoiler ArrayMultiColSort ---- Sort arrays on multiple columnsChooseFileFolder ---- Single and multiple selections from specified path treeview listingDate_Time_Convert -- Easily convert date/time formats, including the language usedExtMsgBox --------- A highly customisable replacement for MsgBoxGUIExtender -------- Extend and retract multiple sections within a GUIGUIFrame ---------- Subdivide GUIs into many adjustable framesGUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView itemsGUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeViewMarquee ----------- Scrolling tickertape GUIsNoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxesNotify ------------- Small notifications on the edge of the displayScrollbars ----------Automatically sized scrollbars with a single commandStringSize ---------- Automatically size controls to fit textToast -------------- Small GUIs which pop out of the notification area Link to comment Share on other sites More sharing options...
R0bzt3R Posted December 15, 2010 Author Share Posted December 15, 2010 Thank you very much! Link to comment Share on other sites More sharing options...
R0bzt3R Posted July 27, 2011 Author Share Posted July 27, 2011 I fidgure it out for a while, but now it won't work. Needed that 3 windowed crypter. Who i can write in "Cryptish" And "My message" And it will translate it either way. 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