Bimatampan’s Weblog

Februari 19, 2009

[PERL] Travian Auto Create User

Diarsipkan di bawah: Uncategorized — bimatampan @ 8:11 pm

Game Online Travian merupakan salah satu game yg populer, saat ini.
Berbagai macam cara digunakan untuk “melancarkan” permainan yg memaksa kita untuk “bersabar” ini….. :D
Mulai dari bot java, bot js greasemonkey, sampe2 ada yg menjual jasa untuk melancarkan/menaikkan ranking user.
Salah satu cara untuk membantu account utama kita adalah dengan jalan membikin klonengan2, aga bisa mengirim SDA ke account utama (katanya begitu sih……).

Berikut ini adalah skrip auto create user travian alias penciptaan klonengan2 baru yg katanya bisa membantu account utama kita, bisa digunakan untuk server speed, s2, s3, maupun s4 travian indonesia.
Dapat diunduh di sini :D .

Cara lain membuat klonengan adalah dengan menggunakan trik gmail, bisa dilihat di forum CP.
Silahkan tulisakan kritik dan saran di baris komentar…… :D

Februari 10, 2009

Yahoo Messenger lewat web

Diarsipkan di bawah: curhat, komputer, seluler, umum — bimatampan @ 7:55 am

Setelah capek berbingung ria mencari alternatip pengganti YM6 (di saat menggunakan koneksi dengan query), maka ketemulah apa yang di idam2 kan…. :D

Yahoo Messenger via web situs yahoo asli yang kutahu selama ini adalah versi mobile nya :

http://m.yahoo.com/

ternyata yahoo messenger sudah ada versi web nya…. (udah pada tau ya… :D ).

http://webmessenger.yahoo.com/

terasa lebih ringan daripada meebo yang bikin mabok…..koneksinya…

atau anda punya alternatip YM via web yg laen (selain ebuddy dan meebo tentunya) ???

pertamax gan

Februari 3, 2009

[PHP] Indosat Community Free SMS

Diarsipkan di bawah: Uncategorized — bimatampan @ 9:11 am

Setelah sebelumnya menyusun versi perl nya IndosatCommunity Free SMS,
sekarang versi PHP atau web nya yg dijajal….. :D

isat kirim sms php web

Masalahnya adalah Verification Code yang salah terus, padahal sebenarnya sudah bener input parameternya.

Setelah ditelusuri, ternyata PHP curl yang kugunakan ini memiliki masalah dengan opsi httpheader nya (CURLOPT_HTTPHEADER).

Maksud hati ingin menambahkan header :

Content-type: application/x-www-form-urlencoded

apa daya PHP nya kok nggak nge respons….. :D

BTW, ini pake template libmentarisms bikinan ftp_geo aka uliansyah.

bisa dilihat di :

http://kurangkerjaan.wordpress.com/tag/freesms/lib-mentarisms/

ok, barangkali ada yang punya solusi ??? :D

Januari 14, 2009

[PERL] Indosat Community Free SMS

Diarsipkan di bawah: Uncategorized — bimatampan @ 7:59 am

Setelah sekian lama gak ada wrapper nya Indosat SMS Gretong,

maka saya mencoba membuat prototip nya dengan perl…..

Hasilnya dapat dilihat seperti pada gambar berikut :

isat kirim sms web

Versi berikutnya memungkinkan dipakenya multi user,

karena indosatcommunity.com hanya mengijinkan 5 sms/hari tiap user.

Ada yang tertarik meng-convert-nya ke PHP ???

SHOUT to DOGLONG aka n3wbi3s : silahkan di convert bro…… :D

Januari 11, 2009

Petunjuk pemakaian skrip perl

Diarsipkan di bawah: blog, komputer, seluler, umum — bimatampan @ 9:18 am

Karena ada banyaknya pertanyaan mengenai bagaimana cara pemakaian skrip perl TBYB dan Rapidshare, maka berikut ini sedikit petunjuknya :

