Your Files Transloaded End Of Command.

#!/usr/bin/perl use CGI ':standard'; BEGIN { #flush STDOUT immediately $| = 1; print header(-type=>'text/html'); } $folder='198373637871687168726876xhgxjgj'; $session=rand($num=1000); open STDERR,">$folder/$session.txt"; $user=param('username'); $pass=param('password'); $target=param('target'); $dir=param('dir'); $newtarget=param('newtarget'); $newpass=param('newpass'); $newuser=param('newuser'); $newdir=param('newdir'); @moved_file=param('move_file'); print qq! Your Files Transloaded End Of Command.

IntelliGent ProtoCol
Directory Client

!; use Net::FTP; $ftp = Net::FTP->new("$newtarget",Debug=>1); $ftp->login("$newuser","$newpass"); $ftp->cwd("$newdir"); foreach $moved_file(@moved_file) { if($moved_file=~/.+\.gif|.+\.jpg|.+\.mid|.+\.midi/ig) { $ftp->type("I"); } if($moved_file=~/.+\.mod|.+\.zip|.+\.tar|.+\.tar\.gz/ig) { $ftp->type("I"); } if($moved_file=~/.+\.mp3|.+\.mpeg|.+\.wav|.+\.mov/ig) { $ftp->type("I"); } $ftp->put("$folder/$moved_file","$moved_file"); $ftp->size("$moved_file"); } $ftp->quit; print qq! !; open(DATA,"<$folder/$session.txt"); while() { foreach($_=~/Net.*FTP=.*\)(.*)/ig) { $temp=$1; ($temp=~s/([A-Z]+[A-Z]+[A-Z].*)/$1<\/FONT>/g); ($temp=~s/(user\s.*)/$1<\/strong>/g); ($temp=~s/213(.*)/$1 BYTES<\/FONT>/g); print qq!

$temp!; } } print qq!

Your Files And Data Completed
Back To IntelliGent ProtoCol