004
21.08.2006, 16:04 Uhr
J-jayz-Z
Perl Crack ala Carte (Operator)
|
Na ja,wenn er nicht weiß,wie ein Portscanner zu schreiben ist, ist es vielleicht etwas überzogen gleich so ein Tier wie nmap zu saugen... Das Prinzip ist ganz einfach. Du baust mir irgendeiner API eine Socketverbindubng zu einem POrt auf und wenn du eine Antwort bekommst,lauscht ein Dienst. Wenn nicht, dann lauscht da keiner. Ganz einfach -- perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="66756e2d736f66742e6465"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"' |