Что нового

[Криптография] не верная работа Crypt.au3

fatalist420

Бойтесь своих желаний!
Сообщения
14
Репутация
0
Не верно работает Crypt.au3, а именно не верно происходит шифрование
 
A

Alofa

Гость
Обоснуйте.


Добавлено:
Сообщение автоматически объединено:

Вот вполне рабочий вариант:
Код:
#include <Crypt.au3>
_Crypt_Startup()

Local Const $sUserKey = "CryptPassword" ; Пароль
$sData = "..в то время существовал язык без каких-либо стандартов.." ; Строка для шифрования.

$bEncrypted_3DES  = _Crypt_EncryptData($sData, $sUserKey, $CALG_3DES)
$bEncrypted_AES_128 = _Crypt_EncryptData($sData, $sUserKey, $CALG_AES_128)
$bEncrypted_AES_192 = _Crypt_EncryptData($sData, $sUserKey, $CALG_AES_192)
$bEncrypted_AES_256 = _Crypt_EncryptData($sData, $sUserKey, $CALG_AES_256)
$bEncrypted_DES = _Crypt_EncryptData($sData, $sUserKey, $CALG_DES)
$bEncrypted_RC2 = _Crypt_EncryptData($sData, $sUserKey, $CALG_RC2)
$bEncrypted_RC4 = _Crypt_EncryptData($sData, $sUserKey, $CALG_RC4)

$sOutput = "Text: " & $sData & @LF & @LF & _
		"Шифровано в 3DES: " & @LF & @TAB & $bEncrypted_3DES & @LF & _
		"Дешифровано из 3DES: " & @LF & @TAB & BinaryToString(_Crypt_DecryptData($bEncrypted_3DES, $sUserKey, $CALG_3DES)) & @LF & @LF & _
		"Шифровано в AES (128bit): " & @LF & @TAB & $bEncrypted_AES_128 & @LF & _
		"Дешифровано из AES (128bit): " & @LF & @TAB & BinaryToString(_Crypt_DecryptData($bEncrypted_AES_128, $sUserKey, $CALG_AES_128)) & @LF & @LF & _
		"Шифровано в AES (192bit): " & @LF & @TAB & $bEncrypted_AES_192 & @LF & _
		"Дешифровано из AES (192bit): " & @LF & @TAB & BinaryToString(_Crypt_DecryptData($bEncrypted_AES_192, $sUserKey, $CALG_AES_192)) & @LF & @LF & _
		"Шифровано в AES (256bit): " & @LF & @TAB & $bEncrypted_AES_256 & @LF & _
		"Дешифровано из AES (256bit): " & @LF & @TAB & BinaryToString(_Crypt_DecryptData($bEncrypted_AES_256, $sUserKey, $CALG_AES_256)) & @LF & @LF & _
		"Шифровано в DES: " & @LF & @TAB & $bEncrypted_DES & @LF & _
		"Дешифровано из DES: " & @LF & @TAB & BinaryToString(_Crypt_DecryptData($bEncrypted_DES, $sUserKey, $CALG_DES)) & @LF & @LF & _
		"Шифровано в RC2: " & @LF & @TAB & $bEncrypted_RC2 & @LF & _
		"Дешифровано из RC2: " & @LF & @TAB & BinaryToString(_Crypt_DecryptData($bEncrypted_RC2, $sUserKey, $CALG_RC2)) & @LF & @LF & _
		"Шифровано в RC4: " & @LF & @TAB & $bEncrypted_RC4 & @LF & _
		"Дешифровано из RC4: " & @LF & @TAB & BinaryToString(_Crypt_DecryptData($bEncrypted_RC4, $sUserKey, $CALG_RC4))

MsgBox(4096, "Результаты:", $sOutput)
_Crypt_Shutdown()
 

Naisho

Знающий
Сообщения
86
Репутация
12
Хинт: не ограничивайтесь однобайтными символами, посмотрите в сторону UTF-16 и UTF-8 строк. Имея это в виду, обратите внимание на то, каким типом данных подразумевают исходные данные функции хеширования и шифрования этого UDF. Уверяю вас, найти коллизии не составит труда.
 
Верх