jump to navigation

Internet Gratis lewat HP,, Mau? September 8, 2008

Posted by bahroell in Download.
Tags: , , , , ,
202 comments

Mau browsing, chating makek hape java gratis, ne aku ada aplikasinya, kalo ada temen2 yang ngebutuhin silahkan ambil,

*(Syaratnya makek kartu indosat ne, IM3/Mentari)

Ne link downloadnya :
Mig33
OperaMini

Compress File Dahsyat..!!! Juli 28, 2008

Posted by bahroell in Tips and tricks.
Tags: ,
35 comments

Kirim2an file lewat internet sering terkendala karena besarnya file yang mau dikirim, KGB Archiver memberikan fitur yang dahsyat, lihat gambar diatas, dari 439.6 MB menjadi 1.4 MB saja, cuman prosess compress dan decompressnya membutuhkan waktu yang lumayan lama.

Semoga bermanfaat, salam hangat.!!

Untuk download klik link dibawah ini :

http://bahroell.110mb.com/DATA/KGB_Archiver_1.2.1.24.addiehf.zip

mig33 di PC Mei 2, 2008

Posted by bahroell in Tips and tricks.
Tags: , , ,
70 comments

Ini ada aplikasi buat temen-temen yang seneng chat makek mig33 yang bisa dipakek di PC biasa
Download disini :
http://www.4shared.com/file/30867175/1f58c29d/SjBoy_mig33jakarta_305.html

Membuat flashdisk bootable Ubuntu 7.10 lewat windows April 6, 2008

Posted by bahroell in Tips and tricks.
Tags: , , ,
7 comments

12066082670.jpg

Membuat Flashdisk bootable yang isinya Live CD Ubuntu 7.10 lewat windows ternyata tidak sesulit yang kita bayangkan, langkah – langkahnya adalah sebagai berikut :

  1. Download dulu file syslinux disini http://freshmeat.net/redir/syslinux/10177/url_zip/syslinux-3.51.zip 
  2. Buat directory syslinux di C:
  3. Kemudian extract file yang kita download tadi ke folder C:\syslinux
  4. Pada command promt windows masuk ke direktory c\:syslinux\win32
  5. Gunakan perintah berikut untuk membuat usb bisa sebagai bootable disk : syslinux -s F: ( asumsi usb drive di F )
  6. Langkah selanjutnya adalah mengcopy semua file di Ubuntu 7.10 Live CD ke dalam USB, sebaiknya gunakan command xcopy /e /h /k d:\*.* f: (D sebagai CDROM).
  7. Selanjutnya USB flash sudah bisa di gunakan sebagai penganti Ubuntu 7.10 Gutsy Ribbon Live CD

Semoga bermanfaat..!

Awas, Ponsel bisa Turunkan Kualitas Sperma Maret 31, 2008

Posted by bahroell in Lifestyle.
8 comments

12066082670.jpg

Pemakaian ponsel kembali dikaitkan dengan masalah kesehatan. Kali ini dinyatakan, kaum lelaki yang menghabiskan waktu berjam-jam melakukan panggilan via ponsel memiliki resiko penurunan jumlah sperma.

Bahkan disebutkan, pemakaian ponsel juga meningkatkan kadar sperma abnormal. Kesimpulan tersebut dinyatakan pakar di pusat kesehatan Cleveland Clinic (AS). Mereka memaparkan, produksi sperma pada pria terpengaruh oleh frekuensi pemakaian ponsel.

“Semakin lama pria memakai ponsel, semakin besar kemungkinan produksi sperma mengalami gangguan.”

Studi ini dipublikasikan dalam jurnal Fertility and Sterility. Seperti dilansir FoxNews, para peneliti melibatkan sampel sebanyak 361 pria dalam kurun waktu satu tahun.

Para partisipan ditanya seputar kebiasaan pemakaian ponsel untuk dibandingkan dengan jumlah produksi sperma mereka.

Menurut Dr. Ashok Agarwal yang memimpin penelitian ini, penurunan produksi sperma ini otomatis berpengaruh terhadap tingkat kesuburan pria dalam menghasilkan keturunan.

Ia memaparkan, lelaki yang memakai ponsel dalam waktu empat jam atau lebih tiap harinya, mengalami produksi sperma yang sangat rendah.

Penurunan jumlah sperma ini diduga disebabkan oleh gelombang elektromagnetis ponsel. Meski demikian, seperti yang sering terjadi pada penelitian semacam ini, lagi-lagi belum ada bukti yang benar-benar pasti mengenai kesimpulan para dokter tersebut.[pr/jul].
Diambil dari http://www.rileks.com

Deface web sepuasnya Maret 4, 2008

Posted by bahroell in Tips and tricks.
13 comments

Caranya :

  1. Buka web browser kesayangan anda (Misal : Mozilla)
  2. Masuk ke web yang anda sukai (Misal : google.co.id)
  3. Tuliskan script dibawah ini pada address bar (Nb : jangan copy paste)

javascript:document.body.contentEditable=’true’;
document.designMode=’on’; void 0

Deface tampilan web sepuas anda, semoga berhasil, 😀

google2.jpg

NUPTK Lengkap Kabupaten Trenggalek (terbaru dari LPMP Jawa Timur) Maret 3, 2008

Posted by bahroell in News.
Tags: , ,
119 comments

scrshot0002.jpg

Bagi yang membutuhkan daftar NUPTK terbaru Kab. Trenggalek silakan klik link ibawah ini.

NUPTK Terbaru Kab. Trenggalek <<Pebruari 2008
NUPTK Terbaru Kab. Trenggalek <<Agustus 2008 Sementara