DI WINDOWS :

Download dulu activeperl di :

http://www.activestate.com/activeperl/

lalu install di windows anda.

khusus untuk skrip rapidshare, anda harus menambahkan modul
Crypt-SSLeay, karena memerlukan koneksi https/ssl, dengan cara
mengetikkan di command prompt :

C:\ppm install http://theoryx5.uwinnipeg.ca/ppms/Crypt-SSLeay.ppd

untuk menjalankan skrip perl nya, tinggal ketik di command prompt :

C:\>skrip.pl

cara yang lain di windows adalah menggunakan cygwin,
tapi nginstallnya lebih beresiko gagal, karena membutuhkan koneksi
internet yang stabil.

DI LINUX :

Paket perl secara native telah terinstall di linux,
jadi anda tinggal jalankan di linux box anda perintah :

$chmod +x skrip.pl
$./skrip.pl

jika modul Crypt-SSLeay belum terinstall di linux box anda,
maka anda harus menginstallnya dulu sesuai dengan petunjuk
masing2 distro.

silahkan menambahkan atau memberi komentar/pertanyaan lagi
seputar petunjuk pemakaian skrip perl ini.

THX.

Januari 5, 2009

[PERL] UPDATE Rapidshare Premium User Checker

Diarsipkan di bawah: blog, komputer, seluler, umum — bimatampan @ 6:02 am

Ada sedikit perubahan pada code, karena skrip lama akan langsung
mengeksekusi “die” sewaktu hasil parsing pada iterasi multi user checker nya tidak cocok. Hal ini akan membuat proses pengecekan multi user akan langsung berhenti.

Di skrip update v003 ini, proses akan terus berlangsung, sampai user terakhir selesai dicek.

Silahkan mengunduh skrip baru di geocities lagi :D .

Silahken bila ada komentar || saran lagi….. :D

THX.

Januari 4, 2009

[PERL] Rapidshare Premium User Checker

Diarsipkan di bawah: blog, komputer, seluler — bimatampan @ 11:14 pm

Setelah merasa membutuhkan tool untuk mengecek kevalidan premium
user rapidshare, maka saya membuat skrip kecil dengan perl.

Fasilitas :
[+] Single user checker
[+] Multi User checker
[+] Support Proxy

rapidshare premix checker

untuk cek multi user, buat satu file, misalnya : “cekuserpremix.txt” ,

isi dengan format :


userrapid:passwordrapid

contoh :


7598271:www.freekonta.pl
Didadidadoum:www.freekonta.pl
1549391:www.freekonta.pl

Berikut ini code perl nya :


#!/usr/bin/perl
#
# rapidcheckuserv002.pl

use strict;
use LWP;
use HTTP::Cookies;
use Getopt::Std;
use Crypt::SSLeay;

my $bannerku=<new;
push @{ $browser->requests_redirectable }, 'POST';
$browser -> agent($Agent);
if ($opt_p) {
if ($opt_p=~m/(.+?)\:(.+?)\@((?:.+?)\:(?:.+))/) {
$opt_p = "http://$3";
$ENV{HTTPS_PROXY} = $opt_p;
$ENV{HTTPS_PROXY_USERNAME} = $1;
$ENV{HTTPS_PROXY_PASSWORD} = $2;
#$browser ->proxy(['http', 'https'], 'http://'.$opt_p.'/') if ($opt_p);
#$browser ->proxy(['https'], 'https://'.$opt_p.'/') if ($opt_p);
} elsif ($opt_p=~m/((?:.+?)\:(?:.+))/) {
$opt_p = "http://$1";
$ENV{HTTPS_PROXY} = $opt_p;
} else {
printlog ("\n[*] Silahken memasukkan Opsi Proxy seperti pada contoh !!!\n\n");
die("\n");
}
}
$browser ->timeout(45);
my @waktu = localtime(time);
my $log = 'rapidcuv002-'.$waktu[3].($waktu[4]+1).($waktu[5]+1900).'-'.$waktu[2].'-'.$waktu[1].'-'.$waktu[0].'.txt';
my $kokis = "lwpcookiesrapidcuv002.txt";
$browser->cookie_jar(HTTP::Cookies->new(file => $kokis, autosave => 1));

