精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>电脑技术>>● FreeBSD>>网络应用>>网络连接>>E家宽的perl登录、退出脚本

主题:E家宽的perl登录、退出脚本
发信人: hackerbay(阿土)
整理人: zhcharles(2003-04-05 23:54:27), 站内信件
E家宽用ie登录,为了在freebsd里自动登录,我sniffer了登录过程,然后修改dnip的脚本,用来在开机时自动登录。

你如果要用先sniffer得到你的登录资料,如:

DDDDD=youre-username&upass=youre-pasword&0MKKey=%B5%C7%C2%BC%28Login%29

--------------登录脚本-----------

#!/usr/bin/perl
#login.pl
#
# DNIP ip update utility (perl)
#
# Author : hollywar <[email protected]>
# $Date: 2000/12/22 03:32:59 $
#
# $Revision: 1.6 $
#
# Usage : Change the 'ID', 'PASSWORD' to your own one
#         and just run this script.
#
# If you want to set your ip address directly, 
# change the 'AUTO' to your real ip address in ADDRESS section.
# (ex. ADDRESS="0.0.0.0")
#
# Free Dynamic Domain Name Server Service DNIP.NET (http://www.dnip.net)
#

use Socket ;

$ID="youre-username" ;
$PASSWORD="youre-password" ;
#你的登录服务器地址。
$ADDRESS="10.33.225.29" ;


$REMOTE="10.1.99.2" ;
$PORT="80" ;

$iaddr = inet_aton($REMOTE) ;
$paddr = sockaddr_in($PORT,$iaddr) ;
$proto = getprotobyname('tcp') ;
socket(SOCK,PF_INET,SOCK_STREAM,$proto) ;
connect(SOCK,$paddr) ;

#$msg = "GET /update.cgi?id=$ID&password=$PASSWORD&step=2&address=$ADDRESS HTTP/1.0\n" . "User-Agent: DNIP PERL/0.1\n\n" ; 
$msg = "POST / HTTP/1.1\nAccept: text/html\nReferer: http://10.1.99.2/\nContent-type: application/x-www-form-urlencoded\nUser-Agent:  Mozilla/4.0\nHost: 10.1.99.2\nContent-length: 59\n\nDDDDD=$ID&upass=$PASSWORD&0MKKey=%B5%C7%C2%BC%28Login%29\n\n" ; 

send(SOCK,$msg,0) ;

#while($line = <SOCK>) {
#    if ($check==1) { print "$line" ;}
#    if ($line =~ /^.*Content-Type/) {$check = 1 ; }
#}

close(SOCK) ;

1 ;

#
# $Id: update_perl.sh,v 1.6 2000/12/22 03:32:59 tsoi Exp $
#


-----------------------------------------下面是退出的------------------


#!/usr/bin/perl
#logout.pl
# DNIP ip update utility (perl)
#
# Author : hollywar <[email protected]>
# $Date: 2000/12/22 03:32:59 $
#
# $Revision: 1.6 $
#
# Usage : Change the 'ID', 'PASSWORD' to your own one
#         and just run this script.
#
# If you want to set your ip address directly, 
# change the 'AUTO' to your real ip address in ADDRESS section.
# (ex. ADDRESS="0.0.0.0")
#
# Free Dynamic Domain Name Server Service DNIP.NET (http://www.dnip.net)
#

use Socket ;

$ID="19v19btwa" ;
$PASSWORD="888888" ;
$ADDRESS="10.33.225.29" ;


$REMOTE="10.1.99.2" ;
$PORT="80" ;

$iaddr = inet_aton($REMOTE) ;
$paddr = sockaddr_in($PORT,$iaddr) ;
$proto = getprotobyname('tcp') ;
socket(SOCK,PF_INET,SOCK_STREAM,$proto) ;
connect(SOCK,$paddr) ;

#$msg = "GET /update.cgi?id=$ID&password=$PASSWORD&step=2&address=$ADDRESS HTTP/1.0\n" . "User-Agent: DNIP PERL/0.1\n\n" ; 
$msg = "GET /F HTTP/1.1\nAccept: text/html\nReferer: http://10.1.99.2/F\nContent-type: application/x-www-form-urlencoded\nUser-Agent:  Mozilla/4.0\nHost: 10.1.99.2\n\n" ; 

send(SOCK,$msg,0) ;

#while($line = <SOCK>) {
#    if ($check==1) { print "$line" ;}
#    if ($line =~ /^.*Content-Type/) {$check = 1 ; }
#}

close(SOCK) ;

1 ;

#
# $Id: update_perl.sh,v 1.6 2000/12/22 03:32:59 tsoi Exp $
#



----
你改变不了环境,但你可以改变自己;  
你改变不了事实,但你可以改变态度;
  
你改变不了过去,但你可以改变现在; 
 
你不能控制他人,但你可以掌握自己;  
你不能预知明天,但你可以把握今天; 
 
你不能左右天气,但你可以改变心情; 
 
你不能选择容貌,但你可以展现笑容; 
 
你不可以样样顺利,但你可以事事尽心; 
 
你不能延伸生命的长度,但你可以决定生命的宽度. 
 

[关闭][返回]