Info Baru IM3 0,01 rupiah /detik Februari 21, 2008

Posted by bahroell in News.
15 comments

Asik nee…. Kebetulan saia makek…

im3.jpg

skema-sesama-isat2.jpg

skema-all-opertor2.jpg

Membuat fungsi “terbilang” pada Excel menggunakan macro Visual Basic Februari 14, 2008

Posted by bahroell in Tips and tricks.
51 comments

excel.jpg

Artikel dari Mas Eko

Ini salah satu cara bagaimana menerjemahkan angka ke dalam kata-kata dengan Visual Basic for Application dan nantinya akan dikenali sebagai macro. Fungsi dalam list program yang dipakai nantinya sebenarnya dapat digunakan pada aplikasi MS Office atau aplikasi Visual Basic lainnya namun pada bahasan ini dibatasi pada penggunaan dalam aplikasi MS Excel karena keterbatasan pengetahuan saya. Bagi yang sudah terbiasa pada penggunaan Visual Basic Editor pada MS Excel dapat langsung ke bagian list program.
Fungsi tersebut akan berguna:

  • Menerjemahkan angka ke dalam kata-kata sampai dengan 15 digit termasuk nilai desimal (ratusan trilian apabila tanpa nilai desimal). Angka 15 digit ini merupakan nilai yang dapat ditampung MS Excel sebelum dirubah ke nilai exponen.
  • Desimal yang diterjemahkan sampai dengan dua angka dibelakang koma.
  • Mengenal 4 Style, yaitu cara penulisan huruf besar/kecil-nya.
  • Bebas menggunakan satuan yang diinginkan. 

Langkah – langkahnya adalah sebagai berikut :

  • Buka aplikasi MS Excel, apabila secara otomatis tidak muncul workbook baru (atau Book 1) maka bukalah Workbook baru dari File > New… (Ctrl+N);
  • Pada workbook baru pada sheet mana saja pilihlah Tools > Macro > Visual Basic Editor atau dengan shortcut Alt+F11.
  • Setelah itu akan muncul window baru bertitle Microsoft Visual Basic. Setelah itu, pilih Insert > Module. Pada Module 1 yang baru dibuat, letakkan kursor pada bagian Code. Apabila belum muncul atau beralih ke bagian tersebut pilih View > Code (F7).
  • Pada lembar kosong tersebut copy paste-kan list program dibawah ini

‘Fungsi Terbilang dengan VBA untuk MS Office
‘Ditulis oleh maseko

‘Fungsi penterjemahan masing-masing angka
Private Function KeKata(Nomor)
TrjKata = Array(“”, “satu”, “dua”, “tiga”, “empat”, “lima”, “enam”, “tujuh”, “delapan”, “sembilan”)
KeKata = TrjKata(Nomor)
End Function

‘Mulai penulisan Fungsi Terbilang
Public Function terbilang(Nilai_Angka, Optional Style = 4, Optional Satuan = “”)
Angka = Fix(Abs(Nilai_Angka))
‘Desimal dibelakang koma
des1 = Mid(Abs(Nilai_Angka), Len(Angka) + 2, 1)
des2 = Mid(Abs(Nilai_Angka), Len(Angka) + 3, 1)

If des2 = “” Then
If des1 = “” Or des1 = “0” Then
Koma = “”
Else
Koma = ” koma ” & KeKata(des1)
End If
ElseIf des2 = “0” Then
If des1 = “0” Then
Koma = “”
ElseIf des1 = “1” Then
Koma = ” koma sepuluh”
Else
Koma = ” koma ” & KeKata(des1) & ” puluh”
End If
Else
If des1 = “0” Then
Koma = ” koma nol ” & KeKata(des2)
ElseIf des1 = “1” Then
If des2 = “1” Then
Koma = ” koma sebelas”
Else
Koma = ” koma ” & KeKata(des2) & ” belas”
End If
Else
Koma = ” koma ” & KeKata(des1) & ” puluh ” & KeKata(des2)
End If
End If
‘Misahin Angka
No1 = Left(Right(Angka, 1), 1)
No2 = Left(Right(Angka, 2), 1)
No3 = Left(Right(Angka, 3), 1)
No4 = Left(Right(Angka, 4), 1)
No5 = Left(Right(Angka, 5), 1)
No6 = Left(Right(Angka, 6), 1)
No7 = Left(Right(Angka, 7), 1)
No8 = Left(Right(Angka, 8), 1)
No9 = Left(Right(Angka, 9), 1)
No10 = Left(Right(Angka, 10), 1)
No11 = Left(Right(Angka, 11), 1)
No12 = Left(Right(Angka, 12), 1)
No13 = Left(Right(Angka, 13), 1)
No14 = Left(Right(Angka, 14), 1)
No15 = Left(Right(Angka, 15), 1)
‘Satuan
If Len(Angka) >= 1 Then
If Len(Angka) = 1 And No1 = 1 Then
Nomor1 = “satu”
ElseIf Len(Angka) = 1 And No1 = 0 Then
Nomor1 = “Nol”
ElseIf No2 = “1” Then
If No1 = “1” Then
Nomor1 = “sebelas”
ElseIf No1 = “0” Then
Nomor1 = “sepuluh”
Else
Nomor1 = KeKata(No1) & ” belas”
End If

Else
Nomor1 = KeKata(No1)
End If
Else
Nomor1 = “”
End If

