Что нового

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

La2Angel

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

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

Garrett

Модератор
Локальный модератор
Сообщения
3 999
Репутация
964
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
 
Автор
L

La2Angel

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

Garrett

Модератор
Локальный модератор
Сообщения
3 999
Репутация
964
Код:
;...
$hFile = FileOpen('passwords.txt', 1) ; дописывать файл
;~ $hFile = FileOpen('passwords.txt', 2) ; переписывать файл
FileWrite($hFile, _Encoding_Base64Encode(_SHA1($sPass)))
FileClose($hFile)
;...
 
Автор
L

La2Angel

Новичок
Сообщения
144
Репутация
0
Большущеееее спасибо вам! Отличные админы, модераторы! Тема закрыта.
 
Верх