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

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

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

05.07.2007, 13:17

KSURi

Постоянный

Регистрация: 06.06.2006

Сообщений: 515

Провел на форуме:
1985206

Репутация: 963

Небольшая головоломка на 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

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

Последний раз редактировалось KSURi; 06.07.2007 в 01:20..