‘Puluhan
If Len(Angka) >= 2 Then
If No2 = 1 Or No2 = “0” Then
Nomor2 = “”
Else
Nomor2 = KeKata(No2) & ” puluh ”
End If
Else
Nomor2 = “”
End If
‘Ratusan
If Len(Angka) >= 3 Then
If No3 = “1” Then
Nomor3 = “seratus ”
ElseIf No3 = “0” Then
Nomor3 = “”
Else
Nomor3 = KeKata(No3) & ” ratus ”
End If
Else
Nomor3 = “”
End If
‘Ribuan
If Len(Angka) >= 4 Then
If No6 = “0” And No5 = “0” And No4 = “0” Then
Nomor4 = “”
ElseIf (No4 = “1” And Len(Angka) = 4) Or (No6 = “0” And No5 = “0” And No4 = “1”) Then
Nomor4 = “seribu ”
ElseIf No5 = “1” Then
If No4 = “1” Then
Nomor4 = “sebelas ribu ”
ElseIf No4 = “0” Then
Nomor4 = “sepuluh ribu ”
Else
Nomor4 = KeKata(No4) & ” belas ribu ”
End If

Else
Nomor4 = KeKata(No4) & ” ribu ”
End If
Else
Nomor4 = “”
End If
‘Puluhan ribu
If Len(Angka) >= 5 Then
If No5 = “1” Or No5 = “0” Then
Nomor5 = “”
Else
Nomor5 = KeKata(No5) & ” puluh ”
End If
Else
Nomor5 = “”
End If
‘Ratusan Ribu
If Len(Angka) >= 6 Then
If No6 = “1” Then
Nomor6 = “seratus ”
ElseIf No6 = “0” Then
Nomor6 = “”
Else
Nomor6 = KeKata(No6) & ” ratus ”
End If
Else
Nomor6 = “”
End If
‘Jutaan
If Len(Angka) >= 7 Then
If No9 = “0” And No8 = “0” And No7 = “0” Then
Nomor7 = “”
ElseIf No7 = “1” And Len(Angka) = 7 Then
Nomor7 = “satu juta ”
ElseIf No8 = “1” Then
If No7 = “1” Then
Nomor7 = “sebelas juta ”
ElseIf No7 = “0” Then
Nomor7 = “sepuluh juta ”
Else
Nomor7 = KeKata(No7) & ” belas juta ”
End If

Else
Nomor7 = KeKata(No7) & ” juta ”
End If
Else
Nomor7 = “”
End If
‘Puluhan juta
If Len(Angka) >= 8 Then
If No8 = “1” Or No8 = “0” Then
Nomor8 = “”
Else
Nomor8 = KeKata(No8) & ” puluh ”
End If
Else
Nomor8 = “”
End If
‘Ratusan juta
If Len(Angka) >= 9 Then
If No9 = “1” Then
Nomor9 = “seratus ”
ElseIf No9 = “0” Then
Nomor9 = “”
Else
Nomor9 = KeKata(No9) & ” ratus ”
End If
Else
Nomor9 = “”
End If
‘Milyar
If Len(Angka) >= 10 Then
If No12 = “0” And No11 = “0” And No10 = “0” Then
Nomor10 = “”
ElseIf No10 = “1” And Len(Angka) = 10 Then
Nomor10 = “satu milyar ”
ElseIf No11 = “1” Then
If No10 = “1” Then
Nomor10 = “sebelas milyar ”
ElseIf No10 = “0” Then
Nomor10 = “sepuluh milyar ”
Else
Nomor10 = KeKata(No10) & ” belas milyar ”
End If

Else
Nomor10 = KeKata(No10) & ” milyar ”
End If
Else
Nomor10 = “”
End If
‘Puluhan Milyar
If Len(Angka) >= 11 Then
If No11 = “1” Or No11 = “0” Then
Nomor11 = “”
Else
Nomor11 = KeKata(No11) & ” puluh ”
End If
Else
Nomor11 = “”
End If
‘Ratusan Milyar
If Len(Angka) >= 12 Then
If No12 = “1” Then
Nomor12 = “seratus ”
ElseIf No12 = “0” Then
Nomor12 = “”
Else
Nomor12 = KeKata(No12) & ” ratus ”
End If
Else
Nomor12 = “”
End If
‘Triliun
If Len(Angka) >= 13 Then
If No15 = “0” And No14 = “0” And No13 = “0” Then
Nomor13 = “”
ElseIf No13 = “1” And Len(Angka) = 13 Then
Nomor13 = “satu triliun ”
ElseIf No14 = “1” Then
If No13 = “1” Then
Nomor13 = “sebelas triliun ”
ElseIf No13 = “0” Then
Nomor13 = “sepuluh triliun ”
Else
Nomor13 = KeKata(No13) & ” belas triliun ”
End If

Else
Nomor13 = KeKata(No13) & ” triliun ”
End If
Else
Nomor13 = “”
End If
‘Puluhan triliun
If Len(Angka) >= 14 Then
If No14 = “1” Or No14 = “0” Then
Nomor14 = “”
Else
Nomor14 = KeKata(No14) & ” puluh ”
End If
Else
Nomor14 = “”
End If
‘Ratusan triliun
If Len(Angka) >= 15 Then
If No15 = “1” Then
Nomor15 = “seratus ”
ElseIf No15 = “0” Then
Nomor15 = “”
Else
Nomor15 = KeKata(No15) & ” ratus ”
End If
Else
Nomor15 = “”
End If

