Sign in to follow this  
Followers 0
autow

Help with _Crypt

7 posts in this topic

My script dont decrypt to original text:

What is problem?

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#Include <String.au3>
#include <Crypt.au3>
#include <WinAPI.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Form1", 192, 289, 193, 125)
$Label1 = GUICtrlCreateLabel("Login:", 8, 16, 33, 17)
$Usuario = GUICtrlCreateInput("Usuario", 48, 16, 121, 21)
$Label2 = GUICtrlCreateLabel("Senha:", 8, 48, 38, 17)
$Password = GUICtrlCreateInput("Password", 48, 48, 121, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Label3 = GUICtrlCreateLabel("Hkey:", 8, 80, 32, 17)
$Hkey = GUICtrlCreateInput("Hkey", 48, 80, 121, 21)
$Encrypt = GUICtrlCreateButton("Encrypt", 8, 112, 75, 25)
$Decrypt = GUICtrlCreateButton("Decrypt", 96, 112, 75, 25)
$Label4 = GUICtrlCreateLabel("Codado por:Raphael winicius", 8, 264, 179, 17)
$Label5 = GUICtrlCreateLabel("Login:", 8, 176, 33, 17)
$Label6 = GUICtrlCreateLabel("Senha:", 8, 208, 38, 17)
$Label7 = GUICtrlCreateLabel("Hkey:", 8, 144, 32, 17)
$Key = GUICtrlCreateInput("Hkey", 48, 144, 121, 21)
$Senha = GUICtrlCreateInput("SenhaDecriptada", 48, 208, 121, 21)
$LoginDede = GUICtrlCreateInput("Usuario", 48, 176, 121, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Encrypt
            _Crypt_Startup()
            $File1 = FileSaveDialog ("Salvar arquivo com senhas",@ScriptDir,"Text files (*.txt)")
            _FileCreate ($File1)
            $ToWrite1 = _Crypt_DeriveKey ($Hkey,$CALG_RC4)
            $ToWrite2 = _Crypt_EncryptData ($Usuario," ",$CALG_RC2)
            $ToWrite3 = _Crypt_EncryptData ($Password," ",$CALG_RC2)
            $RealWrite1 = _FileWriteToLine ($File1,1,$ToWrite1)
            $RealWrite2 = _FileWriteToLine ($File1,2,$ToWrite2)
            $RealWrite3 = _FileWriteToLine ($File1,3,$ToWrite3)
            _Crypt_DestroyKey ($ToWrite1)
            _Crypt_Shutdown()
        Case $Decrypt
            _Crypt_Startup()
            $File = FileOpenDialog ("Abrir arquivo com senhas",@ScriptDir,"Text files (*.txt)")

            $ToDecrypt1 = FileReadLine ($file,1)
            $ToDecrypt2 = FileReadLine ($file,2)
            $ToDecrypt3 = FileReadLine ($file,3)
            $CryptKey = _Crypt_DeriveKey ($key,$CALG_RC4)
            $GrantKey  = _Crypt_DeriveKey ($ToDecrypt1,$CALG_RC4)
            $Decrypt1 = _Crypt_DecryptData ($ToDecrypt2," ",$CALG_RC2)
            $Decrypt2 = _Crypt_DecryptData ($ToDecrypt3," ",$CALG_RC2)
            GUICtrlSetData ($LoginDede,$Decrypt1)
            GUICtrlSetData ($Senha,$Decrypt2)
            _Crypt_Shutdown()
    EndSwitch
WEnd

Share this post


Link to post
Share on other sites



Check the syntax of _Crypt_EncryptData() again.


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

the sintax is ok...i dont post the password in topic..but offline i put the password

Share this post


Link to post
Share on other sites

autow,

Use GUICtrlRead to get the contents of your inputs - at the moment you are using the ControlIDs returned when you create them. :)

So you should have:

$ToWrite1 = _Crypt_DeriveKey (GUICtrlRead($Hkey),$CALG_RC4)
$ToWrite2 = _Crypt_EncryptData (GUICtrlRead($Usuario)," ",$CALG_RC2)
$ToWrite3 = _Crypt_EncryptData (GUICtrlRead$(Password)," ",$CALG_RC2)

Does that help? :)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

Thanks bu t still not working

Share this post


Link to post
Share on other sites

the sintax is ok...i dont post the password in topic..but offline i put the password

OK, I don't know why you didn't use a Fake Password :)

Seems Melba23 got there before me :)


_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 04/09/2015

Share this post


Link to post
Share on other sites

OK, I don't know why you didn't use a Fake Password :)

Seems Melba23 got there before me :P

i try 212 and got incorrect decrypt :)

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  
Followers 0