Небольшая головоломка на Perl
 

Некое подобие keygenme на Perl
Мой первый опыт так сказать)
В пм присылайте или просто подходящие ключи, или детально описанный алгоритм
Если пришлете одно из двух хек-слов, подходящих туда - ставлю репу ггг

или тут: http://itdefence.ru/hauditor/keygenme.txt

ЗЫ: тока не надо мне ебать мозги по поводу "да проще сорец подправить" плз

>> Если пришлете одно из двух хек-слов, подходящих туда - ставлю репу ггг

а почему тока двух ? их там многа можна придумать.. )

Ну два которых мне больше всего нравятся)

мля... ниасилил...
вечером ещё раз попробую..

Мда, без perlvar'а сразу и не допер, а вообще прикольно=)

В принципе работает вот так без правки исходов
D:\>perl script.pl 111
DONE!
Вместо 111 любой набор в кач. параметров =)

Хитрюга) Поправил

Что-то не густо народу взялось=\

>> Что-то не густо народу взялось=\

мне кажется, надо было это в раздел "PHP, PERL, MySQL, JavaScript" выложить, ато в этот раздел перл-кодеры и не заглядуют особо..

ксурь - ты опять за старое? =)

то была ***ня, а это , стало быть это

вообщем фиг знает на чем ты его тестил ---- ща вот в 2 часа ночи сижу ковыряюсь дошел до exit print'=('until!($+[0]+$-[0]!=3); -- вообщем лично у моего вывода количество оставшихся строк всегда равно нулю какую бы пежню я не печатал не то что одно слово -- так что немогу догнать до троечки

вообщем мне запарилось его ща мучать или оно бажное тк $- у меня выше нуля не идет -- тк оно и понятно сколько строк может остаться у стандартного вывода с автоочисткой????? вообщем хз завтра еще поковыряюсь -- ток тут загвоздка -- ну а длину страницы с 809 чтобы влезть в goto я думаю какнить заделаемс

$- и $+ заполняется только при определенных условиях, мучай perlvar
Про "длину страницы" промолчу)

Там все нормально, два человека уже решили. Был один небольшой багес, но и тот я поправил (тнкс 2 53xShadow)

ну ночь фигли с нее взять -- ну вот как то так

C:\>try.pl
xernia F
DONE!


ps а вообще прикольно иногда так мозг трохан поковырять свой -- чтоб паутиной не зарос

имхо ты не понял как сделал это, а просто случайно подобрал фразу) могу ошибаться, поэтому просто отправь мне в пм подробное объяснение)

#!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"

ксуренг ты или прикалываешься так что уже не смишно или думаешь что я боб марли а вы все гавно -- одно из двух имхо


ну давай разбираться -- чтобы прокатили все проверки нужена строка в которой будет формат чтобы $- начала принимать значения и чтобы содержала букву e чтобы $+=1

итого они должны дать в сумме 3 чтобы прокатило exit print'=('until!($+[0]+$-[0]!=3);

у меня это выполняется буквами xe

далее сделав print (int oct'0x329')*(int(rand0xffffff)**int(rand1); мы получаем число 809 при сравнении с которым идет переброс на метку с выводом DONE!

немного взглянув на строчку $=+=ord$& foreach(split$,) мы понимаем что в она принимает значение за счет суммирования с нее кодов сиволов из введенной строки ну там еще кое что но оно не существенно -- и их суммма должна равняться 809

тут нам нужен любой char декодер
вообщем вставляем перед самым goto -- print "$=\n"; и печатаем чтонить например начинающеееся на xe --- и смотрим какая сумма у нас получилась и сколько нам нехватает то 809 ------ с комбинацией xernia у меня незватало 102 до 809 ну и поэтому пришлось вставить пробел(32) и F(70)

и вуаля получилось то что надо

знаю что ты ща скажешь что ты тупо подобрал или еще ченить в этом духе -- так что могу тебя заверить не волнуйся я полностью разобрался в этом коде

ps нелюблю пм =)