If Len(Angka) > 15 Then
bilang = “Digit Angka Terlalu Banyak”
Else
If IsNull(Nilai_Angka) Then
bilang = “”
ElseIf Nilai_Angka < 0 Then bilang = "minus " & Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 & Nomor11 & Nomor10 & Nomor9 & Nomor8 & Nomor7 _ & Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " & Satuan) Else bilang = Trim(Nomor15 & Nomor14 & Nomor13 & Nomor12 & Nomor11 & Nomor10 & Nomor9 & Nomor8 & Nomor7 _ & Nomor6 & Nomor5 & Nomor4 & Nomor3 & Nomor2 & Nomor1 & Koma & " " & Satuan) End If End If If Style = 4 Then terbilang = StrConv(Left(bilang, 1), 1) & StrConv(Mid(bilang, 2, 1000), 2) Else terbilang = StrConv(bilang, Style) End If terbilang = Replace(terbilang, " ", " ", 1, 1000, vbTextCompare) End Function [/sourcecode]

  • Setelah Anda selesai mengcopy pilih File > Close and Return to Microsoft Excel untuk kembali ke workbook MS Excel.
  • Simpan workbook tersebut, namai misalnya terbilang.xls.
  • Sekarang Anda dapat mencoba fungsi tersebut dalam sheet mana saja dalam workbook tersebut. Misalnya Anda ketikan pada cell A1 angka berapa saja. Pilih cell yang akan menampung terjemahan kata-katanya, misalnya di A2.
  • Pilih Insert > Function…, maka akan muncul dialog box daftar fungsi di MS Excel.
  • Dari daftar dalam Function category, pilihlah User Defined, sehingga dalam daftar di Function name muncul nama fungsi terbilang, pilih fungsi tersebut kemudian klik OK, sehingga muncul dialog box
  • Isilah dialog box di atas dengan ketentuan sebagai berikut:
    Nilai_Angka
    Isilah dengan angka yang akan diterjemahkan, atau isi dengan nama cell yang berisi angka yang akan diterjemahkan, misalnya A1.
    Style
    Isi dengan kode 1 sampai dengan 4 untuk menentukan cara penulisannya.
    1: Teks terbilang ditulis dengan huruf besar (kapital) semua (uppercase);
    2: Teks terbilang ditulis dengan huruf kecil semua (lowercase);
    3: Teks terbilang ditulis dengan huruf besar pada awal kata saja (title case);
    4: Teks terbilang ditulis dengan huruf besar pada huruf pertama saja (sentence case).
    Isian style sifatnya optional, apabila tidak diisi maka defaultnya 4 (sentence case).
    Satuan
    Isi dengan satuan untuk teks terbilang, misalnya rupiah, unit atau buah. Isian satuan sifatnya optional, apabila dikosongkan maka teks terbilang ditulis tanpa satuan tertentu.
  • Anda juga dapat langsung menggunakan fungsi terbilang secara langsung pada cell dengan formula:
    =terbilang(Nilai_Angka;Style;”Satuan”)
    Penjelasan lihat di atas. Perlu diperhatikan bahwa penulisan satuan ditulis dengan cara diapit tanda petik(”).
  • Sekarang Anda tutup workbook tersebut. Coba buka kembali workbook tersebut, maka akan muncul peringatan seperti. Untuk dapat menggunakan fungsi terbilang diatas Anda harus memilih Enable Macros setiap kali Anda menggunakan

Pada tahapan ini Anda dapat menggunakan fungsi terbilang pada cell dan worksheet mana saja tetapi terbatas pada workbook tersebut. Setiap kali Anda membuat file MS Excel dan memerlukan fungsi terbilang Anda harus mengulangi langkah-langkah di atas atau Anda menyimpan dengan nama atau lokasi yang berbeda dengan cara File > Save As…
Ada cara lain agar setiap kali membuat file/workbook baru, Anda langsung dapat menggunakan fungsi terbilang. Langkah-langkahnya:

  • Buka file yang Anda simpan di atas yang berekstensi xls. Kemudian pilih File > Save As.. Kemudian pada isian File name isi dengan nama file, misalnya terbilang. Pada isian Save as type pilih Microsoft Excel Add-In (*.xla).Secara default folder yang terbuka untuk menyimpan file type Add-In ini berada pada C:WINDOWS\Aplication Data\Microsoft\AddIns, sebaiknya Anda menyimpannya pada folder ini, meskipun Anda dapat menentukan lokasi lain. Nantinya file yang disimpan berekstensi xla.
  • Setelah Anda menyimpannya, tutup MS Excel. Buka kembali dengan workbook baru.
  • Pada workbook baru tersebut pilih Tools > Add-Ins… Muncul dialog box, Klik Browse… maka secara default Anda dihadapkan pada isi folder AddIns seperti disebut pada point 1, kemudian pilih file Add-In terbilang tersebut. Maka fungsi terbilang akan masuk list pada Add-Ins available seperti pada Gambar 7. Pastikan Anda beri tanda check. Kemudian klik OK.
  • Pada workbook baru ini, Anda sudah dapat menggunakan fungsi terbilang, begitu pula saat Anda nanti membuat file/workbook baru.
  • Anda dapat menonaktifkan Add-In ini dengan menghilangkan tanda check seperti tersbut di atas.

Referensi CCNA 3 dan 4 Hot* Februari 5, 2008

Posted by bahroell in Tips and tricks.
2 comments

cisco-ccna-exam.jpg

Ini aku ada link referensi buat temen – temen yang mau ujian CCNA 3 dan 4 semoga bermanfaat.!!

Mirror :
http://rapidshare.com/files/89278833/CCNA3_4.rar.html

Membuat wrapper SMS gratis IM3 Januari 16, 2008

