Что нового

Генерация данных независимо от исходных данных

muskat_59

Новичок
Сообщения
23
Репутация
0
Версия AutoIt: 3.3.6.1

Описание: При определенном условии программа должна сгенерировать новое числовое значение вида ХХХХХХХХХХ, при этом полученное значение должно быть одинаковым и не зависимым от компьютера (в любом случае при невыполнении определенного условия, все из 10 компьютеров должны сгенерировать новое одинаковое значение)

Примечания: Алгоритм получения этого значения должен быть стоек к подбору
 

madmasles

Модератор
Глобальный модератор
Сообщения
7 790
Репутация
2 319
muskat_59
Код:
#include <String.au3>

$sKey = 'расшифруй'
$sString = @MDAY & '.' & @MON & '.' & @YEAR

$sStringEncr = _StringEncrypt(1, $sString, $sKey)
$sStringDecr = _StringEncrypt(0,$sStringEncr, $sKey)
MsgBox(64, '', $sString & @LF & $sStringEncr & @LF & $sStringDecr)
Или
Код:
#include <Crypt.au3>

$sPass = 'расшифруй'
$sString = @MDAY & '.' & @MON & '.' & @YEAR

_Crypt_Startup()
$hKey = _Crypt_DeriveKey($sPass, $CALG_RC4)
$bEncrypted = _Crypt_EncryptData($sString, $hKey, $CALG_USERKEY)

_Crypt_DestroyKey($hKey)
_Crypt_Shutdown()

MsgBox(0, '', 'Encrypt: ' & $bEncrypted & @LF & 'Decrypted: ' & _
		BinaryToString(_Crypt_DecryptData($bEncrypted, $sPass, $CALG_RC4)))
 
Автор
M

muskat_59

Новичок
Сообщения
23
Репутация
0
я в шоке.... :laugh: Спасибо!
 
Верх