Небольшая головоломка на Perl
Некое подобие keygenme на Perl
Мой первый опыт так сказать)
В пм присылайте или просто подходящие ключи, или детально описанный алгоритм
Если пришлете одно из двух хек-слов, подходящих туда - ставлю репу ггг
Код:
#!perl -X
BEGIN { $SIG{INT} = sub { exit print '=(' } }
while(chomp($_=<STDIN>)){s/e/e/e;exit print'=('until!($+[0]+$-[0]!=3);/$_/ and $=+=ord$& foreach(split$,);goto SUCCESS unless $=!=(int oct'0x329')*(int(rand0xffffff)**int(rand1));exit print '=(';}
SUCCESS: exit print"\x44\x4f\x4e\x45\x21"
или тут: http://itdefence.ru/hauditor/keygenme.txt
ЗЫ: тока не надо мне ебать мозги по поводу "да проще сорец подправить" плз |
