Help for this page

Select Code to Download


  1. or download this
    use Socket;
my $out = `echo BAABAAXwAACkAAAAAAABLAAAAAAAAAAArBQEKA==|base64 -d`;
...
print substr ((unpack "H*", $out), -8);
print "\n";
print inet_ntoa(substr $out, -4);
  2. or download this
    VinsWorldcom@C:\Users\VinsWorldcom\tmp> test.pl
0400010005f00000a40000000000012c0000000000000000ac140428
ac140428
172.20.4.40