#! / USR / бен / Perl -w
# bet_verify.pl

использовать строгий;
использовать предупреждение;

использовать Digest :: Ша КЯ (hmac_sha512_hex);
использовать Math :: Random :: MT;

если (! $ ARGV [0] || $ ARGV [0] эк "--Помогите" || $ ARGV [0] экв "-час" || $ ARGV [0] экв "/?")
{
        Распечатать "Использование: confirm_bet.pl \ п";
        Выход;
}
мой $ Диапазон = $ ARGV [0];
мой $ секрет = $ ARGV [1];
мой $ Тх = $ ARGV [2];

мой $ Семя = Digest :: ША :: hmac_sha512_hex ($ ТХ, $ секрет); # Хэш TXID и секрет
$ Семя = ~ s / ^ * $ / $ 1 / ({8}.). # Использовать первые 8 символов хэша для секрета
$ Семя = гекс ($ семян) + 0; # Преобразовать шестнадцатеричный номер
мой $ генераторных = Math :: Random :: MT->новые ($ семена); # Семя MT

мой $ номер = INT ($ генера->рандов ($ диапазон) +1); # Генерировать случайный результат игры внутри диапазона с использованием затравочных MT

Распечатать "Результат: $ число \ п";
Выход;