asdasd

use LWP::UserAgent;
#==========IPboard account creator beta 0.1=============================================================================================================================
$prefix = @ARGV[0] or die print "i dont have prefix!\nsyntax: sudo perl ./script.pl \"prefix\" <num_of_accounts> <random_seed>"; #prefix do kont
$count  = @ARGV[1] or die print "i dont have number of accounts!\nsyntax: sudo perl ./script.pl \"prefix\" <num_of_accounts> <random_seed>"; #ilosc kont
$seed   = @ARGV[2] or die print "i dont have random seed!\nsyntax: sudo perl ./script.pl \"prefix\" <num_of_accounts> <random_seed>"; #seed dla programu
#------------------------------------------------------------------------------------------------------
open PASSWORDS, ">>file.pass" or die "cant open $/!"; #plik z baza gdzie zapisujemy login i haslo
@ans = qw(1 2 3 4 5); #pytanie przy rejestracji
@gen = qw(k m u); #plec, m\k & unknown
$ua  = LWP::UserAgent->new;
#\/ zawiera poczatkowa czesc linku
$beg = "poczatek adresu forum, zanim zaczna sie zmienne";
#--------------------------------------------------------------------------------------------------------
for($var = 0; $var<$count;)
{
$random   = $var + $var%$seed - 1 + gen_srand(undef,13754842)+gen_srand($var,145); #pseudolosowa liczba
$ggNUM    = gen_srand(undef,13754842)+gen_srand($var,145); #numer gg
$gender   = @gen[$var%3]; #plec
$answer   = @ans[$var%2]; #odpowiedz na pytanie pomocnicze
$password = "13$random$gender"; #haslo - 13 - liczba losowa - skrot plci
if($var%2==1){$login=$prefix."L$var";} #login - mozliwosc 1
else{$login=$prefix.$var.$seed;} #login - mozliwosc 2
$email = "$prefix$var%40mail.$prefix"; #email - %40 = @
$URL = "$beg a tutaj zaczynaja sie zmienne login, haslo, etc";

$req = HTTP::Request->new(POST => $URL); #tworzenie zapytania
$resp = $ua->request($req); #odpowiedz na zapytanie
if ($resp->is_success) #jesli nie ma bledow
{
   print PASSWORDS "$login : $password\n"; #zapisz do pliku login : haslo
   print "Received reply: $message\n"; #otrzymana wiadomosc <opcjonalnie>
   $var++; #liczba kont++
}
else #jesli sa bledy
{
   print "HTTP POST error code: ", $resp->code, "\n"; #kod bledu
   print "HTTP POST error message: ", $resp->message, "\n"; #wiadomosc bledu
}
}

close PASSWORDS; #zamykanie handla pliku z baza hasel
#--------------------------------------------------------------------------------------------------
#funkcja generujaca liczby pseudolosowe
sub gen_srand #jesli przyjmie 0 argumentow, to losuje na podstawie czasu <0,65k)
{ #jesli przyjmnie (undef,liczba) to generuje na podstawie czasu komputera <0,liczba)
  my $seed  = shift  or time(); #jesli przyjmie (x,y), generuje na podstawie seeda x, <0,y)
  my $range = shift or 0xFFFF;
  return sub
  {
    $seed   = ($seed * 21 + 1) % $range;
  }
}
#=================================================================