[solved] Encrypt PW and write it into a.ini file

[KillingEye]

Hi,

Today another Problem...

First: I have an input like this:

$PW = GuiCtrlCreateInput("", 82, 80, 65, 18, $ES_PASSWORD)

Second: I have a Iniwrite function like this:

Case $msg = $loginsend; $loginsend is the Button zu write the password in a .ini file
       iniwrite("server.ini", "Login", "PW", guictrlread($PW))

Now what I want is, that I type in a password and the encrypted password should it write in a .ini file.

To decrypt I want to have another Script... (But that is not the problem now)

I used the search function but it did not help me...

Edited December 28, 2008 by KillingEye

[FireFox]

@KillingEye

#include <String.au3>
 
 $password = InputBox("Password Encryption","Enter password to encrypt","","*",200,75)
 $Encrypt = _StringEncrypt(1, $password, "password", 1);Encrypt $password with Encryption password at level 1
 MsgBox(64, "Encrypted password", $Encrypt)
 $UnEncrypt = _StringEncrypt(0, $Encrypt, "password", 1);UnEncrypt $Encrypt with Encryption password at level 1
 MsgBox(64, "Encrypted password", $UnEncrypt)

Cheers, FireFox.

Edited December 28, 2008 by FireFox

[KillingEye]

Thank you for your fast help

EDIT: It Works!!! Thank you

Edited December 28, 2008 by KillingEye

[SmOke_N]

Hi,

Today another Problem...

First: I have an input like this:

$PW = GuiCtrlCreateInput("", 82, 80, 65, 18, $ES_PASSWORD)

Second: I have a Iniwrite function like this:

Case $msg = $loginsend; $loginsend is the Button zu write the password in a .ini file
       iniwrite("server.ini", "Login", "PW", guictrlread($PW))

Now what I want is, that I type in a password and the encrypted password should it write in a .ini file.

To decrypt I want to have another Script... (But that is not the problem now)

I used the search function but it did not help me...

And what exactly is the problem?

#include <EditConstants.au3>
Global $h_gui = GUICreate("")
Global $i_pw = GUICtrlCreateInput("", 10, 10, 100, 20, $ES_PASSWORD)
Global $i_login = GUICtrlCreateButton("Login", 10, 40, 75, 25)
GUISetState()

While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $i_login
            MsgBox(64, "Info", GUICtrlRead($i_pw))
    EndSwitch
WEnd

Works fine.

[KillingEye]

The Problem was that my Script was more like the encrypt.au3 samlpe...

In this sample script the encrypted text is written in the same editbox.

I did not know that it is easy like firefox's sample

[SmOke_N]

The Problem was that my Script was more like the encrypt.au3 samlpe...

In this sample script the encrypted text is written in the same editbox.

I did not know that it is easy like firefox's sample

Ahh, I misunderstood, I thought you were having an issue reading the text from the input box.

[KillingEye]

No, that was not my problem