[SOLVED] Decrypt a password

[31290 1]

Hi everyone, 

I'm building some script that will encrypt some user password and store it in an ini file.
I'd like to recall the password in a putty session but I can't figure out how to decrypt it:

So far, I have:

expandcollapse popup

Global $Images = "C:\SAC_IS\ATL_Laptop\Resources\Images\"
Global $WorkingDir = "C:\SAC_IS\Switches_Toolbox\"
Global $Settings = $WorkingDir & "\Settings.ini"

DirCreate ($WorkingDir)

_FirstRun()

While 1
    Sleep(10)
WEnd

Func _FirstRun()
If FileExists ("C:\SAC_IS\Switches_Toolbox\Settings.ini") Then
_LoginfoGUI()
Else
MsgBox (64, "PUTTY EXECUTABLE", "First, select PUTTY.EXE path")
Global $PuttyPath = FileOpenDialog("Please indicate putty.exe path", @HomeDrive, "exe (*.exe)")
_LoginfoGUI()
If @Error Then
Global $Error = MsgBox(21, "Error!", "Can't find PUTTY.EXE!"& @CRLF & "Click Retry or Cancel to Quit")
If $Error = $IDRETRY Then
_FirstRun()
Else
_Exit()
EndIf
Else
FileInstall ("C:\Users\h74033\Desktop\Scirpts\Switches\Settings.ini", $WorkingDir & "\Settings.ini", 1)
IniWrite ($Settings, "Putty", "Path", $PuttyPath)
EndIf
EndIf
; SwitchesToolboxGui()

Endfunc

Func _Exit()
    Exit
EndFunc 

Func _LoginfoGUI()
Global $LoginfoGUI = GUICreate("Switches Toolbox Configuration", 300, 300, -1, -1)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit", $LoginfoGUI)
    GUICtrlCreatePic ($Images & "\SAClogo.jpg", 30, 10, 240, 80)
    GUISetBkColor ($Color_White)
    GUICtrlCreateLabel("-- SWITCHES TOOLBOX --", 85, 100, 150, 25)
    GUICtrlSetFont (-1, 8.5, 700, 0)
    GUICtrlCreateLabel("Please provide required information:", 10, 130, 250, 25)
    GUICtrlCreateLabel("-Global ID:", 10, 170, 60, 30)
    GUICtrlSetFont (-1, 8.5, 700, 0)
    GUICtrlCreateLabel("-Password:", 10, 210, 70, 30)
    GUICtrlSetFont (-1, 8.5, 700, 0)
    Global $GIDInput = GUICtrlCreateInput("", 90, 168, 80, 20)
    Global $PassInput = GUICtrlCreateInput("", 90, 205, 150, 20, $ES_PASSWORD)
    GUICtrlCreateButton ("Submit", 100, 245, 100, 25)
    GUICtrlSetOnEvent(-1, "_Submit")
    GUISetState(@SW_SHOW)
EndFunc

Func _Submit()
Global $GID = GuiCtrlRead($GIDInput)
Global $EncryptedPwd = _Crypt_HashData (GuiCtrlRead($PassInput), $CALG_MD2)

IniWrite ($Settings, "Username", "Gid", $Gid)
IniWrite ($Settings, "Encryption", "Password", $EncryptedPwd)
;MsgBox(0, "re", $EncryptedPwd)

EndFunc

How can I achieve that please?

Thanks in advance
 

Edited July 10, 2015 by 31290
Solved

[Jos 1,507]

The UDF _Crypt_HashData() does not encrypt a string but creates an hash which you can later use to compare to another string by using the same functions.

So this is a safe way for example to verify a typed in password without being able to restore the original password.

Jos 
 

[Jfish 116]

If you still want to encrypt / decrypt take a look at _Crypt_EncryptData  and _Crypt_DecryptData

[31290 1]

Thanks to both of you for your answers.

@Jfish I took a look at the function you pointed out but I don't understand the "$vCryptKey" parameter. Can you please provide an example upon the script I made?

Thanks

EDIT: I found the solution. Thanks again for your help

 

Edited July 10, 2015 by 31290
Solution found.

[guinness 1,478]

@Jfish I took a look at the function you pointed out but I don't understand the "$vCryptKey" parameter. Can you please provide an example upon the script I made?

 

Isn't there an example in the example? Would be the obvious place I would look