Собственные проги

[Amper]

Great
Это типа ответ?..

 

[Great]

Amper
нет, я ее давно писал еще

 

[BUG(O)R]

Что ж, выложу и я свой новенький:

http://hunger.ru/files/Amd5R.rar

Вес исполняемого модуля 3433 байт

Возможности:
Брут по словарю(скоро добавлю исчё полный перебор)
Брут хешей произвольной длины(1-32 символа)
Брут двойных хешей(скоро добавлю ещё штук пять видов)
Ну и простая функция хеширования строки



Amper

Ты проигрываешь мне в скорости в 1624 раза))
ну и вразмере в 10 раз
Да, ещё и в возможностях тоже
Добавлено в [time]1136995988[/time]
Да, и ещё твой брут вылетает после 4-8 минут работы

 

[nerezus]

1624 раза

ужаснах =) слов нет =)

это чем же надо было писать =)))

 

[zoommm]

http://hunger.ru/files/Amd5R.rar

не работает ссылка

 

[nerezus]

zoommm
хост упал

работаю над этим

 

[st1ng3r]

Вот моя прога...написал несколько дней назад на Delphi
Пока не тестировал на работоспособность, предоставлю это дело вам!
Смысл программы таков:
Она работает попринципу NetSend встроенного в винду...
Но NetSend в винде отправляет одно сообщение за раз, а моя прога это бомбордировщик который может отправить хоть миллион сообщений, тоеть заспамить недруга! Там есть 3 поля для ввода....ну сами разберётесь, всё по русски там написанно....
http://pupkin.jino-net.ru/NetSend.exe

 

[gemaglabin]

st1ng3r я тоже чтото подобное писал от чужого имени можно было отправлять..

function NetSend(Dest, Source, Msg: string): Longint;
  type
TNetMessageBufferSendFunction = function(servername,
                                           msgname,
                                           fromname: PWideChar;
                                           buf: PWideChar;
                                           buflen: Cardinal): Longint; stdcall;
var
NetMessageBufferSend: TNetMessageBufferSendFunction;
SourceWideChar: PWideChar;
DestWideChar: PWideChar;
MessagetextWideChar: PWideChar;
Handle: THandle;
begin
Handle := LoadLibrary('NETAPI32.DLL');
if Handle = 0 then
begin
Result := GetLastError;
Exit;
end;
@NetMessageBufferSend := GetProcAddress(Handle, 'NetMessageBufferSend');
if @NetMessageBufferSend = nil then
begin
Result := GetLastError;
Exit;
end;
MessagetextWideChar := nil;
try
GetMem(MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
GetMem(DestWideChar, 20 * SizeOf(WideChar) + 1);
StringToWideChar(Msg, MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
StringToWideChar(Dest, DestWideChar, 20 * SizeOf(WideChar) + 1);
if Source = '' then
Result := NetMessageBufferSend(nil, DestWideChar, nil,
MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1)
else
begin
GetMem(SourceWideChar, 20 * SizeOf(WideChar) + 1);
StringToWideChar(Source, SourceWideChar, 20 * SizeOf(WideChar) + 1);
Result := NetMessageBufferSend(nil, DestWideChar, SourceWideChar,
MessagetextWideChar, Length(Msg) * SizeOf(WideChar) + 1);
FreeMem(SourceWideChar);
end;
finally
FreeMem(MessagetextWideChar);
FreeLibrary(Handle);
end;
end;

Код не мой

 

[Маринка]

2 st1ng3r:
netsend.bat:

a:
net send 127.0.0.1 Текст 
goto a:

 

[st1ng3r]

gemaglabin
Скажи мне чей код пожалуйста, просто можно было бы его задействовать и усовершенствовать мою программу...
Кстати программа работает?
Маринка

2 st1ng3r:
netsend.bat:

a:
net send 127.0.0.1 Текст
goto a:

Ты хотела сказать что типа альтернатива есть и в BAT ?
Просто я может не так понял...
Кстати программа работает?

 

[Маринка]

2 st1ng3r: есно работает
я хотела сказать : зачем писать программу когда есть скрипты ...

 

[st1ng3r]

Зачем и вправду писать программу когда есть скриты?
А зачем писать скрипты когда есть программа?
Это вопрос сугобо личностный и только автор знает ответ на свой же вопрос...
Мне просто напросто удобней прогу написать чем блокнот ковырять, тем более у проги есть приятный интерфейс, может не такой как у красивого веб-сайта или как супер пупер чего-нибудь...но всё-таки я уважаю больше программу с интерфейсом, чем голый скрипт!
Это моё личное IMHO ничуть не больше того и этого...ну вы поняли
$)

 

[Spawn™]

a:
net send 127.0.0.1 Текст 
goto a:

если это всё закинуть в батник и запустить.. то он попробует открыть диск А ...

Так как сделать чтобы оно определяло А не диском?

может заменить на что то другое?

мне кажется дело в ДВОЕТОЧИИ после буквы... это атрибут диска любого... вот оно и пытается открыть то что находится перед ДВОЕТОЧИЕМ

 

[gemaglabin]

я хотела сказать : зачем писать программу когда есть скрипты ..

Тут ты не права.С помощью батника ты сможешь отправить сообщение от чужого имени?

 

[Маринка]

сорри например так :

:k
net send 127.0.0.1 Текст 
goto k

2 gemaglabin: я не имела ввиду твою программу

 

[Pokoinik]

:yinyang: Пример игры на WinSock. :yinyang:
Клиент и сервер.
Клиент отсылает строку серверу, а тот обртно клиенту.
Сорцы прилогаются.

 

[Pokoinik]

Sorry! Ошибка в сервере - открывал соединение только на 5050-ом порту.
исправил.

 

[Dude03]

Ну что же решил я выложить прогу моего товарища с его согласия
Зацените его сниффер. может кто может чем ему...
SimpleSniffer
Он не претендует ни на что экстранеординарное, но все же... Прсото может быть кто чего хорошего пожскажет :yes2:

 

[XFq]

[DELETE]

 

[Exs42]

Вот написал DLL для упаковки файлов в один и соответсвенно их распаковки на асме...
Скачать|Download
Но есть проблема, почему то сейчас в процессе разработки, DLL нормально работает в Win98 а в 2000 и XP отказывется...
Если кто нибудь может помочь я вышлю исходники на мыло!