listen+accept+Олька

Нет. Номано распахиваеться notepad'om.



А чо за прога на macme? Инвоков многа?



p.s



program prog; uses windows;

begin

WinExec('C:\\WINDOWS\\notepad.exe C:\\WINDOWS\\system32\\!info.txt', SW_HIDE);

end.



Хм.. прикольно...

 

trash

Еще повезло что инвоками я не пользуюсь.

Все тусую в стек.

Пишу курсач - сетевой червь

 

rmn



WinExec("C:\\WINDOWS\\notepad.exe C:\\WINDOWS\\system32\\worm.txt", SW_HIDE)



Ты гений

 

cmd /c start c:\windows\system32\work.txt

 

Вот еще-ссс...



var

PInf:TProcessInformation;

SInf:TStartupInfo;



procedure SHELL ( cmd : string );

var str:string;

begin

SInf.wShowWindow := 1;

SInf.cb := sizeof(SInf);

str := 'COMMAND.COM /C '+ cmd;

CreateProcessA

( nil,

pch(str),

nil,

nil,

false,

$20,

nil,

nil,

Sinf,

PInf);

WaitForSingleObject(PInf.hProcess, Infinite);

CloseHandle(PInf.hProcess);

end;

 

trash



CreateProcessA хорошо, но получается код длинее.

А я пишу шеллкод.

Все равно спасибо

 

Случайно обнаружил в чем была проблема.

В ольке меня выкидывало на listen,как я писал.

Но я работал в OllyDbg v1.10

В OllyDbg v1.08 все нормально.

Н-да бывает.

Век живи - век учись

 

Тема исчерпана