Posted by bahroell in Tips and tricks.
Tags: , , ,
21 comments

sms.jpg

Berikut langkah – langkah membuat wrapper sms gratis Indosat M3 :
1. Buat account di http://www.m3-access.com
2. Sementara account anda masih limited (terbatas 10 sms /hari)
3. Untuk membuat unlimited account di m3-access.com akan saya posting berikutnya
4. Tulis script dibawah ini pada editor misal : notepad, editplus, dll
5. Simpan dengan nama index yang berekstensi .php (index.php)

<?php
include("lib.php");
$username = "username"; //masukkan username anda
$password = "password"; //masukkan password anda

echo "

<title>Wrapper SMS</title>

";

if($_POST['message'] && $_POST['recipient']) {
	$m3 = new m3sms();
	$m3->Login($username, $password);
	$m3->kirimSms($_POST['recipient'], $_POST['message']);
	echo "
	<div><h1><span>Laporan</span></h1>
	<fieldset>
	<legend>Laporan</legend>
	<p>
	<label>SMS dari:</label><br />
	m3."\"><br />
	</p>
	<p>
	<label>ke:</label><br />
	<br />
	</p>
	<p>
	<label>Status:</label><br />
	status()."\"><br />
	</p>
	<p>
	<ul>
				<li><a>&laquo; Kirim SMS Lagi</a></li>
		<li>By bahroell </a></li>
	</ul>
	</p>
	</fieldset>
	</div>";
}
else {
	echo "
	<div>SMS gratis IM3
	</div>
	<div><h1><span>FREE SMS</span></h1>
	<form>
	<fieldset>
	<legend>SMS Gratis</legend>
	<p>
	<label>Kirim ke: </label><br />
	<br />
	</p>
	<p>
	<label>Isi SMS:</label><br />
	<textarea></textarea><br />
	</p>
	<p>
	 characters left
	</p>
	<p>
	<br />
	</p>
	<p>
	<ul>
		<li>Terima Kasih</a></li>
	</ul>
	</p>
	</fieldset>
	</form>
	</div>
	";
}

echo "

 ";
?>

6. Buat lembar baru dan tuliskan script dibawah ini

