#--------------------------------------------------------------------
# RU Auto Login
# Date :: 31 Jan 2010
#
# Program Description
# Using :: ru.pl
# -------------------------------------------------------------------
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
my $time = time()+897762620;
if($ARGV[0] != "" || $ARGV[1] != ""){
my $response = $ua->post('https://10.4.51.1/netaccess/connstatus.html',{ sid => $time,login => 'Log+In+Now',});
my $content = $response->content;
my $response = $ua->post('https://10.4.51.1/netaccess/loginuser.html',{ username => $ARGV[0],password => $ARGV[1],Login => 'Continue',sid => $time,});
my $content = $response->content;
}else{
print "Using: ru.pl";
}
#---------------------------------------------------------------------
เป็น Script login เข้าใช้งาน Internet ของมหาวิทยาลัยรามคำแหง Script เขียนด้วย Perl สามารถใช้งานได้ทั้ง Windows และ Linux(ทดสอบใน Ubuntu และ Debian)
เนื่องจากทางมหาวิทยาลัยได้ใช้งาน https เลยต้องลง package เพิ่มสำหรับตัว Active Perl ของ Windows ให้เข้าไปที่ Command line แล้วพิมพ์
ppm
จะมีหน้า pagkage manager ขึ้นมาให้ค้นหาคำว่า crypt-ssleay จะพบ package ดังภาพ
ให้ทำการ Click ขวาแล้วเลือก Install แล้วไปเลือกที่ File->Run marked Action โปรแกรมจะทำการดาวน์โหลดและติดตั้งให้เรียบร้อย
สำหรับ linux นั้นสามารถติดตั้งได้โดยใช้คำสั่้งผ่าน Terminal
aptitude install libcrypt-ssleay-perl
เมื่อเรียกใช้งานให้เรียกแบบ
Filename.pl [username] [password]
ตัวอย่างไฟล์ชื่อ ru.pl
ru.pl myUsername myPassword