my $url = "https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi";

printlog ("\n[*] Processing: $url .....\n\n");
#printlog ("\n[*] Processing: $user :: $passwod\n\n");

if ($opt_l) {
if ($opt_l=~m/(.+?)\:(.+)/) {
#$user = $1;
#$passwod = $2;
printlog ("\n[*] Processing: $1 :: $2\n\n");
&poss($url,$1,$2);
} else {die("\n[~] Format user:password salah !!!\n\n");}
}
elsif ($opt_f) {
open(UF, $opt_f) || die "\nI can't open the list\n";
@daptar=;
close(UF);
foreach $elemen(@daptar){
chomp($elemen);
if ($elemen=~/(.+):(.+)/) {
printlog ("\n[*] Processing: $1 :: $2\n\n");
&poss($url,$1,$2);
} #of if
sleep 1;
} #of foreach
}
else {
printlog ("\n[*] Silahken memasukkan Opsi seperti pada contoh !!!\n\n");
die("\n");
}

sub poss {
my $uurl = shift;
my $uuser = shift;
my $upasswod = shift;

my $lihat = HTTP::Request->new(POST => $uurl);
$lihat->content_type('application/x-www-form-urlencoded');
$lihat->referer('https://ssl.rapidshare.com/premiumzone.html');
my $loginsend = 'uselandingpage=1&'.
'login='.$uuser.'&'.
'password='.$upasswod;
$lihat->content-length($loginsend);
$lihat->content($loginsend);
my $lihatresponse = $browser->request($lihat);
if ($lihatresponse->is_success) {
#printlog($lihatresponse->as_string);
my $kutukupret=join("",$lihatresponse->as_string);
#my $cucok=$kutukupret=~m/Overview of the Account\: (.+?)\\\/sg;
if ($kutukupret=~m/Overview of the Account\: (.+?)\\\/sg) {
printlog("\n[+] Login Premium Account $1 Berhasil\n");
}
elsif ($kutukupret=~m/\

Your Premium Account has not been found\.\/sg) {
printlog("\n[+] Your Premium Account has not been found. \n\n");
die("[-] Error...\n\n");
}
elsif ($kutukupret=~m/\

The Account has been found\, but the password is incorrect\.\/sg) {
printlog("\n[+] The Account has been found, but the password is incorrect. \n\n");
die("[-] Error...\n\n");
}
else { printlog("\n[-] Login Gagal ! Mungkin diblokir atau Password salah.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/\ Expiration date\:\ \(.+?)/sg) {
printlog("\n[+] Tanggal Expired : $1 \n");
}
else { printlog("\n[-] TGL Expired Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/\ Traffic left\:\\ \\document\.write\(setzeTT\(\"\"\+Math\.ceil\((.+?)\)\)\)\;\ (.+?)\\/sg) {
printlog("\n[+] Traffic left : $1 $2 ");
}
else { printlog("\n[-] Traffic left 1 Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/credited to the download quota\.\'\)\" style\=\"cursor\:help\"\>(.+?)\\)\\/sg) {
printlog("($1) \n");
}
else { printlog("\n[-] Traffic left 2 Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/\ RapidPoints\:\\ \(.+?)\\/sg) {
printlog("\n[+] RapidPoints : $1 \n");
}
else { printlog("\n[-] RapidPoints Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/\ Server time\:\\ \(.+?)\\/sg) {
printlog("\n[+] Server time : $1 \n");
}
else { printlog("\n[-] Server time Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/\ Used storage\:\\ \\document\.write\(setzeTT\(\"(.+?)\"\)\)\(.+?)\\/sg) {
printlog("\n[+] Used storage : $1 $2\n");
}
else { printlog("\n[-] Used storage Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/help\"\>RapidPoints PU\\:\\ \(.+?)\\/sg) {
printlog("\n[+] RapidPoints PU : $1 \n");
}
else { printlog("\n[-] RapidPoints PU Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/\ TrafficShare left\:\\ \(.+?)\\/sg) {
printlog("\n[+] TrafficShare left : $1 \n");
}
else { printlog("\n[-] TrafficShare left Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}
if ($kutukupret=~m/\ Files\:\\ \(.+?)\\/sg) {
printlog("\n[+] Files : $1 \n");
}
else { printlog("\n[-] Files Gagal ! Mungkin diblokir atau overlimit.\n");
printlog($lihatresponse->as_string);
die("[-] Error...\n\n");
}

}
else {
print "[-] Error: ".$lihatresponse->status_line."\n\n" ; printlog ($lihatresponse->as_string);
die("[-] Error...\n\n");
}
printlog ("\n[*] *************\n\n");
} #end of sub

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

maap, kalo penulisan codenya jadi kacau,
silahken donglotz di geocities.

cek multi user rapid lebih maknyuz…..

ini file log nya :

[*] Processing: https://ssl.rapidshare.com/cgi-bin/premiumzone.cgi .....

[*] Processing: rapidhackhit :: philips

[+] Login Premium Account rapidhackhit Berhasil

[+] Tanggal Expired : Mon, 2. Feb 2009

[+] Traffic left : -3062217/1000 MB (+0 GB)

[+] RapidPoints : 2000

[+] Server time : 04.01.2009 16:54:57

[+] Used storage : 14 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 4

[*] *************

[*] Processing: 7337748 :: Ftd4g6te

[+] Login Premium Account 7337748 Berhasil

[+] Tanggal Expired : Thu, 21. May 2009

[+] Traffic left : -3033957/1000 MB (+0 GB)

[+] RapidPoints : 6000

[+] Server time : 04.01.2009 16:55:15

[+] Used storage : 0 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 0

[*] *************

[*] Processing: 3578799 :: 5TKFme5hUB

[+] Login Premium Account 3578799 Berhasil

[+] Tanggal Expired : Mon, 5. Jan 2009

[+] Traffic left : -2328952/1000 MB (+0 GB)

[+] RapidPoints : 17000

[+] Server time : 04.01.2009 16:55:48

[+] Used storage : 0 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 1

[*] *************

[*] Processing: 800953 :: 473680

[+] Login Premium Account 800953 Berhasil

[+] Tanggal Expired : Fri, 20. Feb 2009

[+] Traffic left : -2207469/1000 MB (+0 GB)

[+] RapidPoints : 19000

[+] Server time : 04.01.2009 16:56:19

[+] Used storage : 0 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 1

[*] *************

[*] Processing: stipo :: eeepc

[+] Login Premium Account stipo Berhasil

[+] Tanggal Expired : Sun, 19. Apr 2009

[+] Traffic left : -3369326/1000 MB (+0 GB)

[+] RapidPoints : 7000

[+] Server time : 04.01.2009 16:56:51

[+] Used storage : 2 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 2

[*] *************

[*] Processing: 7609420 :: cB3Xsd3418Tuv3y9Y

[+] Login Premium Account 7609420 Berhasil

[+] Tanggal Expired : Fri, 13. Mar 2009

[+] Traffic left : -4302137/1000 MB (+0 GB)

[+] RapidPoints : 3000

[+] Server time : 04.01.2009 16:57:23

[+] Used storage : 41 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 3

[*] *************

[*] Processing: 555816 :: 305509

[+] Login Premium Account 555816 Berhasil

[+] Tanggal Expired : Wed, 14. Jan 2009

[+] Traffic left : -3355262/1000 MB (+0 GB)

[+] RapidPoints : 7000

[+] Server time : 04.01.2009 16:58:00

[+] Used storage : 0 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 1

[*] *************

[*] Processing: 7337748 :: Ftd4g6te

[+] Login Premium Account 7337748 Berhasil

[+] Tanggal Expired : Thu, 21. May 2009

[+] Traffic left : -3033957/1000 MB (+0 GB)

[+] RapidPoints : 6000

[+] Server time : 04.01.2009 16:58:38

[+] Used storage : 0 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 0

[*] *************

[*] Processing: 7490064 :: zwd9ab

[+] Login Premium Account 7490064 Berhasil

[+] Tanggal Expired : Sat, 3. Jan 2009

[+] Traffic left : 12000000/1000 MB (+0 GB)

[+] RapidPoints : 0

[+] Server time : 04.01.2009 16:59:11

[+] Used storage : 0 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 5.00 GB

[+] Files : 0

[*] *************

[*] Processing: 5792166 :: www.rapidhack.pl

[+] Login Premium Account 5792166 Berhasil

[+] Tanggal Expired : Mon, 9. Feb 2009

[+] Traffic left : 799287/1000 MB (+16 GB)

[+] RapidPoints : 12100

[+] Server time : 04.01.2009 16:59:48

[+] Used storage : 312 MB

[+] RapidPoints PU : 0

[+] TrafficShare left : 21.00 GB

[+] Files : 2

[*] *************

TO DO :
[+] Ngatasin versi bahasa german nya….. :D
[+] Pengennya langsung check masih ada quota kagak….

Ada komentar || saran ?

Desember 27, 2008

YF Auto Create User + aktivasi TBYB

Diarsipkan di bawah: blog, komputer, seluler, umum — bimatampan @ 11:24 am

Ternyata enak juga pake YF client editan bang rizal2gb….. :D

THX to bang rizal2gb.

kagak pake ribet banyak kotak peringatan, kagak perlu install segala ;D

Yang jadi masalah, kalo pengen kecepatan dan durasi nya gak dibatasi,

kita harus beli premium account YF nya  :(

atau pake cara lain dengan menggunakan fasilitas Try Before You Buy,

pilih paket TOTAL, dengan durasi 4 jam dan kecepatan tidak dibatasi.

Untuk mempersingkat perolehan user YF dengan fasilitas TBYB,

maka saya membuat satu skrip kecil yang bisa sekali jalan aja.

auto create user YF

hmmmmm…… yummy……. :D

salam buat warga CP yang telah banyak memberikan inspirasi……

EDIT & UPDATE : 8 jan 2009

ini dia source codenya. :D .

UPDATE : 5 pebruari 2009

ini dia update source codenya. :D .

silahken apabila ada komentar dan saran… :D

Agustus 22, 2008

[PERL] URL Link Grabber

Diarsipkan di bawah: blog — bimatampan @ 8:49 am

Jika anda melihat satu halaman web dan ingin mengambil semua alamat URL yang ada di halaman tersebut, maka anda membutuhkan Link URL Grabber. Aku menyusunnya berdasarkan contoh di dokumentasi perl modul HTML::LinkExtor dan skrip rss2html. Jadi sebagian kode diambil dari kedua sumber di atas. Berikut ini kode sumbernya :

[code] #!/usr/bin/perl

#

use strict;
use LWP::UserAgent;
use HTML::LinkExtor;
use URI::URL;
use Getopt::Std;

getopts('t:f:');
our($opt_t, $opt_f);

my $url = $opt_t;  # for instance
my $log = $opt_f;
my $item;
my $ua = LWP::UserAgent->new;

die("\n[~] Must be fill the target url !!!\nUsage : $0 -t \"http://www.google.co.id\" -f \"tesku.html\"\n") if not ($opt_t);

# Set up a callback that collect image links
my @imgs = ();
sub callback {
my($tag, %attr) = @_;
return if $tag ne 'a';  # we only look closer at <img ...>
push(@imgs, values %attr);
}

# Make the parser.  Unfortunately, we don't know the base yet
# (it might be diffent from $url)
my $p = HTML::LinkExtor->new(\&callback);

# Request document and parse it as it arrives
my $res = $ua->request(HTTP::Request->new(GET => $url),
sub {$p->parse($_[0])});

# Expand all image URLs to absolute ones
my $base = $res->base;
@imgs = map { $_ = url($_, $base)->abs; } @imgs;

# Print them out
#print join("\n", @imgs), "\n";

&printlog(<<HTML);
<title>Result of Live Link Extractor</title>
<table bgcolor="#000000" border="0" width="200"><tr><td>
<TABLE CELLSPACING="1" CELLPADDING="4" BGCOLOR="#FFFFFF" BORDER=0 width="100%">
<tr>
<td valign="middle" align="center" bgcolor="#EEEEEE"><font color="#000000" face="Arial,Helvetica"><B><a href="http://bimatampan.wordpress.com">BimaTampan's Blog</a></B></font></td></tr>
<tr><td>
HTML

# print the channel items
foreach $item (@imgs) {
#next unless defined($item->{'title'}) && defined($item->{'link'});
&printlog("<li><a href=\"$item\">$item</a><BR>\n");
}

&printlog(<<HTML);
</td>
</TR>
</TABLE>
</td></tr></table>
HTML

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

Skrip ini akan men-download halaman yang dimaksud dan kemudian akan mem-parsing-nya dengan mengumpulkan hasilnya ke sebuah array (kumpulan link URL), terakhir akan menampilkan isi array tersebut ke sebuah file html yang berisi live link URL nya (bisa diklik langsung). Contoh :

[code] E:\data\linkextract>linkex_0003.pl -t "http://www.google.co.id" -f "tes123.html" <title>Result of Live Link Extractor</title>
<table bgcolor="#000000" border="0" width="200"><tr><td>
<TABLE CELLSPACING="1" CELLPADDING="4" BGCOLOR="#FFFFFF" BORDER=0 width="100%">
<tr>
<td valign="middle" align="center" bgcolor="#EEEEEE"><font color="#000000" fac
e="Arial,Helvetica"><B><a href="http://bimatampan.wordpress.com">BimaTampan's Bl
og</a></B></font></td></tr>
<tr><td>
<li><a href="http://images.google.co.id/imghp?hl=id&tab=wi">http://images.google
.co.id/imghp?hl=id&tab=wi</a><BR>
<li><a href="http://groups.google.co.id/grphp?hl=id&tab=wg">http://groups.google
.co.id/grphp?hl=id&tab=wg</a><BR>
<li><a href="http://books.google.co.id/bkshp?hl=id&tab=wp">http://books.google.c
o.id/bkshp?hl=id&tab=wp</a><BR>
<li><a href="http://blogsearch.google.co.id/?hl=id&tab=wb">http://blogsearch.goo
gle.co.id/?hl=id&tab=wb</a><BR>
<li><a href="http://mail.google.com/mail/?hl=id&tab=wm">http://mail.google.com/m
ail/?hl=id&tab=wm</a><BR>
<li><a href="http://www.google.co.id/intl/id/options/">http://www.google.co.id/i
ntl/id/options/</a><BR>
<li><a href="http://www.google.co.id/dirhp?hl=id&tab=wd">http://www.google.co.id
/dirhp?hl=id&tab=wd</a><BR>
<li><a href="http://picasaweb.google.co.id/home?hl=id&tab=wq">http://picasaweb.g
oogle.co.id/home?hl=id&tab=wq</a><BR>
<li><a href="http://docs.google.com/?hl=id&tab=wo">http://docs.google.com/?hl=id
&tab=wo</a><BR>
<li><a href="http://www.google.co.id/url?sa=p&pref=ig&pval=3&q=http://www.google
.co.id/ig%3Fhl%3Did%26source%3Diglk&usg=AFQjCNEaYzT2ATjWTNBxNj1-0CqEhXatDA">http
:/ /www.google.co.id/url?sa=p&pref=ig&pval=3&q=http://www.google.co.id/ig%3Fhl%3D
id%26source%3Diglk&usg=AFQjCNEaYzT2ATjWTNBxNj1-0CqEhXatDA</a><BR>
<li><a href="https://www.google.com/accounts/Login?continue=http://www.google.co
.id/&hl=id">https://www.google.com/accounts/Login?continue=http://www.google.co.
id/&hl=id</a><BR>
<li><a href="http://www.google.co.id/search?q=Beijing+2008&hl=id">http://www.goo
gle.co.id/search?q=Beijing+2008&hl=id</a><BR>
<li><a href="http://www.google.co.id/advanced_search?hl=id">http://www.google.co
.id/advanced_search?hl=id</a><BR>
<li><a href="http://www.google.co.id/preferences?hl=id">http://www.google.co.id/
preferences?hl=id</a><BR>
<li><a href="http://www.google.co.id/language_tools?hl=id">http://www.google.co.
id/language_tools?hl=id</a><BR>
<li><a href="http://www.google.co.id/setprefs?sig=0_Wlj5UMtqXY_7NCUJX1ONlS1_TnU=
&hl=en">http://www.google.co.id/setprefs?sig=0_Wlj5UMtqXY_7NCUJX1ONlS1_TnU=&hl=e
n</a><BR>
<li><a href="http://www.google.co.id/setprefs?sig=0_Wlj5UMtqXY_7NCUJX1ONlS1_TnU=
&hl=jw">http://www.google.co.id/setprefs?sig=0_Wlj5UMtqXY_7NCUJX1ONlS1_TnU=&hl=j
w</a><BR>
<li><a href="http://www.google.co.id/intl/id/ads/">http://www.google.co.id/intl/
id/ads/</a><BR>
<li><a href="http://www.google.co.id/intl/id/about.html">http://www.google.co.id
/intl/id/about.html</a><BR>
<li><a href="http://www.google.com/ncr">http://www.google.com/ncr</a><BR>
</td>
</TR>
</TABLE>
</td></tr></table>

E:\data\linkextract> [/code]

kemudian coba lihat ke file tes123.html , silahkan diklik. Anda akan melihat semua alamat URL yang terkandung di halaman yang di-grabber tadi. Selamat mencoba. :)

Juli 23, 2008

antara komen, edit komen dan esensinya

Diarsipkan di bawah: blog, curhat, komputer, umum — bimatampan @ 8:50 pm

hari ini ada pelajaran yang berharga buatku….
bagaimana tidak, komenku ke sebuah blog yang nggak jelas, kemudian diedit oleh
si empunya blog, trus hasilnya apa ???

ternyata esensi isi komenku tersebut jauh sekali dengan komen yang telah diedit
oleh si empunya blog.
memang itu juga hak si empunya blog untuk mengedit komen yang masuk, termasuk apabila
komen yang masuk itu merugikan posisi dirinya (blognya), sehingga harus diedit sampai
menjadi komen yang menguntungkan posisi blognya.
tapi bagiku, tindakan tersebut adalah sama dengan tindakan orang yang tidak mau dikritik,
mau menang sendiri, dengan mengebiri pendapat orang lain.

so, inilah kenyataannya…….
selamat datang di dunia para blogger………
(sambil tersenyum kecut plus kesal).

catatan:
komenku ke blog yang nggak jelas tersebut tidak berisi cacian atau
rangkaian kata-kata mutiara yang kasar, namun cuman memberi ucapan selamat
karena postingannya tersebut berhasil masuk ke BOTD-nya wordpress dengan
isi postingan yang bernada provokatif dan cenderung ke arah SARA.
dan yang tertampil di blognya sbb :


selamat ya bro, anda memang bagus.


:(

Tulisan yang Lebih Tua »

Blog pada WordPress.com.