version = "1.0";
	$this->created = true;
		if (!extension_loaded('curl')) {
			if (isset($_ENV["NUMBER_OF_PROCESSORS"]) and ($_ENV["NUMBER_OF_PROCESSORS"] > 1)) {
				$this->created = false;
				$a = array(
					"action" 		=> "constructing M3SMS object",
					"status" 		=> "failed",
					"message" 		=> "lib-M3SMS: Using a multithread server. Ensure php_curl.dll has been enabled (uncommented) in your php.ini."
				);
				array_unshift($this->status_log, $a);

			} else {
				if (!dl('php_curl.dll') && !dl('curl.so')) {
					$this->created = false;
					$a = array(
						"action" 		=> "constructing M3SMS object",
						"status" 		=> "failed",
						"message" 		=> "lib-M3SMS: unable to load curl extension."
					);
					array_unshift($this->status_log, $a);
				}
			}
		}
		if (!function_exists("curl_setopt")) {
			$this->created = false;
			$a = array(
				"action" 		=> "constructing M3SMS object",
				"status" 		=> "failed",
				"message" 		=> "lib-M3SMS: No curl."
			);
			array_unshift($this->status_log, $a);
		}
		$this->username = $username;
		$this->password = $password;
		$this->proxy_host = "";
		$this->proxy_auth = "";
		$this->use_session = 2;
		if ($this->created == true) {
			$a = array(
				"action" 		=> "constructing M3SMS object",
				"status" 		=> "success",
				"message" 		=> "lib-M3SMS: Constructing completed."
			);
			array_unshift($this->status_log, $a);
	}
	//$this->Login();
	}

	function setProxy($proxy_host, $proxy_user, $proxy_pass) {
		if (strlen($this->proxy_host) > 0) {
			$this->proxy_host = $proxy_host;
			if (strlen($proxy_user) > 0 || strlen($proxy_pass) > 0) {
				$this->proxy_auth = $proxy_user.":".$proxy_pass;
			}
			$a = array(
				"action" 		=> "set proxy",
				"status" 		=> "success",
				"message" 		=> "lib-M3SMS: Proxy set."
			);
			array_unshift($this->status_log, $a);
		} else {
			$a = array(
				"action" 		=> "set proxy",
				"status" 		=> "failed",
				"message" 		=> "lib-M3SMS: no hostname supplied."
			);
			array_unshift($this->status_log, $a);
		}
	}

	function CURL_PROXY($cc) {
		if (strlen($this->proxy_host) > 0) {
			curl_setopt($cc, CURLOPT_PROXY, $this->proxy_host);
			if (strlen($this->proxy_auth) > 0)
				curl_setopt($cc, CURLOPT_PROXYUSERPWD, $this->proxy_auth);
		}
	}

	function Login($username, $password){
            $this->cookie = m3_COOKIE_PATH."m3@cookie.txt";
			$this->username = $username;
			$this->password = $password;

	        /* looking for sid */
	        $this->ch = curl_init();
	        curl_setopt($this->ch, CURLOPT_URL, M3SMS_URL);
			$this->CURL_PROXY($this->ch);
	        curl_setopt($this->ch, CURLOPT_HEADER, 1); // baca header
	        curl_setopt($this->ch, CURLOPT_USERAGENT, M3SMS_USERAGENT);
	        curl_setopt($this->ch, CURLOPT_COOKIE, $this->cookie_string);
        	curl_setopt($this->ch, CURLOPT_COOKIEJAR, $this->cookie);
        	curl_setopt($this->ch, CURLOPT_COOKIEFILE, $this->cookie);
	        curl_setopt($this->ch, CURLOPT_RETURNTRANSFER, 1);
	        $indexContent = curl_exec($this->ch);
	        $ereg_sid = ereg("PHPSESSID\=([0-9a-z]+)", $indexContent, $ketemu_sid);
	        $this->sid = $ketemu_sid[1];

	        /* Login */
	        curl_setopt($this->ch, CURLOPT_URL, M3SMS_LOGIN);
			$this->CURL_PROXY($this->ch);
			curl_setopt($this->ch, CURLOPT_POST, 1);
	        curl_setopt($this->ch, CURLOPT_USERAGENT, M3SMS_USERAGENT);
	        curl_setopt($this->ch, CURLOPT_COOKIE, $this->cookie_string);
          	curl_setopt($this->ch, CURLOPT_COOKIEJAR, $this->cookie.txt);
	        curl_setopt($this->ch, CURLOPT_COOKIEFILE, $this->cookie.txt);
	        curl_setopt($this->ch, CURLOPT_FOLLOWLOCATION, 1);
	        curl_setopt($this->ch, CURLOPT_RETURNTRANSFER, 1);
	        $loginPost = "username=".urlencode($this->username);
			$loginPost .= "&password=".urlencode($this->password);
			$loginPost .= "&sid=".urlencode($this->sid);
			$loginPost .= "&redirect=".urlencode("index.php");
			$loginPost .= "&login=".urlencode("Log in");
	        curl_setopt($this->ch, CURLOPT_POSTFIELDS, $loginPost);
	        $loginContent = curl_exec($this->ch);
			$this->lihatErrorCurl($this->ch);
//		curl_close($this->ch);
	}

	function kirimSms($recipient, $message) {
		// FORM SMS
		curl_setopt($this->ch, CURLOPT_URL, M3SMS_FORMSMS);
        curl_setopt($this->ch, CURLOPT_POST, 1);
		curl_setopt($this->ch, CURLOPT_USERAGENT, M3SMS_USERAGENT);
		curl_setopt($this->ch, CURLOPT_COOKIEJAR, $cookiefile);
        curl_setopt($this->ch, CURLOPT_RETURNTRANSFER, 1); // langsung return
        curl_setopt($this->ch, CURLOPT_VERBOSE, 1);
        curl_setopt($this->ch, CURLOPT_FOLLOWLOCATION, 1);
        $formSMSContent = curl_exec ($this->ch);
        if(empty($this->m3)) {
	        $ereg_m3 = ereg("<span>\+([0-9a-z]+)", $formSMSContent, $ketemu_m3);
	    	$this->m3 = $ketemu_m3[1];
        	//echo "\$m3 = $ketemu_m3[1]<br />";
    	}
        // KIRIM SMS
		$this->recipient = $recipient;
		$this->message = $message;
		curl_setopt($this->ch, CURLOPT_URL, M3SMS_KIRIM_SMS);
		$this->CURL_PROXY($this->ch);
		curl_setopt ($this->ch, CURLOPT_POST, 1);
		curl_setopt($this->ch, CURLOPT_REFERER, M3SMS_FORMSMS);
		curl_setopt ($this->ch, CURLOPT_COOKIE, $this->cookie_string);
		curl_setopt($this->ch, CURLOPT_RETURNTRANSFER, 1);
	    $kirimPost  = "recipient=".urlencode($this->recipient);
		$kirimPost .= "&message=".urlencode($this->message);
		$kirimPost .= "&jml_kar=125";
		$kirimPost .= "&username=".urlencode($this->m3);
		$kirimPost .= "&user_id=&submit=".urlencode("Kirim SMS");
	    curl_setopt ($this->ch, CURLOPT_POSTFIELDS, $kirimPost);
	    $kirimContent = curl_exec($this->ch);
	    $infoKirim = curl_getinfo($this->ch);

	    if($kirimContent) {
		    if(ereg("masuk antrian", $kirimContent)) { $this->status = "terkirim"; }
		    elseif(ereg("Wah, sms hari ini dah 10 sms nih", $kirimContent)) { $this->status = "over-limit"; }
	    } else {
		    if (empty($infoKirim['http_code'])) {
		    	$this->status = "No HTTP code was returned";
			} else {
				$this->status = $infoKirim['http_code'];
			}
	    }
	    		$this->lihatErrorCurl($this->ch);
	    //		curl_close($this->ch);

	}

	function terkirim() {
		return $this->terkirim;
	}

	function lihatStatusLog() {
		print implode("<br>\n", $this->status_log);
	}

	function status() {
		return $this->status;
	}

	function lihatErrorCurl($ch) {
	if (curl_errno($this->ch)) {
        echo "cURL info:". print_r(curl_getinfo($this->ch));
        echo "<br>";
        echo "cURL error number:" .curl_errno($this->ch);
        echo "<br>";
        echo "cURL error:" . curl_error($this->ch);
        }
    	}
}
?>

7. Simpan dengan nama m3smslib yang berekstensi .php (lib.php)
8. Setelah kedua file tersebut jadi, titipkan pada hosting gratis yang support script php
9. Anda bisa menitipkan di http://www.110mb.com
10. Anda bisa menaruh kedua file tersebut di root direktory atau didirektori yang lain
11. Nah jadi deh wrappernya
12. Anda tinggal memanggilnya pada direktori misal http://coba.110mb.com/sms/
13. Semoga bermanfaat

