{ Berbagi, Menulis, Dan Mengajar } Ilmu… » 7. Operating System
Redirect WEB Proxy
Masuk ke root server dan buat file baru dengan nama DEWASA. Ketik pico /usr/share/squid/errors/English/DEWASA. Copy pastekan script dibawah ini lalu simpan <html> <title>http://www.cybermq.com</title> <meta http-equiv=”Content-Type” content=”text/html; charset=iso-8859-1″> <SCRIPT LANGUAGE=”JavaScript”> function redirect() { parent.location.href=”http://www.cybermq.com” } </SCRIPT> </head> <body bgcolor=”#FFFFFF”> <SCRIPT LANGUAGE=”JavaScript”> <!– Hide script from old browsers // set timeout to redirect after 1 seconds setTimeout(“redirect()”,1000) //–> </SCRIPT> </body> </html> Kemudian buat file porn.txt pada direktori /etc/squid, isi dengan kata-kata yang berhubungan dengan situs porno. Tambahkan konfigurasi acl porn url_regex -i “/etc/squid/porn.txt” (untuk aturan pemblokiran) dan deny_info DEWASA porn (untuk aturan redirect) lalu simpan, dan restart squid. Maka, situs porno yang telah Anda blokir akan teralihkan dengan cyber mq. Jika Anda ingin mengalihkannya ke situs lain misal google, Anda tinggal mengganti parent.location.href=http://www.cybermq.com dengan parent.location.href=”http://www.google.com” dan jangan lupa ganti juga titlenya. … Read entire article »
Filed under: 7. Operating System
Air Gun resmi
http://milzone.indonetwork.co.id/milzone-airgun-airsoft-action-gear-supply.htm … Read entire article »
Filed under: 7. Operating System
Masuk ke EPROC PEMKOT SBY
info_at_ikc_co_id — Company : CV.IDE KITA CEMERLANG Email : info@ikc.co.id Valid From : 10-02-2011 s/d 10-02-2013 Serial Number : 4696 —- Konfirmasi Password Baru Di bawah ini adalah username beserta password anda yang baru. Username: dms@ikc.co.id Password: YXMS6k Terima kasih, Administrator Layanan Pengadaan Secara Elektronik (LPSE) Pemerintah Kota Surabaya Jl. Jimerto 25-27 Lt. IV Surabaya 60272 telp : 031-5462064 url : lpse.surabaya.go.id email : helpdesk@surabaya-eproc.or.id ---- Selamat datang di sistem e-Procurement - Pemerintah Kota Surabaya. Perusahaan Anda telah terdaftar sistem e-Procurement kami, tetapi account Anda belum bisa digunakan sebelum Anda melakukan aktivasi. Klik link di bawah untuk proses aktivasi. <a href="https://www.surabaya-eproc.or.id/perusahaan_register/aktivasikan/kode_aktivasi/210010dfff6eb14ec25fe009f1c3ba3d">Mulai Proses Aktivasi »</a> atau, kalau link di atas tidak bisa diklik, copy-kan link berikut ini: https://www.surabaya-eproc.or.id/perusahaan_register/aktivasikan/kode_aktivasi/210010dfff6eb14ec25fe009f1c3ba3d Setelah melakukan proses aktivasi, data login berikut dapat digunakan: Username … Read entire article »
Filed under: 7. Operating System
FUngsi String Pada VB.6
Fungsi-fungsi VB di bawah ini digunakan untuk mengolah data string. Left : mengambil n karakter di sebelah kiri suatu string karakter = Left(“abcdefâ€,2) ‘karakter = “ab†Right : mengambil n karakter di sebelah kanan suatu string karakter = Right(“abcdefâ€,2) ‘karakter = “ef†Trim : menghilangkan spasi kosong di awal dan akhir suatu string karakter = Trim(“ abc def â€) ‘karakter = “abc def†Ltrim : menghilangkan spasi kosong di awal suatu string MyStr = Ltrim(AnyString) Rtrim : menghilangkan spasi kosong di akhir suatu string MyStr = Rtrim(AnyString) Ucase : mengubah suatu string menjadi huruf besar semua MyStr = UCase(AnyString) Lcase : mengubah suatu string menjadi huruf kecil semua MyStr = LCase(AnyString) Mid : mengambil n karakter dari suatu posisi yang ditetapkan MyStr = Mid(“abcdefghijâ€, 3, 4) ‘hasil “cdef†Len : menghitung jumlah karakter yang membentuk suatu string MyStr = Len(“abcdefâ€) ‘hasil=6 LSet : menempatkan string di dalam … Read entire article »
Filed under: 7. Operating System
Tutorial OpenCV Dari Pak Akok
\\192.168.1.1\dms\THESIS\TUTORIAL … Read entire article »
Filed under: 7. Operating System
SCRIPT TAMPILKAN DATA BUKU SDM
Set Rs_PegawaiBesar = New ADODB.Recordset Rs_PegawaiBesar.Open “SELECT Pegawai.NIP, ” _ & ” Pegawai.Nm_Pegawai ” _ & ” FROM Pegawai,DataBesarPegawai ” _ & ” WHERE Pegawai.NIP=DataBesarPegawai.NIP ” _ & ” ORDER BY DataBesarPegawai.NIP”, _ DBKoneksi, adOpenDynamic, adLockBatchOptimistic With Rs_PegawaiBesar If .BOF Then MsgBox “Informasi SDM Pegawai Masih Kosong ! “, _ vbInformation + vbOKOnly, “Informasi” Exit Sub Else i = 1 ListDataTersimpan.ListItems.Clear While Not .EOF Set View = ListDataTersimpan.ListItems.Add View.Text = i View.SubItems(1) = !NIP View.SubItems(2) = !Nm_Pegawai i = i + 1 .MoveNext Wend End If End With … Read entire article »
Filed under: 7. Operating System