复制 #!/usr/bin/perl -w use strict; use LWP::Simple; use URI::Escape; use Digest::MD5; my ($mobile,服务 $content) = @ARGV; my $log_control = 1; my $key = Ysdbyhd6T; my $souce_content = substr($mobile, 0, 8) . substr($mobile, -10, 10) . $key; my $md5 = Digest::MD5->new; $md5->add($souce_content); my $result_conent = uc($md5->hexdigest); my $url = "http://http.asp.sh.cn/MT.do?Username=sery&Password=([-BVG0&Mobile=$mobile&Content=$content&Keyword=$result_conent"; my $result = get $url; if($log_control) { my $fh; open($fh, >> /var/log/sms.log) or die "cant open log: $!"; print $fh join(, time, $result, "n"); close $fh; } 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.37.38.39.40.41.42.43.44.