#!/usr/bin/perl

use Socket;

$bannerkoe=<<END
ambil kurs dari klikbca...
:))

END
;
printlog($bannerkoe);

system("del klikbca.log");

$log="klikbca.log";
#Support Proxy Server, change ip and port as u wish 
#$port=8080;
#$host="210.120.128.117";
$port=80;
$host="172.9.1.11";
$target = inet_aton($host);

#Read last session
open(hf,$fsav);
$lastsav=<hf>;
close(hf);
$check=1;#Check if any save session
$nomer=1;

$googleurl="http://www.klikbca.com";
$httppost="GET $googleurl HTTP/1.0\r\n\r\n";
@results=sendraw($httppost);
$data = join("",@results);
printlog("Kurs di klikbca.com :\n\n");

@tmp=split(/Kurs TT BCA\:\<br\> /,$data);

@u=split(/\<br\>\<\/font\>\<\/A\>/,$tmp[1]);

printlog("$u[0]\n");

###
@tmp=split(/color\=\"\#0000c0\"\>USD/,$data);

@u=split(/\<TR bgcolor\=\'\#f0f0f0\'\>/,$tmp[1]);

@t=split(/\<\/font\>/,$u[0]);

@v=split(/color\=\"\#0000c0\"\>/,$t[1]);

@w=split(/color\=\"\#0000c0\"\>/,$t[2]);

printlog("USD\t JUAL = $v[1]\t BELI = $w[1]\n");

exit;

# ------------- Sendraw - thanx RFP rfp@wiretrip.net
sub sendraw {   # this saves the whole transaction anyway
        my ($pstr)=@_;

        socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp')||0) ||
                die("Socket problems\n");
                
        if(connect(S,pack "SnA4x8",2,$port,$target)){
                my @in;
                select(S);      $|=1;   print $pstr;
                while(<S>){ push @in, $_;}
                select(STDOUT); close(S); return @in;
        }
}

sub printlog {
print @_[0];
open(lo,">>$log");
print lo @_[0];
close(lo);
return;
}