Как зашифровать через sha1???

[La2Angel]

Пожалуйста помогите! мне нужно написать программу, которая будет регистрировать пользователя без участия сайта, прямое соединение с бд. но в бд пароль попадает в защифрованом виде.

Как сделать такое же на AutoIT: base64_encode(pack('H*', sha1($pass)));

 

[Garrett]

La2Angel [?]

Как сделать такое же на AutoIT: base64_encode(pack('H*', sha1($pass)));

#include <Encoding.au3>
#include <Crypt.au3>

Dim $sPass = "qwerty"

ConsoleWrite(_Encoding_Base64Encode(_SHA1($sPass)) & @CRLF)

Func _SHA1($sData)
	_Crypt_Startup()
	$iHex =_Crypt_HashData($sData,$CALG_SHA1)
	_Crypt_Shutdown()
	Return $iHex
EndFunc

 

[La2Angel]

Ещё вопросик, а как его вывести в мсбокс или записать в файл ?) и тема будет решена. Спасибо за ранее.

 

[Garrett]

;...
$hFile = FileOpen('passwords.txt', 1) ; дописывать файл
;~ $hFile = FileOpen('passwords.txt', 2) ; переписывать файл
FileWrite($hFile, _Encoding_Base64Encode(_SHA1($sPass)))
FileClose($hFile)
;...

 

[La2Angel]

Большущеееее спасибо вам! Отличные админы, модераторы! Тема закрыта.