ANTICHAT.XYZ    VIDEO.ANTICHAT.XYZ    НОВЫЕ СООБЩЕНИЯ    ФОРУМ  
Баннер 1   Баннер 2
Antichat снова доступен.
Форум Antichat (Античат) возвращается и снова открыт для пользователей. Здесь обсуждаются безопасность, программирование, технологии и многое другое. Сообщество снова собирается вместе.
Новый адрес: forum.antichat.xyz
Вернуться   Форум АНТИЧАТ > Программирование > PHP, PERL, MySQL, JavaScript
Перезагрузить страницу Небольшая головоломка на Perl
   
Ответ
Страница 1 из 2 1 2 >
 
Опции темы Поиск в этой теме Опции просмотра

Небольшая головоломка на Perl
  #1  
Старый 05.07.2007, 13:17
Аватар для KSURi
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..
 
Ответить с цитированием

  #2  
Старый 05.07.2007, 13:25
Аватар для Digimortal
Digimortal
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796

Репутация: 1095


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

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

  #3  
Старый 05.07.2007, 13:29
Аватар для KSURi
KSURi
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
Провел на форуме:
1985206

Репутация: 963


По умолчанию
Цитата:
Сообщение от Digimortal  
>> Если пришлете одно из двух хек-слов, подходящих туда - ставлю репу ггг

а почему тока двух ? их там многа можна придумать.. )
Ну два которых мне больше всего нравятся)
 
Ответить с цитированием

  #4  
Старый 05.07.2007, 16:50
Аватар для slider
slider
Members of Antichat - Level 5
Регистрация: 04.09.2005
Сообщений: 528
Провел на форуме:
6520559

Репутация: 2947


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

  #5  
Старый 05.07.2007, 20:46
Аватар для Helios
Helios
Постоянный
Регистрация: 14.01.2007
Сообщений: 459
Провел на форуме:
1469995

Репутация: 589
Отправить сообщение для Helios с помощью ICQ
По умолчанию
Мда, без perlvar'а сразу и не допер, а вообще прикольно=)
 
Ответить с цитированием

  #6  
Старый 06.07.2007, 00:29
Аватар для [53x]Shadow
[53x]Shadow
Leaders of Antichat
Регистрация: 25.01.2007
Сообщений: 341
Провел на форуме:
3372120

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

  #7  
Старый 06.07.2007, 01:20
Аватар для KSURi
KSURi
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
Провел на форуме:
1985206

Репутация: 963


По умолчанию
Цитата:
Сообщение от [53x]Shadow  
В принципе работает вот так без правки исходов
D:\>perl script.pl 111
DONE!
Вместо 111 любой набор в кач. параметров =)
Хитрюга) Поправил
 
Ответить с цитированием

  #8  
Старый 07.07.2007, 14:02
Аватар для KSURi
KSURi
Постоянный
Регистрация: 06.06.2006
Сообщений: 515
Провел на форуме:
1985206

Репутация: 963


По умолчанию
Что-то не густо народу взялось=\
 
Ответить с цитированием

  #9  
Старый 10.07.2007, 21:43
Аватар для Digimortal
Digimortal
Banned
Регистрация: 22.08.2006
Сообщений: 608
Провел на форуме:
6144796

Репутация: 1095


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

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

  #10  
Старый 11.07.2007, 00:34
Аватар для genom--
genom--
Постоянный
Регистрация: 09.07.2006
Сообщений: 937
Провел на форуме:
1948091

Репутация: 1686


По умолчанию
ксурь - ты опять за старое? =)
 
Ответить с цитированием
Ответ
Страница 1 из 2 1 2 >



« Предыдущая тема | Следующая тема »
Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Опасность ошибок Perl недооценивалась? 1251soldier Мировые новости 0 01.12.2005 20:56
Books Perl FRAGNATIC PHP, PERL, MySQL, JavaScript 0 11.08.2005 16:58
Безопасность приложений на Perl k00p3r Чужие Статьи 0 12.06.2005 09:39



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT.XYZ