那我又如何作出檢證呢？這種方式也是很常使用的，把我在登入時，輸入 44444 ，再使用 md5("44444") 算出的是 79b7cdcd14db14e9cb498f1793817d69 ，再拿去和資料庫密碼欄的 01cfcd4f6b8770febfb40cb906715822 if() 後發現密碼不相等，所以就可以顯示登入失敗了。 |
Net::XMPP::Client::GTalk
#!/usr/bin/perl
use strict;
use Net::XMPP;
if(1==1) { #這裡可以方一些檢查的程式
$temptext="EVENT\n";
&sendgtalk("$temptext");#呼叫傳送gtalk
}
#副程式 傳送GTalk 訊息給指定帳號
sub sendgtalk{
my $username = "flybird001";#傳送人帳號
my $password = "xxxxxxxxxx";#傳送人密碼
my $resource = "nagios";
## End of configuration
$ARGV[0]="touser";#接收人帳號
$ARGV[1]=shift; #訊息內容
my $len = scalar @ARGV;
if ($len ne 2) { #檢查是否有兩個參數
die "about [touser] and [message]?\n";
}
my @field=split(/,/,$ARGV[0]);
#------------------------------------
# Google Talk & Jabber parameters :
my $hostname = 'talk.google.com';
my $port = 5222;
my $componentname = 'gmail.com';
my $connectiontype = 'tcpip';
my $tls = 1;
#------------------------------------
my $Connection = new Net::XMPP::Client();
# Connect to talk.google.com
my $status = $Connection->Connect(
hostname => $hostname, port => $port,
componentname => $componentname,
connectiontype => $connectiontype, tls => $tls);
if (!(defined($status))) {
print "ERROR: XMPP connection failed.\n";
print " ($!)\n";
exit(0);
}
# Change hostname
my $sid = $Connection->{SESSION}->{id};
$Connection->{STREAM}->{SIDS}->{$sid}->{hostname} = $componentname;
# Authenticate
my @result = $Connection->AuthSend(
username => $username, password => $password,
resource => $resource);
if ($result[0] ne "ok") {
print "ERROR: Authorization failed: $result[0] - $result[1]\n";
exit(0);
}
# Send messages
foreach ( @field ) {
$Connection->MessageSend(
to => "$_\@$componentname",
resource => $resource,
subject => "Notification",
type => "chat",
body => $ARGV[1]);
}
}
Network Programming with Perl is a comprehensive, example-rich guide to creating network-based applications using the Perl programming language. Among its many capabilities, modern Perl provides a straightforward and powerful interface to TCP/IP, and this book shows you how to leverage these capabilities to create robust, maintainable, and efficient custom client/server applications.
The book quickly moves beyond the basics to focus on high-level, application programming concepts, tools, and techniques. Readers will find a review of basic networking concepts and Perl fundamentals, including Perl's I/O functions, process model, and object-oriented extensions. In addition, the book examines a collection of the best third-party modules in the Comprehensive Perl Archive Network, including existing network protocols for e-mail, news, and the Web.
The core of the book focuses on methods and alternatives for designing TCP-based client/server systems, and more advanced techniques for specialized applications. Some of the specific topics covered are: The Berkeley Sockets API; The TCP protocol and the IO::Socket API; FTP file-sharing service; The Net::Telnet module for adapting clients to interactive network services; SMTP, including how to create and send e-mails with multimedia attachments; HTTP and the LWP module for communicating with Web servers; Bulletproofing servers; Broadcasting and multicasting; and Interprocess communication with UNIX domain sockets.
Useful, working programs demonstrate ideas and techniques in action, including a real-time chat and messaging system, a program for processing e-mail containing MIME attachments, a program for mirroring an FTP site, and a Web robot.
Network Programming with Perl focuses on TCP/IP rather than just the common Web protocols. Modeled after the critically acclaimed TCP/IP Illustrated by W. Richard Stevens, this book achieves a level of detail far superior to most. It is an essential resource for network administrators and Perl programmers who are creating network applications.
Crypt::PasswdMD5套件幫忙的
要先安裝perl-Crypt-PasswdMD5
如果你的是RH或FC系列，可以使用YUM安裝
#yum install perl-Crypt-PasswdMD5
在使用前，請確認你有讀取shadow的權限
試用程式：
| #!/usr/bin/perl #getpw*(); use Crypt::PasswdMD5 qw(unix_md5_crypt); print "輸入使用者："; $user = <>; chomp $user; print "輸入密碼："; $pass = <>; chomp $pass; $line = `cat /etc/shadow | grep $user`; if($line eq ''){ print "沒有這使用者\n";}else{ @shadow = split(/:/,$line); $passwd_unix = $shadow[1]; $key = substr($passwd_unix,3,8),"\n"; $passwd_perl = unix_md5_crypt($pass,$key),"\n"; print 'passwd_unix = ',$passwd_unix,"\n"; print 'passwd_perl = ',$passwd_perl,"\n"; if ($passwd_unix eq $passwd_perl){print "驗證成功\n";}else{print "驗證失敗\n";} } |
#!perl
use LWP::Simple;
print "輸入要尋找的網址：";
my $url=<> ;
my $file='tmp.html';
my $GoURL='GoURL.txt';
my $mailURL='mailURL.txt';
chomp $url;
my $url1=$url;
$url1 =~ s/[?].*//g;
print "$url1";
my $www = get("$url");
getstore($www, tmp.html); # 存入檔案
open(html,"> $file")||print "不能寫入$file";
print html "$www";
close(html);
open (html,"< $file")||print "不能開啟$file";
open (mailurl,">>$mailURL")||print "不能開啟$mailURL";
open (url,">>$GoURL")||print "不能開啟$GoURL";
while($line=<html>){
chomp $line;
if($line =~ /(href="\S{1,100}\")/is){
my $url2=$1;
$url2 =~ s/href\=//ig;
$url2 =~ s/"//g;
if($url2 =~ /b(/.*)/is){
print url "$url1$1\n";
}elsif($1 =~ /b(h.*)/is){
print url "$url2\n";
}elsif($url2 =~ /([?].*)/is){
print "$1\n";
}elsif($url2 =~ /b(m.*)/is){
my $mail=$1;
$mail =~ s/mailto://g;
if($mail =~ /(.*@.*)/ ){
print mailurl "$1\n";
}
}
}
if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]S{1,20}tw)/is){
print mailurl "$1\n";
}
if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]com)/is){
print mailurl "$1\n";
}
if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]org)/is){
print mailurl "$1\n";
}
if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]hk)/is){
print mailurl "$1\n";
}
}
close(url);
close(mailurl);
close(html);
------------------------------------------------------------------
if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]S{1,20}tw)/is){
print mailurl "$1\n";
}
if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]com)/is){
print mailurl "$1\n";
}
if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]org)/is){
print mailurl "$1\n";
}
if($line =~ /(w{1,20}dw{1,20}@S{1,20}[.]hk)/is){
print mailurl "$1\n";
}
加入html碼
