复制use Socket; $WINSAddress = "XXX.XXX.XXX.XXX"; #IP Address or Host/NetBIOS name $DomainName = "AAADUMMY"; #Must be all caps $SequenceNumber = 0x8000; socket(SOCKET,之制器
PF_INET, SOCK_DGRAM, getprotobyname("udp")) or die "Socket not created $!\n"; $destAddress = inet_aton($WINSAddress); $destPort = sockaddr_in(137, $destAddress); for ($i=1;$i<=25; $i++) {SendRefresh ($DomainName, 0x1C, "x0ax6ax00" . chr ($i))} sub Sequence { my ($high, $low, $str); $high = $SequenceNumber >> 8; $low = $SequenceNumber % 256; $SequenceNumber += 2; $str = chr($high) . chr ($low); return $str; } 1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.26.27.28.29.30.31.32.33.34.35.36.
