Opened by Gast at 2006-04-15 22:04
Ich wollte eine art file-checker coden
und zwar:
er soll ips von einer txt einlesen, und diese nacheinander checken, ob die file index.php da ist oder nicht.
also zb: 127.0.0.1/index.php
wenn die da ist, dann soll er das ausgeben...
mein bisheriger code:
//Modedit GwenDragon: Code-Tags hinzugefügt
ps: ich bin ein anfänger...deshalb bitte nicht lustig drüber machen, sondern mir lieber meine fehler korigieren :)
mfg moki\n\n
<!--EDIT|GwenDragon|1145205950-->
und zwar:
er soll ips von einer txt einlesen, und diese nacheinander checken, ob die file index.php da ist oder nicht.
also zb: 127.0.0.1/index.php
wenn die da ist, dann soll er das ausgeben...
mein bisheriger code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
#!/usr/bin/perl
#verbindung aufbauen (port logischerweise 80/8080)
$host = open(FILE,"ip.txt");
$port = 80;
if(not defined($host)) {
die "\ndatei kann nicht geoeffnet werden!\n";
}
use IO::Socket;
my $sock = new IO::Socket;(
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp'
);
print $sock "GET index.php HTTP/1.1\n";
print $sock "Host: $host\n";
print $sock "Accept: */*\n";
print $sock "Connection: close\n\n";
my @answer=<$sock>;
foreach my $a (@answer) {
print $a;
}
my $answer = <$sock>;
print "$answer\n";
//Modedit GwenDragon: Code-Tags hinzugefügt
ps: ich bin ein anfänger...deshalb bitte nicht lustig drüber machen, sondern mir lieber meine fehler korigieren :)
mfg moki\n\n
<!--EDIT|GwenDragon|1145205950-->