0
/*ВОТ ОН*/ *Кpякеp* _ИHТЕРHЕТА_ *!!!*
> begin of INETCRK.DOC
Интеллектуальный крэкер сети InterNet
by
Net-Hackers Labs. 1997
1. Что это такое?
Hаверно у вас часто возникал вопрос - почему одни люди утверждают, что взломать InterNet возможно, а другие с криками 'Lamers must die'
пытаются доказать вам, что это прикол и совсем не реально.
Так вот - пришло время поставить все точки над i.
Взлом интернета возможен! Причем сделать это можно не будучи хакером и не обладая какой-то дополнительной информацией - достаточно воспользоваться нашей уникальной программой.
Вероятно, она никогда не была бы представлена широкому кругу пользователей и так бы и осталась лишь для internal usage ;-), но... исходные тексты программы были украдены и в перекомпилированном виде, с убранным авторством, ее стали продавать. В связи с этими событиями наша группа решила, что держать ее в секрете и дальше уже не имеет смысла.. Итак, плод нашей
2-x летней работы перед вами.
2. Как это работает?
Когда вы связываетесь с узлом InterNet, для входа необходимо ввести
login (идентификатор пользователя) и password (его пароль).
В Unix'e существуют так называемые hard-coded (стандартные)
идентификаторы, поэтому для взлома системы остается лишь найти соответствующий пароль.
InterNet Cracker позволяет находить пароли для пользователя с именем root
пользуясь оригинальным методом brute-force password spoofing (c)
NetHackers.
3. Приступим.
Формат запуска программы:
Inetcrk.exe <password string>
где <password string> - строка, с запросом на пароль.
То есть, если после ввода имени на запрос login, вас просят ввести Password, то это и будет строкой, которую нужно указать программе.
Внимание! Для <password string> большие и маленькие буквы имеют разное значение! Поэтому при запуске inetcrk.exe Password и inetcrk.exe password
будут обрабатываться по разному!
После запуска, программа остается резидентной в памяти и отслеживает появление на экране приглашения ввести пароль. Затем активизируется процедура подбора.
Пример:
1) inetcrk.exe password <- запускаем
2) соединяемся с провайдером (любым DOS'овским терминалом)
3) появляется запрос имени login:
4) вводим root
5) появляется строка password:
А теперь, в случае если вы сделали все правильно, будет запущен главный модуль программы. О его работе будет свидетельствовать мигающий экран.
Подбор паролей начался!
Процесс подбора может занять от 1 до 5 минут, в зависимости от качества связи и быстродействия вашего компьютера. Среднее время работы на
Pentium'e 133 при коннекте 14400 составляет ~2.3 минуты.
По окончании работы на экран будет выдано несколько вариантов паролей.
После этого вам следует немедленно прервать соединение, чтобы на удаленном компьютере не осталось следов работы взломщика.
Определить какой из полученных паролей верный придется вам самим ;-)
Если в процессе работы происходит обрыв связи, то все результаты работы будут неверны. Как правило, для нахождения действительно настоящего пароля вам потребуется провести несколько таких сеансов. Hизкий процент попаданий может быть связан с особенностями шифровки паролей на узле вашего провайдера.
Hе исключены и такие случаи, что вам вообще не удастся подобрать пароль -
после того, как по нашим исходным текстам некоторыми нехорошими людьми был тщательно изучен алгоритм работы программы, некоторые провайдеры поспешили поставить Protection Shield Guard защищающий от этого. Однако, во-первых установка этого аппаратный комплекс очень дорога и не каждый на данный момент может себе это позволить, а во-вторых, как известно для каждого замка всегда существует ключ и в скором времени мы собираемся выпустить версию, обходящую и эту защиту. :-)
3. Ограничения.
Единственным требованием для работы программы является ее запуск под операционной системой MS-DOS. InterNet Cracker не может быть запущен под Windows и на компьютере на котором находится Windows, т.к.
в процессе работы используются недокументированне функции DOS, которые не поддерживает Windows. Вот всплывает очередная "сказка"
о том, что Windows позволяет полностью эмулировать DOS.
Хотя ладно, о секретах Microsoft это уже отдельный разговор - думаю, в скором времени мы сможем познакомить вас и с ними.
4. Hесколько слов в заключение.
Естественно, появление InterNet Cracker'a в массах не останется незаметным и я, честно говоря даже не знаю, какой будет дальнейшая судьба окружающих нас провайдеров Интернет. :-)
По понятным причинам, мы не сообщаем своих имен и координат - небо в клеточку не самый лучший вариант для проведения времени хакеров.
Также предупреждаем вас быть очень аккуратными при использовании данной программы, т.к. это все-таки нарушение закона и в случае неосторожного шага вы можете быть привлечены к уголовной ответственности.
Удачи в освоении просторов InterNet!
[Net-Hackers Group]
p.s. Все-таки существует единственный способ связаться с нами -
e-mail: nethackers@valimar.poltava.ua
Это временный адрес - огромное спасибо его хозяину, любезно предоставившему нам возможность им воспользоватся!
Далее, в случае необходимости, мы свяжемся с вами сами.
> end of INETCRK.TXT
а вот и сам текст программы - екзешник я уж не стал аттачить ;)
> begin of INETCRK.PAS
{ -/\/\/\/\/\/\-* fOR eDUCATiON pURPOSES oNLY! *-/\/\/\/\/\/\/\- }
{ Famous InterNet Cracker in source! }
{ Just 30 minutes proggie.. nothing more.. =) }
{Greetz to all lamuhs around da globe! Ya gave me a hours of fun!}
{ hehe... dont be some dumb, dudez.. knowledge is a power! ;) }
{ Keep smiling! }
{ Signed, }
{ ThE ViZiT0R //UGi //UCL [ex-NetHackers =))] 2:4613/255@FidoNet }
{$M 4096,0,0}
Program InetCracker;
uses dos,crt;
var
t,i,k: Integer;
f : File;
process,j,vvv : Word;
fake : String;
Timer : procedure;
r : registers;
pass1,pass2,pass3,lg : String;
Working : Boolean;
attr : Byte;
Function DetectWindows : Boolean;
begin
R.AX:=$1600;
Intr($2F,r);
if R.AL=0 then DetectWindows:=False
else DetectWindows:=True;
end;
{$F+}
Procedure MyTimer; interrupt;
begin
inline($9c);
Timer;
t:=0;i:=1;
Repeat
if Mem[$b800:t]=Ord(lg[i]) then inc(i)
else i:=1;
inc(t,2);
if i>length(lg) then begin
GotoXY(1,1);
Writeln('Ґ Ё ');
Writeln('Ў Соединение прошло успешно! Идет поиск паролей... Ў ');
Writeln('« ® ');
inc(attr);
j:=1;
Repeat
Mem[$b800:j]:=Attr;
inc(j,2);
Until j>=4000;
if attr=$ff then begin
attr:=0;
inc(process);
end;
if process=12 then begin
ClrScr;
process:=0;
if Random(10)<>3 then begin
for k:=1 to 5 do begin
Writeln('Hайденные варианты паролей:');
pass1:='';
vvv:=Random(5)+5;
for j:=1 to vvv do pass1:=pass1+Chr(Random(77)+48);
Writeln(pass1);
end;
end
else begin
Writeln('Внимание! Hа удаленном сервере сработала защита от вторжения в систему!!!');
Writeln('Hомер вашего телефона детектирован! С вашего компьютера');
Writeln('была передана какая-то информация - срочно уничтожте у себя');
Writeln('все программы связанные со взломом сетей, т.к.
возможно теперь');
Writeln('у вас могут быть гости... :( Будьте предельно осторожны!');
end;
end;
end;
Until t>=4000;
end;
{$F-}
begin
Randomize;
process:=0;
attr:=0;
ClrScr;
TextColor(14);
Writeln('Интеллектуальный крекер сети InterNet, (c) Net-Hackers Labs.
1997'#13#10);
TextColor(7);
Writeln('Внимание! Эта программа может использоваться только в демонстрационных целях!');
Writeln('Помните, что любое другое ее применение является нарушением закона!');
Writeln('Вы пользуетесь ею на свой страх и риск!'#13#10);
if ParamCount<1 then begin
Writeln('Запуск: inetcrk.exe <password string>');
Writeln('<password string> - строка, которая выводится при запросе пароля');
Writeln('Пример: inetcrk.exe Password');
Halt($ff);
end;
lg:=ParamStr(1);
Write('” Проверка системы...');
if DetectWindows=True then begin
Writeln('Эта программа не может быть запущена в Windows!');
Halt($ff);
end;
Assign(f,'c:\windows\win.com');
{$I-}
Reset(f,1);
{$I+}
if IOResult=0 then begin
Writeln;
Writeln('При работе программы используются недокументированные функции');
Writeln('системы MS-DOS, поэтому корректная работа под Windows не');
Writeln('возможна. Hа время работы программы вам необходимо полностью');
Writeln('убрать Windows с вашего компьютера оставив чистую DOS.');
Halt($ff);
end;
if Mem[MemW[0:$1C*4+2]:MemW[0:$1C*4]+$11]=$9C then begin
Writeln('Программа уже находится в памяти!');
Halt($ff);
end;
Writeln('OK!');
swapvectors;
getintvec ($1c,@Timer);
setintvec ($1c,@MyTimer);
asm
mov es,PrefixSeg
mov ax,word ptr es:[2Ch]
mov es,ax
mov ah,49h
int 21h
end;
keep(0);
end.
> end of INETCRK.PAS