Recordar Usuarios y Clave ¿con archivos.ini?

[qpongo]

Hola,

Tengo un script que abre una pagina en el ie y pone usuario y clave para entrar.
Como quiero que lo utilicen más usuarios tengo que digamos dejar usuario y clave en blanco y que cada usuario ponga sus datos y los grabe pare recordarlos.
¿La forma de que recuerde esos datos la próxima vez que se abra el programa es mediante un archivo .ini?
¿Conocéis algún ejemplo que haga esto?

Muchas gracias,

qpongo

[Dany]

En la ayuda esta un Ejemplo

Código: Seleccionar todo

IniWrite("myfile.ini", "Datos", "Usuario", "Dany")
IniWrite("myfile.ini", "Datos", "Key", "holamundo")

saludos

[qpongo]

Gracias Dany,

Perdona, pero es que no tenía claro que los *.ini valían para eso, ¿el ini es un fichero de texto con esa extensión verdad? (he descubierto autoit hace poco... y no soy informático), por eso tengo tantas dudas . Ya se que es una tontería para ti... jo

Otra duda.... ¿como puedo mantener ese fichero *.ini protegido y que no lo pueda leer cualquiera, porque si guarda claves debería protegerlo o cifrarlo de alguna forma no?

Muchas gracias Dany... eres muy muy rápido ayudando

qpongo

[Dany]

Podrias ser algo como esto

Código: Seleccionar todo

#include <Crypt.au3>

;Datos
Local Const $sUserKey = "clave" ;Clave 
Local $Usuario = "Dany" ;cadena a cifrar
Local $Clave = "estaesmiclave" ;cadena a cifrar


;Ciframos con RC4
Local $usuariocifrado= _Crypt_EncryptData($Usuario, $sUserKey, $CALG_RC4) 
Local $clavecifrada= _Crypt_EncryptData($Clave, $sUserKey, $CALG_RC4)

;Escribimos los datos cifrados
IniWrite("myfile.ini", "Datos", "usuario", BinaryToString($usuariocifrado))
IniWrite("myfile.ini", "Datos", "Clave", BinaryToString($clavecifrada))

;Leemos los datos(estan cifrados)
$Usuario = IniRead("myfile.ini", "Datos", "usuario", "NotFound")
$Clave=IniRead("myfile.ini", "Datos", "clave", "NotFound")

;Deciframos los datos
$Usuario=_Crypt_DecryptData($Usuario, $sUserKey, $CALG_RC4)
$Clave=_Crypt_DecryptData($Clave, $sUserKey, $CALG_RC4)

;mostramos los datos
MsgBox(0,"Dato usuario Decifrados",binarytostring($Usuario))
MsgBox(0,"Dato clave Decifrados",binarytostring($Clave))

O usa otro cifrado.


Saludos

[qpongo]

Me quede con la boca abierta cuando vi tu respuesta ..... y me fue muy útil. Esto es como un manual para mi. Gracias

[yasmany]

Gracias Dany por compartir tus conocimientos, esto me va de lujo. lo probaré algun rato