Renungkanlah.!!!! Januari 4, 2008

Posted by bahroell in Uncategorized.
Tags:
1 comment so far

Renengkanlah wahai teman…….

Templates Joomla Januari 4, 2008

Posted by bahroell in Download, Tips and tricks.
Tags:
7 comments

 

Bagi temen2 yang biasa makek CMS Joomla, dan ingin referensi interfacenya mungkin link ini mungkin bisa membantu.!

Joomla Templates Collection | 514 MB

http://rapidshare.com/files/81071306/JoomlaTemplatesCollection.part01.rar
http://rapidshare.com/files/81060926/JoomlaTemplatesCollection.part07.rar
http://rapidshare.com/files/81060517/JoomlaTemplatesCollection.part03.rar
http://rapidshare.com/files/81060502/JoomlaTemplatesCollection.part06.rar
http://rapidshare.com/files/81060419/JoomlaTemplatesCollection.part05.rar
http://rapidshare.com/files/81060253/JoomlaTemplatesCollection.part04.rar
http://rapidshare.com/files/81059939/JoomlaTemplatesCollection.part02.rar

Indopreter Penerjemah Inggris ke Indonesia Terbaik Saat Ini Januari 4, 2008

Posted by bahroell in Download, Tips and tricks.
Tags:
37 comments

Indopreter adalah piranti lunak penerjemah plug & play Inggris <> Indonesia dengan kecepatan dan kemampuan terbaik pada saat ini :

Menerjemahkan dokumen berbagai format dalam Mode Text (doc-rtf-txt), Mode Excel (xls-csv), Mode HTML (html-chm-pdf)
Kamus dan aturan penerjemahan dapat dikembangkan serta dapat diperjual-belikan secara independen
Memiliki fasilitas kamus lengkap Inggris Amerika (WordNet)
Plug and play – tidak memerlukan proses instalasi ataupun registrasi.

Indopreter dapat langsung membaca berbagai format sebagai sumber terjemahan :

1. Mode Text
Dokumen proses adalah format “rich text format” yang dapat berupa :
– pengetikan langsung pada editor
– copy/paste pada panel editor
– berkas *.doc yang dikonversi otomatis oleh indopreter
– berkas *.rtf yang dibaca otomatis oleh indopreter
– berkas *.txt yang dibaca otomatis oleh indopreter
indopreter_txt1.gif

2. Mode Excel
Dokumen proses adalah format excel yang dapat berupa :
– pengetikan langsung pada editor
– berkas *.xls yang dikonversi otomatis oleh indopreter
– berkas *.csv yang dibaca otomatis oleh indopreter
indopreter_xls.gif

3. Mode HTML
Dokumen proses adalah format html yang dapat berupa :
– berkas html
– berkas *.chm yang dikonversi otomatis oleh indopreter
– berkas *.pdf yang dikonversi otomatis oleh indopreter
– berkas akses langsung internet (hanya pada indopreterPro)
indopreter_html.gif

Hasil penerjemahan dapat disimpan dalam format rtf, txt, xls, html, pdf.

ini link downloadnya :

http://rapidshare.com/files/31194186/IndopreterCD.iso.html

Ini link terbarunya

http://rapidshare.com/files/41315044/IndopreterCD.zip

Ini yang versi portable

http://rapidshare.com/files/68435151/SW-portable_indopreter.rar

Tips Telepon Gratis Januari 4, 2008

Posted by bahroell in Tips and tricks.
Tags: , ,
35 comments

telpon

Dalam hal ini saya tidak akan banyak basa-basi lagi.

I. Trik telphon gratis Lokal (dalam kota)

Fasilitas dan cara yang digunakan:

  1. Telphone umum koin yang masih hidup
  2. Pencet angka 1551 <— catatan: angka 1 terakhir di pencet lama hingga ada nada “tut/nit/nada sela lainnya”
  3. Bila tanda itu telah bunyi baru tekan nomor yang dituju ( nomor telphone lokal)
  4. dan anda akan mendapatkan sambungan langsung dari telkom ke no telp yang dituju, maka anda bisa bicara sepuas bibir anda.

note: UNTUK NOMOR LOKAL YANG TIDAK BISA DIHUBUNGI BIASANYA
DIKARENAKAN:

  1. TERLALU BANYAK NOMOR YANG KEMBAR
  2. TERLALU BANYAK ANGKA DOMINAN BESAR MISAL 8997896/89868789/ dll
  3. DAN BILA TELEPHONE YANG DITUJU BELUM TERPASANG
  4. TELKOM SEDANG KENA TROUBLE Laughing.gif

II. TRIK TELEPHONE GRATIS INTERLOKAL (LUAR KOTA)

Fasilitas dan cara yang digunakan:

  1. Telphone rumah, kantor atau wartel tipe B (sangat dianjurkan)
  2. Telphonelah seperti kita menelephone biasa ke NOMOR TUJUAN LUAR KOTA (khusus luar kota)
  3. Bicaralah sepuas hati dan sebengkak bibir anda
  4. Bila telah selesai percakapan …

PERHATIKAN TRIK INI:
TRIK 1.
SEBELUM ANDA MENUTUP TELEPHON, KETIKLAH NOMOR TUJUAN PERSIS SEPERTI NOMOR YANG DITUJU PERTAMA misal: tujuan 021888555000 -> bila telah selesai ketikan 021888555000 lagi
JANGAN PAKAI TOMBOL RADIAL, KARENA SERING GAGAL

TRIK 2.
SEPERTI CARA TRIK PERTAMA TADI CUMAN KITA RUBAH NOMOR TUJUAN AKHIR misal: tujuan 021888555000 -> bila telah selesai ketikan 031545552222 (BEDA NOMOR TUJUAN)
JANGAN PAKAI TOMBOL RADIAL, KARENA SERING GAGAL
CATATAN: HATI² DALAM MELAKUAKN AKSI INI KARENA SANGAT MERUGIKAN LAIN PIHAK. JANGAN SEKALI² GUNAKAN WARTEL TIPE A UNTUK MELAKUKAN
TRIK II TELEPON GRATIS KE LUAR KOTA KARENA AKAN KELIHATAN PADA KOMPUTER BILLING OPERATOR D DAN PASTI ANDA DICURIGAI KARENA PULSA AKAN HILANG BEGITU SAJA DARI LAYAR MONITOR OPERATOR WARTEL.
JANGAN SERING² MENGGGUNAKAN TRIK INI, KARENA AKAN
MERUGIKAN “PIHAK LAIN”

=====================================================

Selamat mencoba ya bro n Hati2 aja ..!!

Proteksi File dengan File Anti Copy Januari 4, 2008

Posted by bahroell in Download.
Tags: ,
8 comments

File Anti Copy

Buat pembaca yang ingin memproteksi filenya gar tidak bisa di copy ataupun di delete, coba aplikasi ini, mungkin bisa membantu.

(For WinNT/2000/XP/2003)
ini link downloadnya

http://rapidshare.com/files/31182426/File.Anti-Copy.v3.1.exe

Yahoo Messenger 8.1 Portable Januari 4, 2008

Posted by bahroell in Download.
Tags: , ,
28 comments

YM 8.1 Portable

Ini ada aplikasi portable YM 8.1 lumayan keren bagi temen2 yang suka berlama – lama ngobrol di dengan YM, semoga bermanfaat..!!

Download: (Size: 9Mb)
Code:
http://rapidshare.com/files/22612301/Portable_Y_M.8.1.zip

E-book Hacker Linux Uncovered November 9, 2007

Posted by bahroell in Download.
Tags:
3 comments

gambar

Author(s) : Michael Flenov
Publisher : A-LIST
Year : Nov 2005
ISBN : 1931769508
Language : English
Pages : 500
File type : CHM
Size : 4.5 MB

DAFTAR ISI :

Chapter 01 – Introduction
Chapter 02 – Linux Installation and Initial Configuration
Chapter 03 – Welcome to Linux!
Chapter 04 – Access Control
Chapter 05 – Administration
Chapter 06 – Samba Style
Chapter 07 – Web Server
Chapter 08 – Electronic Mail
Chapter 09 – Gateway to Internet
Chapter 10 – File Transfer
Chapter 11 – Network Addressing
Chapter 12 – System Monitoring
Chapter 13 – Backing Up and Restoring Data
Chapter 14 – Advice from a Hacker

Download disini :

http://rapidshare.com/files/68214987/halinuncov.rar
password: ganelon

E-book the hacker dictionary November 9, 2007

Posted by bahroell in Download.
Tags:
1 comment so far

gambar

Ne ada e-book bagus, silakan download
http://rapidshare.com/files/68482165/The_HackersDictionary.rar

Tips download di rapidshare.com November 3, 2007

Posted by bahroell in Tips and tricks.
Tags: , ,
9 comments

Tips download di rapidshare.com

TIPS 1:
Menghilangkan konter waktu

  1. Gunakan browser FIREFOX
  2. Klik/paste URL file yang akan di download di RapidShare di browser Anda.
  3. Setelah itu Anda akan di minta untuk memilih “Premium” atau “Free” download.
  4. Klik “Free” download dan tunggu hingga RapidShare menampilkan counter timer-nya
  5. Tanpa perlu menunggu counter timer selesai, bersihkan Address Bar di Firefox dan ganti URL dengan sedikit simple kode javascript. javascript:alert(c=0)
  6. Setelah Anda ketikan script di atas di address bar lalu tekan ENTER dan alert message box akan muncul di browser Anda, jangan panik, tekan OK dan selamat karena counter timer di browser Anda sudah tidak ada dan RapidShare langsung memberikan link dowload dari file yang ingin Anda download.
  7. Pilih lokasi download yang akan di gunakan (contoh: Cogent-network/Level(3)-network) dan ketik kode verifikasi, setelah itu tekan tombol “Download”.
  8. Kalau setelah Anda tekan tombol download kemudian ada warning message box, cukup tekan OK dan tekan tombol “back” di browser lalu pilih network lainnya dan tekan kembali tombol “Download”.

TIPS2:

Mengatasi Limit Download

  • Jika Anda memiliki IP internet lebih dari 1, Anda bisa gunakan IP tersebut bergantian
  • Jika IP Internet Anda adalah dynamic/DHCP dan lease time-nya dinamis :P, untuk pemakai OS Windows, dari command prompt langsung lakukan flush DNS dan request IP internet baru dengan IP config.

ipconfig /flushdns
ipconfig /release
ipconfig /renew

Linux:
dhcpcd ppp0 <— sesuaikan dengan device internet Anda (eth0? ath0?)
atau
dhclient ppp0
atau
pump -i ppp0
Sekali lagi sesuaikan dengan device Internet Anda.

  • Cara yang paling populer adalah dengan menggunakan free list proxy, caranya cari dengan paman GOBER / ehh maksudnya paman GOOGLE. Gunakan keyword: “:8080” + “:3128” Dan silahkan di cek satu-satu sampai pegel masukin proxy list