=::Naoki Ags - LetShare::=

renungan

2011-12-15T15:19:00.001+07:00

Saya malu jadi presiden..
kalau saya tidak memanusiakan manusia
membiarkan pembantaian manusia oleh manusia
didalam negara yang saya pimpin dan saya kelola
saya harus letakkan jabatan ini tanpa syarat tanpa diminta

-

Saya malu jadi presiden
kalau semua pejabatku sudah menjadi koruptor
kalau para mafia sudah tumbuh subur
sementara rakyatku siap menggali kubur
lagi-lagi saya tidak bisa berbuat apa-apa

-

Saya malu jadi presiden..
kalau pada akhirnya saya memelihara
para penjilat dilingkungan istana
sementara saya tidak pernah tahu tentang
keadaan dan nasib rakyat yang sebenarnya..

-

Saya malu jadi presiden..
dan malu jika keluarga saya pun berambisi
jadi presiden..
karena memang tidak pantas dan
tidak mempunyai kemampuan sebagai presiden

–

Sungguh saya malu jadi presiden
karena saya sudah menghancurkan republik ini
tanpa pernah bisa membangun republik ini
bahkan sudah akan terpecah belah republik ini
itu saya sadari karena saya tidak mampu jadi presiden

http://fiksi.kompasiana.com/puisi/2011/12/15/saya-malu-jadi-presiden/

my manifesto

2011-12-12T13:51:00.002+07:00

Sekian lama berkerja, usul tidak pernah terealisasi,
sedangkan posisi spt buah simalakama dengan kebutuhan hidup yg kian melangit.

Dihadapkan pada pilihan yang sulit, dengan tetap mengedepankan aturan dan prosedur.
Berulang kali membicarakan hal ini, hal untuk sebuah sistem yang lebih baik, LEBIH MENGHARGAI HAKI, ditepis dan dinilai kurang tepat untuk diterapkan di sebuah perusahaan ini(sekarang saja sistem sudah jalan, ngapain beli OS ini..itu..blaa...blaa..dll).

Berulang kali mencari informasi di Microsoft certified partner http://www.microsoft.com/indonesia/local_partners/ berharap dapat menemukan harga yang lebih miring untuk kemudian Perusahaan mau meng 'Acc' nya, Namun management perusahaan seperti 'diam' enggan untuk mengeluarkan $ nya.,

Atau kalau begitu...bagaimana dengan linux yang free..?? beragam alasan keluar dari management.

Takut mencoba? atau tidak mau repot, atau..menunggu bom waktu meledak?
Ah...sulitnya jadi kuli IT di PMA, mereka cuma memikirkan profit, dan management tidak pernah melakukan evaluasi (atau pun meeting antar divisi).
Kapan usul melegalkan OS ini bisa terealisasi, sudah saya sampaikan berulang.
Menunggu bom waktu itu ..? Please, listen to me, supaya hati dan pikiran ini bisa tenang.

Sistem Absensi

2011-11-16T14:08:00.001+07:00

Rutinitas

2011-10-18T10:41:00.003+07:00

2010-12-22T13:49:00.001+07:00

MY FAMILY 가족

destroy SmadAV

2010-07-19T13:48:00.000+07:00

@echo off
cls
title No More SMADAV : [Blueshadows & Blacker]
color A
set tmpdrive=%0
set drive=%tmpdrive:~1,2%
echo Killing SMADAV Process...
taskkill /F /T /IM SmaRTP.exe
echo.

echo Deleting CON, AUX and NUL FOLDER combination 1...
rd\\.\\%drive%\autorun.inf\con\aux\nul
rd\\.\\%drive%\autorun.inf\con\aux
rd\\.\\%drive%\autorun.inf\con
echo.
echo Deleting CON, AUX and NUL FOLDER combination 2...
rd\\.\\%drive%\autorun.inf\con\nul\aux
rd\\.\\%drive%\autorun.inf\con\nul
rd\\.\\%drive%\autorun.inf\con
echo.
echo Deleting AUTORUN Content[s]...
if exist autorun.inf (
cd autorun.inf
rd /S /Q *
del /F /Q *.*
cd ..
rd /S /Q autorun.inf\
)
echo Deleting SMADAV Program...
del /F /Q %systemroot%\SmaRTP.exe
cls
echo ##### Operation[s] Successfull ! #####
echo - SMADAV Process has been killed
echo - SMADAV has been deleted
echo - Autorun.inf Deleted
echo.
echo ##### TIPS OF THE DAY ! #####
echo 1. Delete Folder named "? Smad-Lock ?" manualy by yourself
echo 2. Fuck off your SMADAV [Uninstall]
echo 3. Suggest your friends to delete SMADAV on their Computer
echo 4. If you need Flashdisk Protector, Contact Me :
echo blueshadowshacker@gmail.com
echo Blackras@sekuritionline.net
echo.
echo [[[ If the program error or Need some Help, Send E-mail to Me ]]]
pause > nul

save dgn exsistensi *.bat niscaya smadav bakal ilank dri kompimu Ngakak
SELAMA ADA NIAT JAHAT... DI SANA IBLIS MEMBERI JALAN.

XP theme ubuntu 9.10

2010-07-09T11:01:00.000+07:00

XP theme ubuntu 9.10

http://ubuntu.online02.com/node/14

undelete for linux

2010-07-09T10:44:00.002+07:00

gunakan Foremost

yang ternyata buatan United States Air Force Office of Special Investigation.keren...

Batch

2010-05-13T07:49:00.000+07:00

cls
@echo off
echo -----------------------------------------------------------------
echo
echo Daily Backup program batch file
echo -----------------------------------------------------------------
set drive=D:\DATA_BACKUP\
echo Backup directory, please wait...
xcopy F:\direktoriA %drive%\%date%\APPL /s /c /d /e /h /i /r /k /y
xcopy F:\direktoriB %drive%\%date%\KBAL /s /c /d /e /h /i /r /k /y
xcopy F:\direktoriC %drive%\%date%\SIN /s /c /d /e /h /i /r /k /y
xcopy F:\direktoriD %drive%\%date%\SON /s /c /d /e /h /i /r /k /y
xcopy F:\direktoriE %drive%\%date%\SOYO /s /c /d /e /h /i /r /k /y
xcopy F:\direktoriF %drive%\%date%\YOON /s /c /d /e /h /i /r /k /y
echo -----------------------------------------------------------------
echo
echo -----------------------------------------------------------------
PAUSE

Squid3 dan transparent proxy dibelakang mikrotik

2010-04-16T19:24:00.005+07:00

topologi
--------

adsl-----mikrotik----client (diklient ada mesin squid-linux)

#-----------------squid.conf---------------------
# ============================================== #
# NETWORK OPTIONS
# ============================================== #
http_port 3128 transparent
always_direct allow all
icp_port 3130
snmp_port 3401
# ============================================== #
# OPTIONS WHICH AFFECT THE NEIGHBOUR SELECTION ALGORITHM
# ============================================== #
dead_peer_timeout 30 seconds
mcast_icp_query_timeout 10
log_icp_queries on
connect_timeout 2 minutes
peer_connect_timeout 30 seconds
request_timeout 30 seconds
hierarchy_stoplist cgi-bin ?
acl QUERY urlpath_regex cgi-bin \?
no_cache deny QUERY
# ============================================== #
# OPTIONS WHICH AFFECT THE CACHE SIZE
# ============================================== #
cache_mem 8 MB
cache_swap_low 90
cache_swap_high 95
maximum_object_size 4096 KB
maximum_object_size_in_memory 8 KB
ipcache_size 1024
ipcache_low 90
ipcache_high 95
fqdncache_size 1024
cache_replacement_policy heap GDSF
memory_replacement_policy heap GDSF
# =============================================== #
# LOGFILE PATHNAMES AND CACHE DIRECTORIES
# =============================================== #
#LOG FORMAT===========================
logformat squid %ts.%03tu %6tr %>a %Ss/%03Hs %< st %rm %ru %un %Sh/%< A %mt
logformat squidmime %ts.%03tu %6tr %>a %Ss/%03Hs %< st %rm %ru %un %Sh/%< A %mt [%>h] [%logformat common %>a %ui %un [%tl] "%rm %ru HTTP/%rv" %Hs %< st %Ss:%Sh
logformat combined %>a %ui %un [%tl] "%rm %ru HTTP/%rv" %Hs %< st "%{Referer}>h" "%{User-Agent}>h" %Ss:%Sh
#=====================================

cache_dir ufs /var/spool/squid3 10000 256 512
cache_access_log /var/log/squid3/access.log
cache_log /var/log/squid3/cache.log
cache_store_log /dev/null
mime_table /usr/share/squid3/mime.conf
# =============================================== #
# HTTPD-ACCELERATOR OPTIONS
# =============================================== #
log_ip_on_direct on
dns_nameservers 202.134.0.155 202.134.1.10 203.130.209.242 202.134.2.5
# =============================================== #
# MISCELLANEOUS
# =============================================== #
logfile_rotate 7
digest_generation on
digest_bits_per_entry 10
digest_rebuild_period 30 minute
digest_rewrite_period 30 minute
digest_swapout_chunk_size 6000 bytes
client_persistent_connections on
server_persistent_connections on
pipeline_prefetch on
store_dir_select_algorithm round-robin
nonhierarchical_direct off
prefer_direct off
# =============================================== #
# ADMINISTRATIVE PARAMETERS
# =============================================== #
cache_mgr hydro@proxy.hydro.net
cachemgr_passwd 123456 all

visible_hostname proxy.hydro.net
# =============================================== #
# OPTIONS FOR EXTERNAL SUPPORT PROGRAMS
# ============================================== #
unlinkd_program /usr/lib/squid3/unlinkd

# ============================================== #
# ACCESS CONTROLS
# ============================================== #

acl localnet src 192.168.100.0/24
acl localhost src 127.0.0.0/8
# ============================================== #
# ACL Different access
# ============================================== #
acl SSL_ports port 443 563
acl Safe_ports port 21 80 280 448 591 777 443 563 808 70 210 4190-65535
acl CONNECT method CONNECT
acl purgemethod method purge
acl snmp snmp_community snmpcomunity
acl manager proto cache_object
# ============================================== #
# BLOCKING CONTENTS
# ============================================== #

# ============================================== #
# Access Denied
# ============================================== #
http_access deny !Safe_ports
http_access deny CONNECT !SSL_ports
# ============================================== #
# Internet Access
# ============================================== #
http_access allow manager !localhost
http_access allow purgemethod localhost
http_access allow localnet
http_access deny all
# ============================================== #
# htttp access user
# SNMP – MRTG Setting
# ============================================== #
snmp_access allow snmp localhost
snmp_access deny all
# ============================================== #
# TRAFFIC SHAPPING
# ============================================== #

emulate_httpd_log on

## Delay Pool
# -1/-1 >> no limits untuk local traffic.
delay_pools 2
delay_class 1 2
delay_parameters 1 -1/-1 -1/-1

# TAG: refresh_patterns
refresh_pattern -i .(class|css|js|gif|jpg)$ 10080 100% 43200 override-expire
refresh_pattern -i .(jpe|jpeg|png|bmp|tif)$ 10080 100% 43200 override-expire
refresh_pattern -i .(tiff|mov|avi|qt|mpeg)$ 10080 100% 43200 override-expire
refresh_pattern -i .(mpg|mpe|wav|au|mid)$ 10080 100% 43200 override-expire
refresh_pattern -i .(zip|gz|arj|lha|lzh)$ 10080 100% 43200 override-expire
refresh_pattern -i .(rar|tgz|tar|exe|bin)$ 10080 100% 43200 override-expire
refresh_pattern -i .(hqx|pdf|rtf|doc|swf)$ 10080 100% 43200 override-expire
refresh_pattern -i .(inc|cab|ad|txt|dll)$ 10080 100% 43200 override-expire
refresh_pattern -i .(asp|acgi|pl|shtml|php3|php)$ 2 20% 4320 reload-into-ims
#-------------------------------------------------------

jgn lupa trus bikin swap squid, dan jlkn auto start squid jika booting
dan di mesin squid,aktifkan ip forward

echo 1 > /proc/sys/net/ipv4/ip_forward
dan hilangkan tanda pagar #net.ipv4.ip_forward=1 di /etc/sysctl.conf.

di mikrotik.
================

via Winbox

-IP > Web Proxy > Setting
-port =5150 ( bedakan portnya dengan port squid )
-hostname = proxy.mikrotik
-tranparent proxy dikasi tanda centang
-parent proxy = ipsquid(contoh192.168.100.254)
-parent proxy port = 3128
-cache administrator =naoki.ags@gmail
-maximum cache size = ….. ( 40 x memory )
-click enable
-trus click ok

kalo dibagian bawah udah ada tulisan “running” artinya web proxy mikrotik udah jalan

Setting NAT di Mikrotik
==========================

via Winbox

-IP > Firewall > NAT

Pada tab General Click tanda + masukan data – data sbb

-chain = dstnat
-src address = ip local squid(conth 192.168.100.254)

dan beri tanda centang di kotak kecil sebelah kiri, hal ini dimaksudkan supaya rule memberikan pengecualian kepada ip yang dimasukan ( ip local squid )

-protocol = 6 (tcp)
-dst port = 80

Pada tab Action

-action = redirect
-port = 5150 ( port web proxy mikrotik )

click ok

Tambahan setting pada rule firewall brutus atau flooding seperti yang dilakukan diatas. ( src address = ip squid dan tanda centang pada kotak kecil ) agar dilakukan pengecualian rule terhadap ip squid.

tranparent proxy harusnya udah jalan dan coba buka log squid untuk memonitor traffic.

-----------end--------------

Optimasi freebsd utk router / banwidth

2010-03-18T11:02:00.001+07:00

*diarsip kan di blog, spy g lupa dr kaskus

step.
1. installasi dasar freebsd utk pc router
2. setting modem & pppoe router
3. installasi squid cache dan optimasinya
4. instalasi dns cache + content filtering dan optimasinya
5. setting pf sebagai QoS bandwith manager
6. instalasi aplikasi monitoring (bandwithd,darksatat)

1. Instalasi dasar freebsd dan dns server denga bind, dikupas lengkap di :
hxxp://howtoforge.com/installing-a-freebsd7.0-dns-server-with-bind

2. Manajemen Sistem Operasi FreeBSD Pasca Instalasi, dikupas lengkap di ;
http://forum.linux.or.id/viewtopic.php?f=44&t=15429

3. Tips instalasi pppoe speedy telkom di freebsd :
- kernel di optimasi dulu biar simpel dan responsif
- tambahkan option2 berikut ini pada konfigurasi kernel anda, tempat file kernel ada di directory /sys/i386/conf/namakernel
config yang saya tambahkan dan kurangi contohnya :

Quote:

machine i386
cpu I686_CPU
ident PROXY-HIKMAH
maxusers 24

######YANG DIBUANG
#cpu I486_CPU # BUANG SAJA
#cpu I586_CPU # BUANG SAJA
#hints "GENERIC.hints" # BUANG SAJA
#makeoptions DEBUG=-g # BUANG SAJA
#options INET6 # BUANG SAJA, GAK MAKE IPV6
#options SCTP # BUANG SAJA, BIKIN BERAT KONEKSI
#options NFSCLIENT # BUANG SAJA
#options NFSSERVER # BUANG SAJA
#options NFSLOCKD # BUANG SAJA
#options NFS_ROOT # BUANG SAJA
#options MSDOSFS # BUANG SAJA
#options SMP # BUANG SAJA KALO TIDAK PAKE PROCESSOR CORE
#device apic # BUANG SAJA
#device fdc # BUANG SAJA GAK PERLU FLOPPY

#DAN BUANG SEMUA DRIVER YANG TIDAK DIBUTUHKAN, (wireless, usb,scanner dll)

#OPTIMAZTION#
makeoptions NO_MODULES=yes
makeoptions COPTFLAGS="-O2 -pipe -funroll-loops -ffast-math"

### PPPoE ADSL ########
options NETGRAPH
options NETGRAPH_ETHER
options NETGRAPH_PPPOE
options NETGRAPH_SOCKET

###.untuk support PF.-###
device pf
device pflog
device pfsync

###.untuk support altq cbq.###
options ALTQ
options ALTQ_CBQ
options ALTQ_RED
options ALTQ_RIO
options ALTQ_HFSC
options ALTQ_PRIQ
options ALTQ_NOPCC
options DEVICE_POLLING
options HZ=1000

optimasi make.conf

Quote:

CPUTYPE=pentium3 #sesuaikan dg type cpu, pentium 4=pentium4, core 2 duo=core
CFLAGS= -O2 -pipe -fno-strict-aliasing
COPTFLAGS= -O2 -pipe -funroll-loops -ffast-math -fno-strict-aliasing
OPTIMIZED_CFLAGS= YES
WITHOUT_X11= YES
BUILD_OPTIMIZED= YES
WITH_CPUFLAGS= YES
WITHOUT_DEBUG= YES
WITH_OPTIMIZED_CFLAGS= YES
BUILD_STATIC= YES
NO_INET6= YES
NO_IPFILTER= YES
setting pppoe yg saya gunakan

Quote:
default:
set device PPPoE:fxp0:speedy # Ganti fxp0 dg interface luar, speedy disini adl nama service dial nya.. sekedar nama
#fxp0 is the NIC the modem is connected to
set speed sync
set mru 1492
set mtu 1492
set ctsrts off
enable lqr
set log phase tun
nat enable no
set redial 0 0
set reconnect 3 20
add default HISADDR

speedy:
set authname 1*********@telkom.net
set authkey passwordspeedy

instalasi aplikasi:
a. squid, sebaiknya diinstall melallui ports agar lebih ramping, dan membuang yang tidak perlu dan menambahkan tunning option pada file config squid di /usr/ports/www/squid/Makefile
contoh :
--with-aufs-threads=24 \
--enable-async-io=24 \
--enable-kill-parent-hack \
--enable-cache-digests \
--enable-err-languages=English \
--with-aio \
--with-dl \
--enable-kqueue \
--disable-wccpv2 \
--disable-wccp \
--disable-htcp \
--disable-ident-lookups \
--enable-large-cache-files \
--with-maxfd=16380

b. sesuaikan config squid.conf dengan kondisi RAM dan hardisk anda, perhatikan besarnya cache, setiap 1 Gb cache membutuhkan 10Mb RAM,

c. configure pf.conf untuk management bandwith :
- untuk interface yang mnegarah keluar gunakan metode priq
silahkan baca di hxxpp://www.indofreebsd.or.id/networking/prioritas-ack-dengan-pf.html

-untuk interface yang mengarah ke LAN/client saya gunakan metode hfsc
silahkan baca di hxxp://calomel.org/pf_hfsc.html
d. untuk menggabungkan pf dan option ZPH pada squid silahkan baca di :
hxxp://tribudi.wordpress.com/2008/12/05/zph-squid-27stable4-pf-openbsd-44/

selamat mencoba

Install l.a.m.p

2010-01-15T10:49:00.001+07:00

Sekedar share, moga nggak basi berikut instalasi LAMP di pc Ubuntu 9.04 :

Install Apache

* Dengan menggunakan Terminal, lakukan instalasi apache dengan perintah "sudo apt-get install apache2"
* Ikuti instruksi instalasi, kemudian apabila selesai lakukan test di browser dengan mengetikkan alamat http//localhost

Install PHP

* Masih di Terminal, jalankan perintah "sudo apt-get install php5 libapache2-mod-php5"
* Ikuti instruksi instalasinya, kemudian setelah selesai restart apache2 (sudo /etc/init.d/apache2 restart) untuk mengecek apakah php sudah kompatibel dengan apache yang sudah diinstall sebelumnya
* Untuk melihat hasilnya, buat file php misalnya phpinfo.php yang isinya kurang lebih seperti ini :
* Simpan di var/www, dan panggil nama file tersebut di browser dengan alamat http://localhost/phpinfo.php (apabila muncul tampilan konfigurasi php, berarti modul php sudah aktif di apache)

Install MySQL

* Masih di terminal juga lho :) lakukan peritah "sudo apt-get install mysql-server"
* Ikuti instruksi instalasi termasuk setup password untuk user root mysql
* Apabila ingin menambahkan phpmyadmin, lakukan peritah "sudo apt-get install libapache2-mod-auth-mysql php5-mysql phpmyadmin" dan ikuti instruksi instalasi seperti biasa termasuk Intruksi pilih opsi web server dan password koneksi ke phpmyadmin.

Lakukan restart pada apache dan sudah siap deh dengan LAMP di Ubuntu 9.04

Catatan : akan ada warning pada saat start/restart/reload apache dikarenakan opsi ServerName masih kosong, untuk menghilangkan pesan error tersebut, tambahkan "ServerName localhost" (localhost/nama pc) pada dile apache2.conf. lakukan dengan perintah "sudo nano /etc/apache2/apache2.conf
"

Selamat mencoba .. dan semoga bermanfaat.

Artikel aslinya bisa diperoleh di : http://www.howtoforge.com/ubuntu_lamp_for_newbies

Download new zine in 2010

2010-01-13T09:50:00.001+07:00

Get the new zine from HackinTheBox in 2010, ENJOY!

https://www.hackinthebox.org/misc/HITB-Ezine-Issue-001.pdf

Live messenger blocked?

2009-10-29T10:32:00.001+07:00

If you are still using Windows Live Messenger 8.5, you get this popup everytime you login:

"Want the latest version of Messenger? It's ready to be installed" or "Pretende obter a versao mais recente do Messenger? Esta pronta para ser instalada" (Portuguese version)

SOLUTION:
1. Download and run Resource Hacker
2. Make a copy of C:\Program Files\Windows Live\Messenger\msnmsgr.exe (just in case)
3. Use Resource Hacker to edit msnmsgr.exe
4. On the left pane, Navigate to Version Info -> 1 -> 1033
5. On the right pane, replace

VALUE "ProductVersion", "8.5.1302"

with

VALUE "ProductVersion", "14.0.8064.206"

6. Push the "Compile Script" button
7. Save (ctrl+s) and Exit

Teman-teman SMA...

2009-09-25T08:25:00.001+07:00

Squid Performence

2009-06-27T09:12:00.000+07:00

dari blog kang harrychan

Hasil kumpulan dari pengalaman-pengalaman untuk mengoptimalkan kerja
proxy server (SQUID),
InsyaAllah SQUID akan bekerja lebih cepat dengan hit ratio lebih dari
50%.## Jika ada beberapa situs terdekat yg mungkin hanya 1 hop, di-by
pass saja supaya kerja Squid benar-benar utk yg jaraknya jauh
hierarchy_stoplist
cgi-bin ? localhost domain-anda.com isp-anda.com domainku.web.id
acl QUERY urlpath_regex cgi-bin ? localhost domain-anda.com isp-anda.com
domainku.web.id
no_cache deny QUERY
acl langsung dst xxx.xx.xxx.x/xx
no_cache deny langsung

dimana :
dst = IP
misal 202.95.150.0/29

## Dari pengalaman 6 MB akan lebih cepat dan biarkan Squid bekerja lebih
keras lagi
cache_mem 6 MB
cache_swap_low 98
cache_swap_high 99

## Maksimum obyek di hardisk dan di memori diupayakan lebih besar shg byte hit
lebih tinggi (bisa dinaikkan lagi jika hardisk berkecepatan tinggi dan jumlahnya
banyak dg memori yg lebih besar pula)

maximum_object_size 128 MB
maximum_object_size_in_memory 32 KB

## Jika memori 512 MB atau lebih besar silahkan cache diperbesar
ipcache_size 2048
ipcache_low 98
ipcache_high 99

## Utk heap replacement saya memakai LFUDA utk cache hardisk dan GDSF utk cache
memori dg alasan di hardisk diprioritaskan obyek yg ukuran besar-besar dan di
memori obyek yg ukurannya kecil-kecil utk disimpan

cache_replacement_policy heap LFUDA
memory_replacement_policy heap GDSF

## Idealnya ruang di hardisk yg anda pakai hanya sekitar 70% dari total krn
semakin penuh Squid akan semakin pelan mencari tempat kosong, mis. utk cache 1
GB maka yg dipakai hanya 700MB (jangan 1GB dipakai semuanya). Jangan lupa hanya
1 direktori per drive krn faktor penghambat adalah kecepatan spindle hardisk
lho, bukan terus dg memperbanyak direktori pada 1 hd akan mempercepat (hd orde
milidetik, memori orde
nanodetik). Jadi mending hardisknya banyak tapi ukurannya kecil-kecil daripada
hanya 1 berukuran besar. Terus jika OS-nya Linux pakailah FS-nya Reiser (versi 4
tercepat) dg metode akses aufs. Diskd optimal di FreeBSD tetapi tidak di Linux
lho. Jangan lupa di partisi tsb noatime dan notail diaktifkan spy tidak menambah
ekstra write saat menulis atau membaca. Intinya hardisk adalah faktor penghambat
terbesar di Squid.

## saran kira2 70% dari 16GB
cache_dir aufs
/cachez 12000 28 256
atau (utk ruang 4GB-an per hardisk)
cache_dir aufs /cachehardisk1 3000 8 256
cache_dir aufs /cachehardisk2 3000 8 256
cache_dir aufs /cachehardisk3 3000 8 256
cache_dir aufs /cachehardisk4 3000 8 256

## atau minimal di bawah ini supaya modifikasi tidak terlalu jauh
cache_dir diskd
/cachez 12000 28 256 Q1=72 Q2=88
Rumus Squid cache Dir :
[[[ X/13 ] / 256]
/ 256] * 2, contoh :
12.000.000/13 = 923076,9 / 256 = 3605,8 / 256 = 14 * 2 = 28

## Log utk info yg vital saja dan diusahakan file-file log ada di hardisk
tersendiri spy tidak mempengaruhi kecepatan direktori cache utamanya
log_fqdn off
log_icp_queries off
cache_log none
cache_store_log none

## Dg ‘menipu’ dan memaksa sedikit supaya akses obyek lebih intensif di lokal
Squid dan waktu simpan ditambah sebelum proses validasi terjadi (mis. validasi
terjadi per 3 jam dg penyimpanan obyek terlama 3 bulan, utk ftp bisa lebih lama
lagi)
refresh_pattern
^ftp: 10080 95% 241920 reload-into-ims override-lastmod
refresh_pattern . 180 95% 120960 reload-into-ims override-lastmod

## Toleransi aborting dihilangkan saja
quick_abort_min 0
quick_abort_max 0
quick_abort_pct 98

## Mematikan dan merekonfigurasi Squid jangan terlalu cepat krn bisa
mengakibatkan integritas file kacau shutdown_lifetime 10 seconds
## tidak perlu reservasi memori
memory_pools off

## Penting utk relasi dg sibling dg mengukur respons-nya via ICP dan ICMP
(dengan syarat mesin sibling/parent tsb diijinkan untuk menerima ICMP)
icp_hit_stale on
query_icmp on

## Penting utk meningkatkan refresh pattern lebih lanjut
reload_into_ims on
pipeline_prefetch on
vary_ignore_expire on

## Sekali lagi Squid diperlukan utk mengambil yg jaraknya jauh, jarak dekat
langsung saja

acl local-dst dst semuaalamatlokal
semuaalamatipygdekat
acl local-domain dstdomain localhost domain-anda.com isp-anda.com
domainku.web.id
always_direct allow localhost local-dst local-domain
always_direct deny all

## Tidak begitu diperlukan
##ie_refresh on

Sbg penutup ada beberapa lagi utk sedikit menaikkan kinerjanya Squid lagi.
1. Naikkan prioritas Squid via nice –20 (-20 tertinggi, terserah
dinaikkan sampai berapa, intinya supaya diproses dg prioritas lebih tinggi
dibanding daemon yg lain, default prio=0). Mis. startup skrip: /usr/bin/nice -n
–20 squid -DNY ….
2. Naikkan batasan FD (file deskriptor) juga saat startup: ulimit -HSn 8192
3. Bukalah sebanyak mungkin port utk akses keluar (bukan ke dalam lho): echo
1024 32768 > /proc/sys/net/ipv4/ip_local_port_range

Secara umum kesimpulannya:
1. Pergunakanlah atau sebarkanlah direktori cache Squid pada banyak
hardisk (kecil2 dg jumlah banyak lebih baik daripada besar2 dg jumlah sedikit).
2. Pergunakanlah RAM sebesar mungkin (yg juga terrefleksikan ke ukuran direktori
cache-nya).
3. Pergunakanlah FS (file system) yg berkecepatan tinggi (mis. ReiserFS,
noatime, notail) dg metode aufs.
4. Kompilasi ulang Squid dg opsi2 minimum yg dibutuhkan supaya lebih gesit dan
jangan lupa menambah kemampuan threads hardisk-nya.
5. Saran Adam Aube: kurangi ukuran maksimum object yg bisa di-cache jika
ternyata lebih pelan aksesnya (artinya penghematan bw harus seimbang dg
kecepatan akses)

Speedy Bridge + Squid Proxy

2009-06-27T08:30:00.002+07:00

article of ipb

Bagaimana membuat koneksi bridge mode dengan speedy dan membuat layanan Transparent Proxy untuk small office.

IP Speedy : 125.161.2xx.xxx
eth0 : Bridge
Server : Gateway, Proxy, DHCP-Server
eth1 : 192.168.1.0/24
Hotspot : bridge mode

diagram jaringannya seperti dibawah ini :



internet----modem adsl
                |
                |
                |
            linux ubuntu ---------- hotspot
                |
                |
                |
Client1<------Switch------>Client2 dst..

installasi :

1. Pastikan pada modem adsl kita setting pada mode bridge
2. Hubungkan kabel utp dari modem ke eth0 ( atau sesuaikan dengan jaringan )
3. Remote login ke mesin server

note : spesifikasi server

/boot = 256MB
/ = 2GB
/swap = 2GB
/cache = 2GB x 4
rest = LVM ( Logical Volume Management )

pastikan 3 point di atas sudah di lakukan dengan baik, dan lakukan perintah ini :

di karenakan setting up memerlukan hak akses root maka bisa dilakukan dengan sudo

user@ubuntu$sudo pppoeconf
or
root@ubuntu#pppoeconf

kita akan di berikan beberapa pertanyaan pertanyaan seputar login dan password speedy kita

1. ALL DEVICE FOUND? - Jawab: Yes
2. OKAY To MODIFY - Jawab: Yes
3. POPULAR OPTIONS - Jawab: Yes
4. ENTER USERNAME - Isi: nomorspeedy@telkom.netThis e-mail address is being protected from spambots, you need JavaScript enabled to view it
5. ENTER PASSOWORD - Isi: passwordspeedy
6. USE PEER DNS - Jawab: Yes
7. LIMITED DSS PROBELM - Jawab: Yes
8. DONE - Jawab: Yes , jika tidak ingin langsung terkoneksi saat booting jawab NO
9. ESTABLISH A CONNECTION - Jawab: Yes Maka langsung nyambung.

untuk yang memakai speedy base quota untuk mengoneksikan dengan sintaks

pon dsl-provider

untuk mematikan

poff

server saya mengunakan ubuntu bisa secara otomatis langsung terkoneksi ke internet setiap kali reboot, mungkin untuk distro yang lain yang tidak bisa secara otomatis terkoneksi bisa menambahkan ini pada rc.local di atas exit 0

ifconfig eth0 up
pon dsl-provider

pada /etc/network/interfaces tambahkan :

vim /etc/network/interfaces
# eth0 connect ke modem
auto eth0
iface eth0 inet manual

installasi proxy transparent untuk sedikit hemat bandwith kantor :

users@ubuntu$sudo apt-get install squid3 squid3-common squid3-cgi

tunggu hingga proses installasi selesai di lakukan, jika proses installasi selesai dan tidak ada masalah maupun error maka kita sudah bisa mulau mengkonfigurasi squid kita :

users@ubuntu$ mv /etc/squid3/squid.conf /etc/squid3/squid.conf.ori
users@ubuntu$vim /etc/squid3/squid.conf

kopi pasti konfigurasi di bawah ini dan sedikit memodifikasi sesuai dengan mesin kita :

http_ports 3128 transparent <== untuk membuat proxy kita transparent
hierarchy_stoplist cgi-bin ?
acl QUERY urlpath_regex cgi-bin \?
no_cache deny QUERY
hosts_file /etc/hosts
refresh_pattern ^ftp: 1440 20% 10080
refresh_pattern ^gopher: 1440 0% 1440
refresh_pattern . 0 20% 4320
acl all src 0.0.0.0/0.0.0.0
acl manager proto cache_object
acl localhost src 127.0.0.1/255.255.255.255
acl to_localhost dst 127.0.0.0/8
acl purge method PURGE
acl CONNECT method CONNECT
cache_mem 1024 MB
http_access allow manager localhost
http_access deny manager
http_access allow purge localhost
http_access deny purge
http_access deny !Safe_ports
http_access deny CONNECT !SSL_ports
acl lan src 192.168.1.1 192.168.2.0/24 <== sesuaikan dengan lokal network kita
http_access allow localhost
http_access allow lan
http_access deny all
http_reply_access allow all
icp_access allow all
visible_hostname myclient.hostname.com <== sesuaikan dengan hostname kita
coredump_dir /var/spool/squid
cache_dir aufs /cache 2000 4 256 <== sesuaikan dengan partisi atau direktori cache kita

perhitungan untuk mencari L1 cache, contoh :

2GB di bagi 13 di bagi 256 dibagi lagi 256 di kalikan 2, nilah terakhir adalah L1 kita dan untuk kapasitas 2GB adalah 4,5 atau saya ambil nilai terkecil 4 untuk menghindari space di isi secara penuh 2 GB yang akan membuat proxy kita kurang optimal, silakan di sesuaikan dengan kebutuhan kita untuk yang ini.

simpan shell script iptables di bawah ini untuk membuat server kita berfungsi sebagai gateway dan proxy transparent, agar seluruh request dari blok 192.168.1.0./24 pada port 80 di redirect pada port 3128

#!/bin/sh
# ————————————————————————————
# See URL: http://www.cyberciti.biz/tips/linux-setup-transparent-proxy-squid-howto.html
# (c) 2006, nixCraft under GNU/GPL v2.0+
# ————————————————————————————-
# squid server IP
SQUID_SERVER=”192.168.1.2″
# Interface connected to Internet
INTERNET=”ppp0″
# Interface connected to LAN
LAN_IN=”eth1″
# Squid port
SQUID_PORT=”3128″

# DO NOT MODIFY BELOW
# Clean old firewall
iptables -F
iptables -X
iptables -t nat -F
iptables -t nat -X
iptables -t mangle -F
iptables -t mangle -X
# Load IPTABLES modules for NAT and IP conntrack support
modprobe ip_conntrack
modprobe ip_conntrack_ftp
# For win xp ftp client
#modprobe ip_nat_ftp
echo 1 > /proc/sys/net/ipv4/ip_forward
# Setting default filter policy
iptables -P INPUT DROP
iptables -P OUTPUT ACCEPT
# Unlimited access to loop back
iptables -A INPUT -i lo -j ACCEPT
iptables -A OUTPUT -o lo -j ACCEPT
# Allow UDP, DNS and Passive FTP
iptables -A INPUT -i $INTERNET -m state –state ESTABLISHED,RELATED -j ACCEPT
# set this system as a router for Rest of LAN
iptables –table nat –append POSTROUTING –out-interface $INTERNET -j MASQUERADE
iptables –append FORWARD –in-interface $LAN_IN -j ACCEPT
# unlimited access to LAN
iptables -A INPUT -i $LAN_IN -j ACCEPT
iptables -A OUTPUT -o $LAN_IN -j ACCEPT
# DNAT port 80 request comming from LAN systems to squid 3128 ($SQUID_PORT) aka transparent proxy
iptables -t nat -A PREROUTING -i $LAN_IN -p tcp –dport 80 -j DNAT –to $SQUID_SERVER:$SQUID_PORT
# if it is same system
iptables -t nat -A PREROUTING -i $INTERNET -p tcp –dport 80 -j REDIRECT –to-port $SQUID_PORT
# DROP everything and Log it
iptables -A INPUT -j LOG
iptables -A INPUT -j DROP

di karenakan pada ubuntu saya belum menemukan bagaimana cara menyimpan iptables maka shell script di atas saya simpan pada direktori home saya dan saya menambahkan pada rc.local agar setiap kali reboot shell script di atas di execute/jalankan.

sh iptables.sh < tambahkan baris ini di atas exit 0

Install bandwidth management dengan htb tools di ubuntu

2009-06-27T08:03:00.002+07:00

Spy gw g lupa...
from:pinokio

Kegunaan management bandwidth ini sangat penting bagi kalangan perkantoran, perguruan tinggi, isp, atau lembaga - lembaga sosial. Langsung wae lah..

1. masuk dulu di folder /usr/local/src
#cd /usr/local/src

2. download paket htb tools
#wget http://www.geocities.com/safinatuddin/HTB-tools-0.3.0a-i486-1.tgz

3. ekstrak file nya
#tar -zxvf HTB-tools-0.3.0a-i486-1.tgz

akan muncul folder etc, install, folder, sbin

4. pindahkan isi semua folder sbin nya htb tools di /sbin server

#cd /usr/local/src/sbin
#mv htb /sbin
#mv htbgen /sbin
#mv q_checkcfg /sbin
#mv q_parser /sbin
#mv q_show /sbin

5. Masuk ke folder etc nya htb tools pindahin folder htb ke /etc nya server
#cd /usr/local/src/etc
#mv htb /etc

6 hilangkan tulisan new yang ada di folder htb yang udah kita pindahin tadi
#mv /etc/htb/eth0-qos.cfg.new /etc/htb/eth0-qos.cfg
#mv /etc/htb/eth1-qos.cfg.new /etc/htb/eth1-qos.cfg

7. masuk ke folder rc.d nya di etc htb tools
#cd /usr/local/src/etc/rc.d

8. masukkan file rc.htb new ke folder init.d nya server kita dan ganti jadi rc.htb
#mv rc.htb.new /etc/init.d/rc.htb

9. chmod file rc.htb nya
#chmod 755 /etc/init.d/rc.htb

10. konfigurasi eth0-qos cfg dan eth1-qos cfg sesuai kebutuhan, kali ini gue mau jelasin untuk eth1, yaitu ip lokal kita. (contoh doang lho)
#nano /etc/htb/eth1-qos.cfg

-- contoh konfigurasi --
# Pengaturan bandwidth kantorptblablabla

class kantorptblablabla {
bandwidth 1024;
limit 2048;
burst 2;
priority 1;

client bos {
bandwidth 256;
limit 512;
burst 2;
priority 1;
dst {
192.168.168.5/32;
};
};

client hotspot {
bandwidth 32;
limit 256;
burst 2;
priority 1;
dst {
192.168.168.6/32;
};
};

client sekretaris {
bandwidth 64;
limit 256;
burst 2;
priority 1;
dst {
192.168.168.7/32;
};
};

client karyawan_utama {
bandwidth 256;
limit 512;
burst 2;
priority 1;
dst {
192.168.168.11/32;
192.168.168.12/32;
192.168.168.13/32;
192.168.168.14/32;
192.168.168.15/32;
192.168.168.16/32;
192.168.168.17/32;
192.168.168.18/32;
192.168.168.19/32;
192.168.168.20/32;
192.168.168.21/32;
192.168.168.22/32;
192.168.168.23/32;
192.168.168.24/32;
192.168.168.25/32;
};
};

client karyawan_sisa {
bandwidth 256;
limit 512;
burst 2;
priority 1;
dst {
192.168.100.0/24;
};
};
};

class default { bandwidth 8; };

-- berakhir diatas tulisan ini --
simpen make ctrl+x tekan y kemudian enter

ket:
- untuk boss dapet bandwidth dengan ip sendiri maksimal 512 (1:2 baca satu banding dua) artinya kalo trafic bagus dia dapat 512, tapi kalo trafic terlalu full dia dapat 256, tapi disini si boss bakalan dapet 512, soalnya limit maksimal bandwidth juga pass di setting/menej 2 mega sich.

- untuk server hotspot (misalnya kalo make hotspot) dapet bandwidth 512 (1:8).
- untuk sekretaris dapet bandwidth 256 (1:4)
- untuk karyawan utama dengan ip yang ditulis diatas dapet bandwidth 512 (1:2) disini pada karyawan utama bandwidthnya kita gunain sistem sharing..
- untuk karyawan sisa dengan ip mulai dari 192.168.100.0 - 192.168.100.255 akan dapet bandwidth 512 (1:2)

(itu management bandwidth asal aja lho, pandai-pandai kalian management lah, intinya kudu ngerti konsep ip address sama bandwidth management he, he, he..)

11. kalo udah di edit, jalankan htb tools nya
#/etc/init.d/rc.htb start_eth1

12. kalo mau lihat hasilnya jalan trafic nya bisa dilihat dengan perintah
#/etc/init.d/rc.htb show_eth1

udah ah capek, kalo ada yang kurang jelas tanya yach.... eh sedikit lagi, untuk setiap pengeditan di eth1-qos.cfg sebaiknya htb tools dimatiin dulu caranya "/etc/init.d/rc.htb stop_eth1" (tanpa tanda kutip), kalo udah di edit baru di jalankan lagi, ok.....

jgn lupa
#chmod 755 /etc/init.d/rc.htb

Sinopsis Novel Gading-Gading Ganesha

2009-06-06T12:32:00.000+07:00

Novel 3G merupakan mozaik perjalanan hidup enam anak manusia berlatar belakang etnik yang beragam. Ke enam tokoh dalam cerita tersebut adalah Slamet (Trenggalek), Fuad (Surabaya), Poltak (Siantar), Gun Gun (Ciamis), Ria (Padang) dan Benny (Jakarta) yang dipersatukan saat keenamnya masuk pada tahun yang sama untuk menempuh study di perguruan tinggi yang sama, ITB.

Slamet adalah putra Trenggalek pertama yang sanggup menembus ITB. Dia berangkat ke Bandung dengan kereta api klutuk, kereta api kelas paling murah dan itulah kali pertama dia naik kereta api, bercampur dengan para pedagang, buruh, ayam, pindang, dan telor asin. Sesampai di Bandung, saat menuju ke ITB, Slamet tersesat ke sana kemari dan harus tidur di mesjid Salman semalam, menjelang pendaftaran yang harus dia lakukan, karena tidak memiliki seorang saudarapun di Bandung. Slamet yang berasal dari desa mengalami inferior kompleks pada awal-awal perkuliahannya, namun gemblengan di ITB membuat dia kuat dan lulus tercepat dengan Indeks Prestasi terbaik dibandingkan dengan ke lima kawannya. Setelah lulus kuliah, Slamet bekerja di Jakarta, namun tidak bertahan lama karena perang batin terhadap praktik-praktik bisnis kotor, dan akhirnya kembali ke almamaternya menjadi dosen. Slamet yang semula ingin melabuhkan asamaranya pada seorang gadis kaya, karena pertimbangan brain, beauty, body dan materi, akhirnya justru memilih gadis sedesanya yang lebih memberikan ketentraman hati. Slamet melanjutkan kuliah sampai selesai S3 ke Australia, di mana dia sempat beberapa saat berkumpul kembali dengan sahabat-sahabatnya itu di kota Melbourne yang kebetulan berada pada kota yang sama pada periode waktu tertentu untuk masing-masing urusan yang berbeda. Kemiskinan tak menyurutkan langkahnya untuk mencapai level pendidikan tertinggi. Intelektualitas yang dimiliki tak mencabutnya dari akar budaya dan agama yang luhur. Bumi ganesha mendidiknya menjadi orang yang berkarakter.

Fuad asli Surabaya keturunan Arab-Madura, adalah seorang yang sangat percaya diri dan dari sononya memiliki gen keturunan ahli dagang. Sejak hari pertama penerimaan mahasiswa baru, Fuad yakin bahwa di ITB inilah dia mendapatkan muara bagi pengembangan minat politiknya. Fuad yang sangat itungan dan pelit itu kemudian tenggelam dalam eforia politik praktis dan sempat ditangkap dan dipenjara Poltabes, digebuki. Musibah menimpa keluarga Fuad, rumah orang tuanya ludes terbakar, dan tak sanggup membiayai lagi kuliah Fuad. Fuad harus kerja serabutan, dan akhirnya mendapatkan pekerjaan yang cukup mapan saat kuliahnya belum selesai. Bisnis Fuad lancar dan karirnya melaju, namun studynya tak tertolong, Fuad drop out dari ITB. Pasang surut yang dialami membuat hidup Fuad penuh fluktuasi termasuk dalam prinsip-prinsip yang dia pegang. Pada suatu titik akhirnya memberikan kesadaran pada diri Fuad pula, bahwa ada hal lebih besar yang dapat dia kontribusikan. Drop out dari kuliah, rumah orang tuanya yang hangus terbakar, harus berdikari di usia yang begitu muda tak membuatnya terbuang dari kancah persaingan. ITB membekali dirinya dengan daya juang dan daya tahan yang tiada duanya.

Poltak, mahasiswa asal Siantar yang dalam perjalanannya dari daerah asalnya ke Bandung naik bis Lintas Sumatra, berniat akan memperbaiki jalanan yang mirip kubangan kerbau sepanjang Siantar -Merak setelah lulus dari Teknik Sipil ITB. Namun karena dorongan kebutuhan yang mendesak saat kuliah dan justru mendapatkan dunia lain yang lebih menarik baginya, dia justru tidak mengabdikan ilmunya di Teknik Sipil, melainkan menjadi event organizer yang kemudian justru membesarkan namanya pada awal-awal membuka usahanya. Poltak yang pandai bicara itu menjadi pengusaha yang sukses berkat kemampuannya membangun jaringan dan rasa setiakawannya yang begitu kuat, serta emphatynya bagi orang-orang yang kurang beruntung. Poltak menjadi pengusaha sukses yang mau berbagi dan peduli pada nasib rakyat banyak. Kekurangan secara ekonomi tak harus membuatnya kehilangan kreativitas. Kemakmuran yang kemudian dicapai tak harus membuatnya lupa akan asalnya. Cobaan yang dialaminya istrinya yang nyaris dijebloskan penjara di luar negeri disikapi dengan kesabaran. Lingkungan pendidikan di ITB membekalinya untuk selalu bersikap seimbang dan tidak menjadikannya binatang ekonomi.

Benny, seorang anak mami dari Jakarta yang sekolah ke ITB karena dipaksa kedua orang tuanya, bukan karena kemauannya sendiri. Benny adalah potret seorang anak yang sejak kecil diplot dan dijadikan projek bagi kedua orang tuanya. Selesai kuliah yang ditempuhnya dalam waktu maksimal, 7.5 tahun, dia menyerahkan ijazah yang sudah diraihnya kepada kedua orang tuanya, dan menekuni musik yang menjadi hobbynya. Saat kuliah, sikap bossy kedua orang tuanya menurun kepada Benny dalam beberapa hal, misalnya dia akan dengan senang hati mensub-kontrakan tugas-tugas kuliahnya kepada teman-temannya dengan sekedar mentraktir makan, nonton film atau meminjamkan komputernya. Benny yang flamboyan, terbentur kenyataan bahwa Ria yang ditaksirnya ternyata menolaknya dan membuat Benny tidak pernah serius membina hubungan dengan wanita sampai kemudian menyadari bahwa usia telah merenggut masa mudanya. Pergaulannya dengan Slamet, Fuad, Gun Gun dan Poltak dari kelas menengah ke bawah, membuat Benny pada akhirnya berubah menjadi lebih matang, simpati dan memilki karakter. Manusia dapat berubah seiring dengan usia dan dengan siapa dia bergaul dalam waktu yang intens. Lingkungan ITB memberinya kesadaran bahwa masih banyak orang yang kurang beruntung di banding dengan dirinya dan lebih banyak lagi orang yang lebih sukses di banding dirinya. Menjadi orang simpati akan lebih memudahkan segala urusan. Jadi tak ada lagi gunannya bersikap sombong dan bossy.

Gun-gun, mahasiswa dari Ciamis yang sangat stereotype sebagai orang Sunda yang merasa berada di comfort zone tanah kelahirannya, dan tidak berniat ke luar dari Bandung apapun yang terjadi. Walau Galunggung dan Tangkuban Prau meletus beribu kali,Bandung tetaplah tempat berpijaknya. Setelah lulus dan bekerja di BUMN, Gun Gun sempat sekolah S2 ke luar negeri dengan beasiswa dari grantt pemerintah Australia. Di luar negeri, Gun Gun mengalami gegar budaya, dia yang semula relegius kemudian justru tersangkut membina hubungan dengan wanita Thailand. Istrinya yang ditinggalnya di tanah air, karena beasiswanya tak cukup, membuat Gun Gun kesepian dan akhirnya tertambat serta terhempaskan oleh wanita Thailand itu. Kesadarannya timbul saat istri dan putri tunggalnya meninggal dunia terkena wabah demam berdarah saat kuliah S2 Gun Gun belum selesai. Sekembali ke Indonesia, krisis moneter terjadi, perusahaannya bangkrut dan Gun Gun terkena PHK. Berkat bantuan dan jaringan pertemanan yang dibina dengan saling percaya dan saling membantu, Gun Gun tetap kokoh bahkan merintis usahanya sendiri selepas PHK, menjadi manusia yang merdeka. Ditinggal mati keluarga, perusahaan tempat bekerja bangkrut dan dia di-PHK tak membuat Gun Gun nglokro, lemas tak berdaya, tapi justru membuatnya semakin tegar. Alumni ganesha harus kuat dan tak mudah menyerah.

Ria, gadis Padang jelita yang menjadi bunga kampus, rebutan dari hampir semua orang dan empat sekawan kos yang hanya berani berangan-angan itu, seorang tomboy yang ternyata hatinya sangat lembut dan rapuh. Karena begitu cantik, pandai dan serba berkecukupan, malah tak ada seorangpun yang berani mendekatinya, sampai kemudian di usianya yang sudah tidak muda lagi, betul-betul terpanah oleh busur asmara yang dilontarkan seorang cleaning service di tempat kerjanya. Ria yang semula sudah tidak terlalu peduli lagi dengan kehidupan berumah tangga, justru mendapatkan kembali aura semangatnya semasa mahasiswi dulu. Hidup menjadi begitu indah dan bergairah baginya, apalagi saat mendapati bahwa dirinya tak bertepuk sebelah tangan. Namun malang tak dapat ditolak, lelaki yang dicintainya meninggal dunia karena penyakit Lupus sebelum naik ke pelaminan dengannya. Akhirnya kesadaran bahwa lebih bak dicintai dari pada mencintai dan bahwa wanita di usia tak muda lagi lebih mengetengahkan logika dari pada emosi dalam perjodohannya membuat Ria menerima cinta Benny yang setia menunggunya dan memilih tidak menikah jika tidak dengan Ria. Allah tak selalu menguji dengan kekurangan. Manusia biasanya sukses dalam mengadapi ujian akan kegagalan tapi justru gagal jika diuji dengan kesuksesan. Ria yag memiliki segalanya, cantik, pintar, kaya, merupakan sosok langka yang sukses menghadapi ujian jenis yang kedua tersebut. ITB memberikan bekal yang cukup untuk bersikap tabah, sabar, tawadu, dan namun tetap terus gigih berusaha, rasional dan realistis.

Kisah yang dimulai dengan keberangkatan masing-masing tokoh dari daerah asalnya, diikuti dengan berbagai pergulatan hidup dan konflik batin pada diri masing-masing tokoh tersebut, akhirnya diakhiri dengan pertemuan kembali 25 tahun kemudian dengan satu kesadaran yang kembali mereka temukan. Cita-cita yang melambung tinggi serta harapan yang menggunung dari orang tua masing-masing, saudara dan masyarakat sejenak terlupakan karena kesibukan mencari materi dan survive dalam kehidupan penuh konsumersime. Dalam pertemuan kembali setelah terpisah 25 tahun tersebut, mereka menghitung kembali bahwa sudah terlalu banyak nikmat diserap, melewati titik nol atau bahkan minus saat mereka masuk ITB, banyak waktu tersia-siakan oleh kesibukan yang self interest dan ternyata tidak banyak karya nyata dan kontribusi mereka berikan ke masyarakat dan kepada bangsa yang telah mensubsidi sekolah mereka. Timbul kesadaran untuk membangun negeri dengan menjadi pelopor membangun jaringan seluruh alumni dan orang-orang yang sepaham dari berbagai universitas untuk membuat karya nyata, menanggalkan primordialisme baju alumni, dengan satu tekad: kelas menengah adalah agen perubahan di manapun di dunia ini. Perubahan kepemimpinan dunia kepada tokoh-tokoh yang berkarakter semacam Ahmad Dinejad Presiden Iran, Barack Obama Presiden Amerika Serikat, Che Guevara Presiden Kuba, dan sepak terjang Muhammad Yunus Pemenang Nobel dengan Grameen Banknya memberikan inspirasi untuk meretas kembali jalan membangun pengabdian kepada bangsa di usia emas mereka. Mengingatkan bahwa sejarah pernah mereka buat di masa mahasiwa dulu, yang mungkin kini terlupakan. Hidup tak dapat diputar ulang, sekali berarti sesudah itu mati!

Pesan Moral:

Pesan moral yang ingin disampaikan dalam film ini adalah:

1. Allah tak akan mengubah nasib suatu kaum kecuali kaum itu mengubahnya sendiri

2. Kaum muda dan kelas menengah memilki potensi yang dahsyat untuk menjadi agen perubahan bagi peningkatan daya saing bangsa.

3. Pada suatu titik, manusia tidak lagi dinilai dari apa yang dia miliki tetapi apa yang dia kontribusikan kepada sesamanya dan bagaimana menjadi rahmatan lil alamin

4. Bangsa yang berkarakter lah yang akhirnya akan mampu bersaing.

5. Pendidikan yang menyeimbangkan aspek intelektualitas, emotional dan spiritual lah yang pada akhirnya akan melahirkan manusia unggul.

How-to-regularly-backup-windows-xp-to-ubuntu-using-rsync

2009-05-29T13:14:00.000+07:00

Set up rsync server on Ubuntu

1. Run sudo apt-get install rsync (it’s probably already installed)
2. Create a file named rsyncd.conf in /etc
1.

sudo nano /etc/rsyncd.conf

2. Add the following to rsyncd.conf, replacing all instances of username with your Ubuntu username:

[usernamebackup]

path = /home/username/backup
comment = Backup
uid = username
gid = username
read only = false
auth users = username
secrets file = /etc/rsyncd.secrets

3.

sudo chmod 644 /etc/rsyncd.conf

3. Create a file named rsyncd.secrets in /etc
1.

sudo nano /etc/rsyncd.secrets

2. Add the following to rsyncd.secrets, replacing username with your username and password with a password of your choosing:

username:password

3.

sudo chmod 600 /etc/rsyncd.secrets

4. Open rsync port by editing /etc/default/rsync and setting

RSYNC_ENABLE=true

5. Restart rsync

sudo /etc/init.d/rsync restart

Set up rsync client on Windows

1. Install Cygwin, making sure Editors > nano and Net > rsync are selected
2. Add C:\cygwin\bin; to the Windows PATH statement
1. Right-click on My Computer and select Properties
2. Switch to the Advanced tab and click the Environment Variables button at the bottom
3. Find the “Path” or “PATH” variable in the System variables list at the bottom and click Edit
4. Add C:\cygwin\bin; to the beginning of the list
3. Create secret file to store password in Cygwin
1. Start Cygwin Bash Shell
2. Create secret file in the filesystem root and enter only the password in rsyncd.secrets above, with no spaces or line breaks

nano /secret

3.

chmod 600 /secret

4.

chown Administrator:SYSTEM /secret

4. Create bat file to run rsync
1. Open Notepad and enter the following command, replacing User Name with your Windows User Name directory, username with your Ubuntu username, and ipaddress with the IP address of your Ubuntu server (e.g. 192.168.0.100):

C:\cygwin\bin\rsync.exe -qrtz --password-file=c:\cygwin\secret --delete "/cygdrive/c/Documents and Settings/User Name" username@ipaddress::usernamebackup

As you may have guessed, the "/cygdrive/c/Documents and Settings/User Name" command line option designates where to start backing up from. As currently configured, this will backup your Windows home directory (Desktop, My Documents, etc). If you want to backup your whole hard drive, change that option to "/cygdrive/c".
2. Save the file as C:\rsync.bat

Create scheduled task to run C:\rsync.bat once a day

1. Create scheduled task
1. Goto Start > Programs > Accessories > System Tools > Scheduled Tasks
2. From the File menu, select New > Scheduled Task
3. Name this task “rsync backup”
4. Right-click on the task and select properties
5. Enter C:\rsync.bat in the Run field
6. Switch to the Schedule tab and select the time you want the backup to run every day and click Ok
2. Test the scheduled task
1. Create a folder called C:\data and put a few photo files in it
2. Edit C:\rsync.bat and change "/cygdrive/c/Documents and Settings/User Name" to "/cygdrive/c/data"
3. Add the command pause on a new line at the bottom of C:\rsync.bat and save the file
4. Right-click on the “rsync backup” scheduled task and select “Run”—A command window should popup and with either errors or the list of files being transfered. If there are errors, troubleshoot them.
5. Once the scheduled task and C:\rsync.bat appear to be working correctly, change "/cygdrive/c/data" back to "/cygdrive/c/Documents and Settings/User Name" and remove the pause command
6. Finally, edit the scheduled task properties and change “Run as:” to NT AUTHORITY\SYSTEM—this will ensure that the process runs in the background, without popping up a command prompt window

Run your first backup

Run C:\rsync.bat from the command line before going to bed. Backing up 35GB over a wireless-g connection took me over 8 hours. Subsequent backups take less than a minute. Behold the beauty of rsync.

Source:
http://ubuntulinuxhelp.com/how-to-regularly-backup-windows-xp-to-ubuntu-using-rsync/

Konfigurasi Samba Sebagai PDC di Ubuntu Server

2009-05-27T09:12:00.001+07:00

Samba adalah himpunan aplikasi yang bertujuan agar komputer dengan sistem operasi Linux, BSD ( atau UNIX lainnya) dapat bertindak sebagai file dan print server yang berbasis protokol SMB (session message block). Jaringan yang semacam ini biasa dijumpai pada Windows workgroup atau Windows NT Domain. Samba juga dilengkapi dengan beberapa program bantu sehingga sistem operasi Linux (dan UNIX lainnya) bisa mengakses resources yang ada pada jaringan Windows yang telah ada. Bisa dikatakan, Samba adalah jembatan penghubung antara Windows dan UNIX.

Samba terdiri atas dua program yang berjalan di background: SMBD dan NMBD. Secara singkat dapat disebutkan bahwa SMBD adalah file server yang akan menghasilkan proses baru untuk setiap client yang aktif sementara NMBD bertugas mengkonversi nama komputer (NetBIOS) menjadi alamat IP sekaligus juga memantau share yang ada di jaringan. Kerja SMBD sendiri diatur melalui file konfigurasi /etc/samba/smb.conf. Dengan membuat file konfigurasi yang tepat, Samba dapat dijadikan file server, print server, domain controller, dan banyak fungsi lainnya.

Berikut ini adalah cara mengkonfigurasi Samba Server Sebagai PDC :

1. pertama dowload program samba dan accesorisnya :

apt-get install samba samba-common samba-doc libcupsys2-gnutls10 libkrb53 winbind smbclient

2. Konfigurasi /etc/samba/smb.conf sebagai berikut :

[global]
workgroup = ubuntudk.com --> ubah sesuain yang kita mau
netbios name = ubuntuserver --> ubah sesuain yang kita mau
server string = %h server (Samba, Ubuntu) --> ubah sesuain yang kita mau
passdb backend = tdbsam
security = user
username map = /etc/samba/smbusers
name resolve order = wins bcast hosts
domain logons = yes
preferred master = yes
wins support = yes

# Useradd scripts
add user script = /usr/sbin/useradd -m %u
delete user script = /usr/sbin/userdel -r %u
add group script = /usr/sbin/groupadd %g
delete group script = /usr/sbin/groupdel %g
add user to group script = /usr/sbin/usermod -G %g %u
add machine script = /usr/sbin/useradd -s /bin/false/ -d /var/lib/nobody %u
idmap uid = 15000-20000
idmap gid = 15000-20000

# sync smb passwords woth linux passwords
passwd program = /usr/bin/passwd %u
passwd chat = *Enter\snew\sUNIX\spassword:* %n\n *Retype\snew\sUNIX\spassword:* %n\n .
passwd chat debug = yes
unix password sync = yes

# set the loglevel
log level = 3

[homes]
comment = Home
valid users = %S
read only = no
browsable = no

[netlogon]
comment = Network Logon Service
path = /home/samba/netlogon
admin users = Administrator
valid users = %U
read only = no

[profile]
comment = User profiles
path = /home/samba/profiles
valid users = %U
create mode = 0600
directory mode = 0700
writable = yes
browsable = no

3. Buat beberapa direktori berikut sebagai domain logon dan profile :

mkdir /home/samba
mkdir /home/samba/netlogon
mkdir /home/samba/profiles
mkdir /var/spool/samba
chmod 777 /var/spool/samba/
chown -R root:users /home/samba/
chmod -R 771 /home/samba/

4. Lalu restart samba

/etc/init.d/samba restart

5. Ubah pada bagian /etc/nsswitch.conf, pada baris :

hosts: files dns
menjadi :
hosts: files wins dns

6. tambahkan beberapa pc clinet pada /etc/hosts :

127.0.0.1 localhost
192.168.0.136 ubuntuserver.dk.co.id ubuntuserver.dk.co.id
192.168.0.131 ciko
192.168.0.133 dian
192.168.0.135 gustin

7. Tambahkan user root kedalam user samba :

smbpasswd -a root
New SMB password:
Retype new SMB password:

8. buat file /etc/samba/smbusers lalu jalankan :

echo "root = Administrator" > /etc/samba/smbusers

mengartikan bahwa user root = user administrator pada windows

9. Test drive, apakah settingan kita dah benar :

smbclient -L localhost -U%

akan menghasilkan output :

Domain=[UBUNTUDK.COM] OS=[Unix] Server=[Samba 3.0.22]

Sharename Type Comment
--------- ---- -------
netlogon Disk Network Logon Service
allusers Disk All Users
IPC$ IPC IPC Service (ubuntuserver server (Samba, Ubuntu))
ADMIN$ IPC IPC Service (ubuntuserver server (Samba, Ubuntu))
Domain=[UBUNTUDK.COM] OS=[Unix] Server=[Samba 3.0.22]

Server Comment
--------- -------
UBUNTUSERVER ubuntuserver server (Samba, Ubuntu)

Workgroup Master
--------- -------
UBUNTUDK.COM UBUNTUSERVER

10. lalu kita setup domain group untuk windows, jalankan perintah :

net groupmap modify ntgroup="Domain Admins" unixgroup=root
net groupmap modify ntgroup="Domain Users" unixgroup=users
net groupmap modify ntgroup="Domain Guests" unixgroup=nogroup

11. tambah user linux dan user samba dengan cara :
user linux :

useradd ciko -m -G users

user samba :

smbpasswd -a ciko

12. Sekarang tambahan direktori share yang akan dipakai oleh seluruh user :

mkdir -p /home/shares/allusers
chown -R root:users /home/shares/allusers/
chmod -R ug+rwx,o+rx-w /home/shares/allusers/

13. Ubah juga pada /etc/samba/smb.conf, tambahkan baris berikut :

[allusers]
comment = All Users
path = /home/shares/allusers
valid users = @users
force group = users
create mask = 0660
directory mask = 0771
writable = yes

14. lalu restart samba kembali :

/etc/init.d/samba restart

15. Langkah Yang terakhir dalah dengan menjoinkan mesin windows ke pdc linux kita, dengan cara : ( Testing Dengan Windows XP )
- click kanan pada mycomputer
- pilih computer name lalu change
- masukan domain PDC pada bagisn domain
- akan muncul windows yang meminta memasukan user dan password, pada langkah ini masukan user root dan password samba untuk user root
- OK
- Akan muncul bahwa kita sukses menjoinkan mesin windows ke PDC linux

Nb :
Ubuntu Server 6.06
Windows Xp SP2 ( Client )

sumber:
http://ubuntulinux.or.id/blog/2006/10/06/konfigurasi-samba-sebagai-pdc-di-ubuntu-server/

folder lock

2009-04-08T13:20:00.002+07:00

cls
@ECHO OFF
title kunci folder
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Locker goto MDLOCKER
:CONFIRM
echo Ar u sure want lock ??(Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Locker "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Succses locked!
goto End
:UNLOCK
echo Enter passwd
set/p "pass=>"
if NOT %pass%== fuckingmoron goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Locker
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md LockerFolder
echo Foldernya berhasil di buat
goto End
:End

100% cure for Conficker - Computerworld Blogs

2009-04-01T08:27:00.000+07:00

Source: blogs.computerworld.com

Worried about Conficker? You don't have to be. There's a software patch that will get rid of all your Conficker worries once and for all! Better still, it will also rid you of 99.9999% of all your malware concerns once and for all. Its name is Linux.

Satu Router Untuk 2 Koneksi ISP

2009-03-25T10:58:00.000+07:00

Sambungan ADSL melalui eth2 IP address 192.168.1.222
dengan gateway IP 192.168.1.1.

dari Spin-net melalui eth0 IP address 203.134.148.2 melalui WiFi / Wireless
dengan gateway 203.134.148.1Sambungan LAN melalui eth1 IP address 192.168.0.222.

Langkah konfigurasi pc-router menggunakan linux ubuntu adalah sebagai berikut.

$ sudo bash
tekan [enter] hingga muncul tanda string ( # )
Edit informasi interface pada file /etc/network/interfaces, dapat dilakukan menggunakan vi

# vi /etc/network/interfaces

Informasi penting yang perlu di-edit pada file interfaces adalah

auto eth0
iface eth0 inet static
address 203.134.148.2
netmask 255.255.255.240

auto eth1
iface eth1 inet static
address 192.168.0.222
netmask 255.255.255.0

auto eth2
iface eth2 inet static
address 192.168.1.222
netmask 255.255.255.0

Install aplikasi layanan ssh agar bisa remote dari komputer klien

# apt-get install openssh-server
# /etc/init.d/ssh restart

Selanjutnya kita perlu menset routing dan load balancing yang secara sederhana adalah sebagai berikut

# /sbin/ip link set lo up
# /sbin/ip link set eth0 up
# /sbin/ip link set eth1 up
# /sbin/ip link set eth2 up

# /sbin/ip route flush table adsl
# /sbin/ip route flush table spinnet
# /sbin/ip route flush table internet

# /sbin/ip addr add 127.0.0.1/8 brd 127.0.0.255 dev lo

# /sbin/ip addr add 192.168.1.222/24 brd 192.168.1.255 dev eth2
# /sbin/ip addr add 203.134.148.2/28 brd 203.134.148.15 dev eth0
# /sbin/ip addr add 192.168.0.222/24 brd 192.168.0.255 dev eth1

# /sbin/ip rule add prio 10 table main
# /sbin/ip rule add prio 20 table adsl
# /sbin/ip rule add prio 30 table spinnet
# /sbin/ip rule add prio 40 table internet

# /sbin/ip route del default table main
# /sbin/ip route del default table adsl
# /sbin/ip route del default table spinnet
# /sbin/ip route del default table internet

# /sbin/ip rule add prio 20 from 192.168.1.0/24 table adsl
# /sbin/ip route add default via 192.168.1.1 dev eth2 src 192.168.1.222 proto static table adsl
# /sbin/ip route append prohibit default table adsl metric 1 proto static
# /sbin/ip rule add prio 30 from 203.134.148.0/28 table spinnet
# /sbin/ip route add default via 203.134.148.1 dev eth0 src 203.134.148.2 proto static table spinnet

# /sbin/ip route append prohibit default table spinnet metric 5 proto static# Set up load balancing gateways
# /sbin/ip rule add prio 40 table internet
# /sbin/ip route add default proto static table internet
# nexthop via 192.168.1.1 dev eth2 weight 1
# nexthop via 203.134.148.1 dev eth0 weight 1

Konfigurasi di atas membutuhkan tiga (3) tabel routing tambahan, yaitu, adsl, spinnet dan internet yang kita masukan dalam file /etc/iproute2/rt_tables, isinya kira-kira sbb,

120 adsl
121 spinnet
123 internet

Selanjutnya kita perlu menset NAT / proxy agar dapat sekaligus melakukan NAT ke dua (2) interface yang berbeda, yaitu, 192.168.1.222 dan 203.134.148.2. Adapun perintahnya adalah sebagai berikut,

# /bin/echo 1 > /proc/sys/net/ipv4/ip_forward
# /sbin/iptables -F
# /sbin/iptables -P INPUT DROP
# /
# /sbin/iptables -A INPUT -i eth1 -j ACCEPT
# /sbin/iptables -A INPUT -i eth0 -p tcp -s 0/0 –dport 25 -j ACCEPT
# /sbin/iptables -A INPUT -i eth2 -p tcp -s 0/0 –dport 25 -j ACCEPT
# /sbin/iptables -A INPUT -m state state ESTABLISHED,RELATED -j ACCEPT
# /sbin/iptables -A INPUT -p tcp -i eth0 -j REJECT –reject-with tcp-reset
# /sbin/iptables -A INPUT -p tcp -i eth2 -j REJECT –reject-with tcp-reset
# /sbin/iptables -A INPUT -p udp -i eth0 -j REJECT –reject-with icmp-port-unreachable
# /sbin/iptables -A INPUT -p udp -i eth2 -j REJECT –reject-with icmp-port-unreachable
# /sbin/iptables -t nat -A POSTROUTING -o eth2 -j SNAT to 192.168.1.222
# /sbin/iptables -t nat -A POSTROUTING -o eth0 -j SNAT to 203.134.148.2

booting ulang atau restart komputer
# reboot

Selesai dah pekerjaan bikin PC Router dengan Load Balancing.

sumber : http://ubuntupasuruan.wordpress.com/2008/03/02/membuat-router-load-balancing-menggunakan-linux-ubuntu/

R4와 MicroSD를 사용 단계 :

2009-02-25T15:08:00.002+07:00

R4와 MicroSD를 사용 단계 :
1. R4 소프트웨어 CD를 삽입 CDROM을 위해
2. 삽입 MicroSD
2. 열기 Alzip
3. Alzip, 드라이브 R4 CD 소프트웨어 CDROM을로 이동
4. MicroSD 루트에 드라이브를 추출 한국어, 그리고 선택
5. *. NDS 게임을 선택하여 컴퓨터와 MicroSD 복사본에서
6. 귀하의 컴퓨터에서 안전 MicroSD 제거
7. MicroSD를 삽입 R4로
8. Nintendo DS에 사용하도록 준비
9. 감사합니다 ...

Wew...! confiker/kido atau apalah....

2009-02-20T15:01:00.003+07:00

HHHhhaaaaaaaah selese juga
bersihin worm ini....
Windows? worm lagi worm lagi, virus lagi virus lagi...

CAPE DEEEH...!

Tapi alhamdullilah....dah g begadang di office (^_^)
Coba klo management se7 pke ubuntu dr dulu....
G ribet ky gini, powerfull n g lelet.

But anyway, we must respect the other.
어쨌든, 우리는 다른 존중해야

Beware, Attacker mengincar Group dan Vendor Security

2009-02-20T14:55:00.000+07:00

Attacker dengan nick Tocsixu pada forum hackersblog.org mengatakan, dia menemukan dua vulnerability pada situs f-secure, yaitu SQL injection dan cross site scripting.Tapi karena databasenya hanya berisi info tentang statistik virus yang telah lalu, sehingga tidak ada informasi sensitif yang bisa di expose seperti pada kejadian phppbb.com, kaspersky, dan bitdefender pada beberapa waktu yang lalu.

Sedangkan Cyber-Terrorist, HeLL cYbEr, and Jurm yang melakukan defacement pada situs zone-h mengulang kejadian serupa pada beberapa waktu yang lalu.Mereka meninggalkan pesan :

Sorry, but I am bored I wish you a fun time with the song :D lol

dan mengembed link video lagu berbahasa arab di youtube. Situs zone-h terkena deface bukanlah kali pertama ini. Beberapa waktu yang lalu zone-h juga pernah kena deface.

Fenomena ini mengingatkan kita pada era awal tahun 2000 (2001 - 2004) grup dan vendor security seperti attrition, securityfocus, dan exodus terkena hacked oleh Fluppy Bunny.

Ada 2 point yang berharga dari kejadian ini :
1. Tidak ada web yang benar-benar "secure" 100%, termasuk grup dan vendor security. Adalah sangat naif jika berfikir ini tidak mungkin terjadi pada diri grup atau perusahaan yang anda punya.
2. Persiapkan diri untuk menghadapi kejadian yang paling buruk, misalnya kejadian ini terjadi pada perusahaan anda, dengan respon, deteksi, dan recovery ketika mengalaminya. (source:echo)

My Son Say, "Hello World..."

2009-01-28T15:10:00.020+07:00

Was born: My first son (Hanif Rifqy Riyanto)
Monday Jan26 2009 01.15AM, weight 3,4 kg

Alhamdullilah.....
Atas nikmatmu ya Allah,
Anakku yang pertama telah lahir, dengan selamat dan sehat,begitu juga dengan ibu yang telah melahirkannya
dan semoga anak atas titipan dariMu ini bisa menjadi anak yang selalu menurut kepada nasihatMu, sholeh, bertakwa dan beriman dan selalu ENGKAU berkahi riski untuk kami sekeluarga serta nasihat yang tiada hentinya dariMU, semoga ENGKAU selalu memberi berkah dan hidayah kepada kami sekeluarga ya Allah, amien....

Fix undouble click local drive problem

2008-12-31T14:41:00.004+07:00

Kasus ini utk memfix problem jika drive dikomp lu g bisa di double clik/muncul run program with jika di double click...spt komp office yg msh pke win tempo hari :(
Ini kelihatannya terinfeksi virus vbs buatan lokal..virus ini akan menularkan dirinya ke root directory setiap drive yang ada di komputer dan di folder C:\windows dan juga kesetiap flashdisk yang terpasang. file yang dicopy biasanya : autorun.inf dan ridho.vbs(atau bisa nama lain yg berextension vbs). file2 tersebut beratribut READ ONLY dan SUPER HIDDEN, sehingga tidak bisa ditampilkan dengan command DIR maupun dari windows explorer. Selain itu virus ini akan merubah beberapa key string pada registry dan juga akan memasukkan dirinya dalam daftar startup sehingga akan selalu di load pada saat windows restart. Pada beberapa kasus bahkan dapat menyebabkan komputer yang terinfeksi mengalami restart. Oleh beberapa anti virus lokal virus trsbt terdeteksi sebagai suspected tapi tidak bisa diclean/delete...bahkan antivirus buatan import seperti mcaffee tidak dapat mengenali/mengabaikan virus ini.Untuk membasmi virus ini secara manual biasanya saya melakukan langkah2 sbb:

1. masuk ke command prompt,
cek setiap root directory pada disk untuk memastikan keberadaan virus :
DIR/AH ...(menampilkan file-file dengan attribut hidden)
2. Bila terdapat file autorun.inf dan ridho.vbs lanjutkan dengan merubah
attribut file tsb menggunakan command:
attrib -r -h -s autorun.inf dan attrib -r -h -s ridho.vbs
3. Kemudian file tersebut baru bisa dihapus dengan command
del autorun.inf dan del ridho.vbs
4. Jika ada pesan "access denied..." berarti file script virus masih aktif di
memori. Gunakan "task manager" dan "end task" process "wscript.exe"
kemudian coba ulangi hapus file tsb
5. Hapus semua file virus di setiap drive dan direktory c:\windows
6. Matikan startup virus melalui "msconfig"....(Start-RUN-MSconfig-enter)
kemudian uncheck baris perintah yang mengandung kata "ridho.vbs" pada
tab startup
7. Copy script dibawah ini ke notepad dan berinama repair.inf
setelah itu klik kanan file repair.inf kemudian "install" untuk memperbaiki
registry yang telah dimodif virus.
8. SELESAI. Restart windows.

-------- batas script-------

[Version]
Signature="$Chicago$"
Provider=Vaksincom Oyee

[DefaultInstall]

AddReg=UnhookRegKey

DelReg=del

[UnhookRegKey]

HKLM, Software\CLASSES\batfile\shell\open\command,,,"""%1"" %*"

HKLM, Software\CLASSES\comfile\shell\open\command,,,"""%1"" %*"

HKLM, Software\CLASSES\exefile\shell\open\command,,,"""%1"" %*"

HKLM, Software\CLASSES\piffile\shell\open\command,,,"""%1"" %*"

HKLM, Software\CLASSES\regfile\shell\open\command,,,"regedit.exe "%1""

HKLM, Software\CLASSES\scrfile\shell\open\command,,,"""%1"" %*"

HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon, Shell,0, "Explorer.exe"

HKLM, SYSTEM\ControlSet001\Control\SafeBoot, AlternateShell,0, "cmd.exe"

HKLM, SYSTEM\ControlSet002\Control\SafeBoot, AlternateShell,0, "cmd.exe"

HKLM, SYSTEM\CurrentControlSet\Control\SafeBoot, AlternateShell,0, "cmd.exe"

HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer \Advanced\Folder\SuperHidden,

UncheckedValue,0x00010001,1

HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner,0, "Owner"

HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization,0, "Organization"

[del]
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies \System, DisableRegistriTools
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies \System, DisableTaskMgr
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies \Explorer, NoFolderOptions
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies \Explorer, NOFind
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies \Explorer, NORun
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies \Explorer\Advanced, hidden
HKCU, Software\Microsoft\Windows\CurrentVersion\Policies \WinOldApp

--------------end script----------------

source: from fl4sh @detikforum

Beginilah cape nya pke win**** virus lagi virus lagi...cape deh!

Pke linux aja deh, spt komp gw di rmh...free n stable!

Gaji Papa Berapa ???

2008-11-21T11:41:00.000+07:00

Seperti biasa Andrew, Kepala Cabang di sebuah perusahaan swasta terkemuka di Jakarta, tiba di rumahnya pada pukul 9 malam. Tidak seperti biasanya, Sarah, putri pertamanya yang baru duduk di kelas tiga SD membukakan pintu untuknya.

Nampaknya ia sudah menunggu cukup lama.

“Kok, belum tidur ?” sapa Andrew sambil mencium anaknya.

Biasanya Sarah memang sudah lelap ketika ia pulang dan baru terjaga ketika ia akan berangkat ke kantor pagi hari.

Sambil membuntuti sang Papa menuju ruang keluarga, Sarah menjawab, “Aku nunggu Papa pulang. Sebab aku mau tanya berapa sih gaji Papa ?”

“Lho tumben, kok nanya gaji Papa ? Mau minta uang lagi, ya ?”

“Ah, enggak. Pengen tahu aja” ucap Sarah singkat.

“Oke. Kamu boleh hitung sendiri. Setiap hari Papa bekerja sekitar 10 jam dan dibayar Rp. 400.000,-.
Setiap bulan rata-rata dihitung 22 hari kerja.

Sabtu dan Minggu libur, kadang Sabtu Papa masih lembur. Jadi, gaji Papa dalam satu bulan berapa, hayo ?”

Sarah berlari mengambil kertas dan pensilnya dari meja belajar, sementara Papanya melepas sepatu dan menyalakan televisi. Ketika Andrew beranjak menuju kamar untuk berganti pakaian, Sarah berlari mengikutinya.
“Kalo satu hari Papa dibayar Rp. 400.000,-untuk 10 jam, berarti satu jam Papa digaji Rp. 40.000,- dong” katanya.

“Wah, pinter kamu. Sudah, sekarang cuci kaki, tidur” perintah Andrew.
Tetapi Sarah tidak beranjak.

Sambil menyaksikan Papanya berganti pakaian,Sarah kembali bertanya,
“Papa, aku boleh pinjam uang Rp. 5.000,- enggak ?”

“Sudah, nggak usah macam-macam lagi.
Buat apa minta uang malam-malam begini ? Papa capek.
Dan mau mandi dulu. Tidurlah”.

“Tapi Papa…”

Kesabaran Andrew pun habis.
“Papa bilang tidur !” hardiknya mengejutkan Sarah.

Anak kecil itu pun berbalik menuju kamarnya.

Usai mandi, Andrew nampak menyesali hardiknya. Ia pun menengok Sarah di kamar tidurnya.
Anak kesayangannya itu belum tidur. Sarah didapati sedang terisak-isak pelan sambil memegang uang Rp. 15.000,- di tangannya.

Sambil berbaring dan mengelus kepala bocah kecil itu, Andrew berkata, “Maafkan Papa, Nak, Papa sayang sama Sarah. Tapi buat apa sih minta uang malam-malam begini ? Kalau mau beli mainan, besok kan bisa. ”

Jangankan Rp.5.000,- lebih dari itu pun Papa kasih” jawab Andrew

“Papa, aku enggak minta uang. Aku hanya pinjam. Nanti aku kembalikan kalau sudah menabung lagi dari uang jajan selama minggu ini”.

“lya, iya, tapi buat apa ?” tanya Andrew lembut.

“Aku menunggu Papa dari jam 8. Aku mau ajak Papa main ular tangga. Tiga puluh menit aja. Mama sering bilang kalo waktu Papa itu sangat berharga. Jadi, aku mau ganti waktu Papa. Aku buka tabunganku, hanya ada Rp.15.000,- tapi..karena Papa bilang satu jam Papa dibayar Rp. 40.000,- maka setengah jam aku harus ganti Rp. 20.000,-. Tapi duit tabunganku kurang Rp.5.000, makanya aku mau pinjam dari Papa” kata Sarah polos.

Andrew pun terdiam. ia kehilangan kata-kata. Dipeluknya bocah kecil itu erat-erat dengan perasaan haru.
Dia baru menyadari, ternyata limpahan harta yang dia berikan selama ini, tidak cukup untuk “membeli” kebahagiaan anaknya.

“Bagi dunia kau hanya seseorang, tapi bagi seseorang kau adalah dunianya”

…Nice story…money is important but certainly not everything.. .

taken from: http://parakontel.net/in/?p=76#more-76

Mencintai Tanpa Syarat - Sebuah Kisah Nyata

2008-11-18T09:05:00.000+07:00

Ini adalah sebuah cerita nyata, beliau adalah Bapak Eko Pratomo, Direktur Fortis Asset Management yang sangat terkenal di kalangan Pasar Modal dan Investment, beliau juga sangat sukses dalam memajukan industri reksadana di Indonesia… Apa yang diutarakan beliau adalah benar sekali. Buat para suami atau calaon suami baca ya… istri & calon isteri juga boleh…

Mampukah Kita Mencintai Tanpa Syarat

Dilihat dari usianya beliau sudah tidak muda lagi, usia yg sudah senja bahkan sudah mendekati malam, Pak Suyatno 58 tahun kesehariannya diisi dengan merawat istrinya yang sakit istrinya juga sudah tua. Mereka menikah sudah lebih 32 tahun. Mereka dikarunia 4 orang anak disinilah awal cobaan menerpa, setelah istrinya melahirkan anak ke empat tiba2 kakinya lumpuh dan tidak bisa digerakkan itu terjadi selama 2 tahun, menginjak tahun ke tiga seluruh tubuhnya menjadi lemah bahkan terasa tidak bertulang lidahnyapun sudah tidak bisa digerakkan lagi.

Setiap hari Pak Suyatno memandikan, membersihkan kotoran, menyuapi, dan mengangkat istrinya keatas tempat tidur. Sebelum berangkat kerja dia letakkan istrinya didepan TV supaya istrinya tidak merasa kesepian. Walau istrinya tidak dapat bicara tapi dia selalu melihat istrinya tersenyum, untunglah tempat usaha pak suyatno tidak begitu jauh dari rumahnya sehingga siang hari dia pulang untuk menyuapi istrinya makan siang. Sorenya dia pulang memandikan istrinya, mengganti pakaian dan selepas pulang kerja dia temani istrinya nonton televisi sambil menceritakan apa2 saja yg dia alami seharian. Walaupun istrinya hanya bisa memandang tapi tidak bisa menanggapi, Pak Suyatno sudah cukup senang bahkan dia selalu menggoda istrinya setiap berangkat tidur.

Rutinitas ini dilakukan Pak Suyatno lebih kurang 25 tahun, dengan sabar dia merawat istrinya bahkan sambil membesarkan ke empat buah hati mereka. Sekarang anak2 mereka sudah dewasa tinggal si bungsu yg masih kuliah. Pada suatu hari ke empat anak suyatno berkumpul dirumah orang tua mereka sambil menjenguk ibunya. Karena setelah anak mereka menikah sudah tinggal dengan keluarga masing-masing dan Pak Suyatno memutuskan ibu mereka, dia yang merawat, yang dia inginkan hanya satu semua anaknya berhasil. Dengan kalimat yg cukup hati-hati anak yang sulung berkata “Pak kami ingin sekali merawat ibu. Semenjak kami kecil melihat bapak merawat ibu, tidak ada sedikitpun keluhan keluar dari bibir bapak… bahkan bapak tidak ijinkan kami menjaga ibu“.

Dengan air mata berlinang anak itu melanjutkan kata-katanya “Sudah yang keempat kalinya kami mengijinkan bapak menikah lagi, kami rasa ibupun akan mengijinkannya, kapan bapak menikmati masa tua bapak dengan berkorban seperti ini kami sudah tidak tega melihat bapak, kami janji kami akan merawat ibu sebaik-baik secara bergantian“.

Pak Suyatno menjawab hal yg sama sekali tidak diduga anak-anak mereka. “Anak-anakku ……… Jikalau perkawinan & hidup didunia ini hanya untuk nafsu, mungkin bapak akan menikah….., tapi ketahuilah dengan adanya ibu kalian disampingku itu sudah lebih dari cukup, dia telah melahirkan kalian .. sejenak kerongkongannya tersekat, … kalian yg selalu kurindukan hadir didunia ini dengan penuh cinta yang tidak satupun dapat menghargai dengan apapun. Coba kalian tanya ibumu apakah dia menginginkan keadaanya seperti ini. Kalian menginginkan bapak bahagia, apakah batin bapak bisa bahagia meninggalkan ibumu dengan keadaannya sekarang. Kalian menginginkan bapak yang masih diberi Tuhan kesehatan dirawat oleh orang lain, bagaimana dengan ibumu yg masih sakit.”
Sejenak meledaklah tangis anak-anak Pak Suyatno merekapun melihat butiran2 kecil jatuh dipelupuk mata ibu Suyatno.. dengan pilu ditatapnya mata suami yang sangat dicintainya itu.

Sampailah akhirnya Pak Suyatno diundang oleh salah satu stasiun TV swasta untuk menjadi nara sumber dan merekapun mengajukan pertanyaan kepada Suyatno kenapa mampu bertahan selama 25 tahun merawat istrinya yg sudah tidak bisa apa-apa.. disaat itulah meledak tangis beliau dengan tamu yang hadir di studio kebanyakan kaum perempuanpun tidak sanggup menahan haru. Disitulah Pak Suyatno bercerita.
“Jika manusia didunia ini mengagungkan sebuah cinta dalam perkawinannya, tetapi tidak mau memberi ( memberi waktu, tenaga, pikiran,perhatian ) adalah kesia-siaan. Saya memilih istri saya menjadi pendamping hidup saya, dan sewaktu dia sehat diapun dengan sabar merawat saya mencintai saya dengan hati dan batinnya, bukan dengan mata, dan dia memberi saya 4 orang anak yang lucu-lucu.. Sekarang dia sakit karena berkorban untuk cinta kita bersama..dan itu merupakan ujian bagi saya, apakah saya dapat memegang komitmen untuk mencintainya apa adanya. Sehatpun belum tentu saya mencari penggantinya apalagi dia sakit…..“
Marilah kita cintai isteri atau suami kita tanpa syarat.

Sumber: sebuah forward-an email dari Bpk Ahmad sulhan via Mailing list dan banyak entri dari google

Teman, Rekan Dan Kerabat...Mohon doanya demi kelancaran kelahiran dan kesehatan calon mybaby dan ibunya...

2008-10-21T14:14:00.012+07:00

Ya Alloh...berikanlah kesehatan dan keselamatan Calon Anakku ini dan juga ibu yang melahirkanya,
Jagalah kami dan anak kami seperti ENGKAU menjaga umatMU dari lingkaran syetan yang terkutuk.
Dan berikanlah cahaya kehidupan agar supaya Calon Anakku Ini Lahir Sehat Jasmani Dan Rohani serta Berakhlak dan beramal Sholeh...

Jadikanlah kami sekeluarga untuk selalu berada di jalanMu, dan Bimbinglah serta ingatkanlah kami untuk selalu taat beribadah hanya di jalanMU,

Ya Alloh, ijinkanlah ENGKAU memberikan sedikit Nikmat kepada kami dan anak-anak kami,
Karena kesempurnaan, kenikmatan, kesehatan dan keselamatan serta rizki hanyalah milikMU ya Alloh...
Jadikanlah kami dan anak-anak kami untuk supaya selalu mensyukuri nikmatMU...

Ya Alloh, Jadikan kami dan anak-anak kami sebagai ahli Syurga, dan
Jauhkanlah kami dan anak-anak kami dari api neraka...

Amin...
"Ashadualla ilaahaillallah, Wa ashaduanna muhammadarrosuulullah..."

Istriku...maafkan suamimu ini yang masih banyak kekurangan dalam membimbing dan berumahtangga.
Masih banyak kekhilafan dan dosa kepadamu. terlebih kepadaNYA.
Istriku...Sekalipun anak kita masih dalam kandungan. Bacakanlah dia ayat-ayat suci Alqur'an....
InsyaAlloh menjadi anak yang Sholeh....Amin!

*pic: USG Photo jalan 6 bln

Selamat idul fitri 1429H, Mohon Maaf Lahir Dan Batin

2008-10-11T07:46:00.000+07:00

Teman, Rekan dan kerabat....

Atas nama keluarga dan pribadi, saya, dengan segala kerendahan hati
Meminta maaf atas segala kekhilafan saya....
Tiada kesempurnaan di diri setiap hamba Alloh SWT...

"Karena kesempurnaan hanyalah milik Alloh SWT...."

Regards,

6225 Nokia CDMA Internet access (telkom-flexi), very slow...!

2008-07-21T10:42:00.000+07:00

[root@offspring sl4x]# wvdialconf /etc/wvdial.conf
Scanning your serial ports for a modem.

ttyS0<*1>: ATQ0 V1 E1 -- failed with 2400 baud, next try: 9600 baud
ttyS0<*1>: ATQ0 V1 E1 -- failed with 9600 baud, next try: 115200 baud
ttyS0<*1>: ATQ0 V1 E1 -- and failed too at 115200, giving up.
Port Scan<*1>: S1 S2 S3
WvModem<*1>: Cannot get information for serial port.
ttyUSB0<*1>: ATQ0 V1 E1 -- OK
ttyUSB0<*1>: ATQ0 V1 E1 Z -- OK
ttyUSB0<*1>: ATQ0 V1 E1 S0=0 -- OK
ttyUSB0<*1>: ATQ0 V1 E1 S0=0 &C1 -- OK
ttyUSB0<*1>: ATQ0 V1 E1 S0=0 &C1 &D2 -- OK
ttyUSB0<*1>: ATQ0 V1 E1 S0=0 &C1 &D2 +FCLASS=0 -- ERROR
ttyUSB0<*1>: Modem Identifier: ATI -- ERROR
ttyUSB0<*1>: Speed 4800: AT -- OK
ttyUSB0<*1>: Speed 9600: AT -- OK
ttyUSB0<*1>: Speed 19200: AT -- OK
ttyUSB0<*1>: Speed 38400: AT -- OK
ttyUSB0<*1>: Speed 57600: AT -- OK
ttyUSB0<*1>: Speed 115200: AT -- OK
ttyUSB0<*1>: Speed 230400: AT -- OK
ttyUSB0<*1>: Speed 460800: AT -- [1e]�
ttyUSB0<*1>: Speed 460800: AT -- [06]�
ttyUSB0<*1>: Speed 460800: AT -- [1e]�
ttyUSB0<*1>: Max speed is 230400; that should be safe.
ttyUSB0<*1>: ATQ0 V1 E1 S0=0 &C1 &D2 -- OK

Found a modem on /dev/ttyUSB0.
Modem configuration written to /etc/wvdial.conf.
ttyUSB0: Speed 230400; init "ATQ0 V1 E1 S0=0 &C1 &D2"[root@offspring sl4x]# wvdial
--> WvDial: Internet dialer version 1.54.0
--> Cannot get information for serial port.
--> Initializing modem.
--> Sending: ATZ
ATZ
OK
--> Sending: ATQ0 V1 E1 S0=0 &C1 &D2
ATQ0 V1 E1 S0=0 &C1 &D2
OK
--> Modem initialized.
--> Sending: ATDT#777
--> Waiting for carrier.
ATDT#777
CONNECT
--> Carrier detected. Waiting for prompt.
--> Connected, but carrier signal lost! Retrying...
--> Sending: ATDT#777
--> Waiting for carrier.
~[7f]}#@!}!}"} }5}"}&} } } } }#}%B#}%}%}&}; u*n[08]~~[7f]}#@!}!}#} }5}"}&} } } } }#}%B#}%}%}&}; u*8W~~[7f]}#@!}!}$} }5}"}&} } } } }#}%B#}%}%}&}; u*8[~~[7f]}#@!}!}%} }5}"}&} } } } }#}%B#}%}%}&}; u*n[04]~~[7f]}#@!}!}&} }5}"}&} } } } }#}%B#}%}%}&}; u*[05]m~~[7f]}#@!}!}'} }5}"}&} } } } }#}%B#}%}%}&}; u*S2~~[7f]}#@!}!}(} }5}"}&} } } } }#}%B#}%}%}&}; u*[05]t~~[7f]}#@!}!})} }5}"}&} } } } }#}%B#}%}%}&}; u*S+~~[7f]}#@!}!}*} }5}"}&} } } } }#}%B#}%}%}&}; u*8B~Caught signal #2! Attempting to exit gracefully...

--> Disconnecting at Mon Jul 21 10:18:10 2008
[root@offspring sl4x]# kppp
kbuildsycoca running...
Opener: received OpenLock

Opener: received OpenDevice
Opener: received RemoveLock
Opener: received SetSecret
Opener: received SetSecret
Opener: received OpenLock

Opener: received OpenDevice
Opener: received ExecPPPDaemon
In parent: pppd pid 4048
Kernel supports ppp alright.
Couldn't find interface ppp0: No such device
Opener: received OpenResolv
Opener: received RemoveSecret
Opener: received RemoveSecret
Opener: received KillPPPDaemon
In killpppd(): Sending SIGTERM to 4048
Opener: received RemoveSecret
Opener: received RemoveSecret
Opener: received OpenResolv
Opener: received OpenResolv
Opener: received RemoveLock
It was pppd that died
pppd exited with return value 5
Sending 4031 a SIGUSR1
Opener: received SetSecret
Opener: received SetSecret
Opener: received OpenLock

Opener: received OpenDevice
Opener: received ExecPPPDaemon
In parent: pppd pid 4134
Kernel supports ppp alright.
Couldn't find interface ppp0: No such device
Opener: received OpenResolv
Opener: received RemoveSecret
Opener: received RemoveSecret

Shorewall

2008-06-24T10:07:00.000+07:00

# wget http://www.invoca.ch/pub/packages/shorewall/3.4/shorewall-3.4.1/shorewall-
3.4.1-3.src.rpm

Compile shorewall:
# rpmbuild --rebuild shorewall-3.4.1-3.src.rpm
Installing shorewall-3.4.1-3.src.rpm
Executing(%prep): /bin/sh -e /var/tmp/rpm-tmp.76342
+ umask 022
+ cd /usr/src/redhat/BUILD
+ LANG=C
+ export LANG
+ unset DISPLAY
+ cd /usr/src/redhat/BUILD
......
......
Requires: /bin/sh /etc/redhat-release config(shorewall-lite) = 3.4.1-3 iproute
iptables
Checking for unpackaged file(s): /usr/lib/rpm/check-files /var/tmp/shorewall-3.4.1-
root
Wrote: /usr/src/redhat/RPMS/noarch/shorewall-3.4.1-3.noarch.rpm
Wrote: /usr/src/redhat/RPMS/noarch/shorewall-lite-3.4.1-3.noarch.rpm
Executing(%clean): /bin/sh -e /var/tmp/rpm-tmp.65085
+ umask 022
+ cd /usr/src/redhat/BUILD
+ cd shorewall-3.4.1
+ '[' /var/tmp/shorewall-3.4.1-root '!=' / ']'
+ /bin/rm -rf /var/tmp/shorewall-3.4.1-root
+ exit 0
Executing(--clean): /bin/sh -e /var/tmp/rpm-tmp.65085
+ umask 022
+ cd /usr/src/redhat/BUILD
+ rm -rf shorewall-3.4.1
+ exit 0

Install shorewall:
# rpm -ivh /usr/src/redhat/RPMS/noarch/shorewall-3.4.1-3.noarch.rpm
Preparing... ########################################### [100%]
1:shorewall ########################################### [100%]

Setting Shorewall:
Edit filefile
ini di /etc/shorewall
a. shorewall.conf
-----------------
STARTUP_ENABLED=yes
IP_FORWARDING=On
b. interfaces
-------------
#ZONE INTERFACE BROADCAST OPTIONS
net eth0 detect
loc eth1 detect
c. zones
--------
#ZONE TYPE OPTIONS IN OUT
# OPTIONS OPTIONS
fw firewall
net ipv4
loc ipv4
d. masq
-------
#INTERFACE SOURCE ADDRESS PROTO PORT(S) IPSEC
eth0 eth1
e. policy
---------
#SOURCE DEST POLICY LOG LIMIT:BURST
# LEVEL
loc net DROP info
$FW net ACCEPT
net all DROP info
all all REJECT info
f. rules
--------
# Tranparent proxy
REDIRECT loc 3128 tcp www -
ACCEPT $FW net tcp www
# Accept DNS connections from the firewall to the network
DNS/ACCEPT $FW net
DNS/ACCEPT net $FW
DNS/ACCEPT loc net
DNS/ACCEPT $FW loc
DNS/ACCEPT loc $FW
# Accept SSH connections from the local network for administration
SSH/ACCEPT loc $FW
SSH/ACCEPT net $FW
SSH/ACCEPT loc net
SSH/ACCEPT $FW loc
# Allow Ping from the local network
Ping/ACCEPT loc $FW
# Reject Ping from the "bad" net zone.. and prevent your log from being flooded..
Ping/REJECT net $FW
ACCEPT $FW loc icmp
ACCEPT $FW net icmp
ACCEPT loc $FW icmp
# Web
Web/ACCEPT loc net
# Mail
POP3/ACCEPT loc net
SMTP/ACCEPT loc net
ICQ/ACCEPT loc net
# Others rules
ACCEPT loc net tcp 2082,2095
ACCEPT loc net tcp 5050

Testing shorewall
# chkconfig shorewall on
# service shorewall start

Apr 8 01:06:00 gateway shorewall: Compiling...
Apr 8 01:06:01 gateway shorewall: Initializing...
Apr 8 01:06:02 gateway shorewall: Determining Zones...
Apr 8 01:06:02 gateway shorewall: IPv4 Zones: net loc
Apr 8 01:06:02 gateway shorewall: Firewall Zone: fw
Apr 8 01:06:02 gateway shorewall: Validating interfaces file...
Apr 8 01:06:02 gateway shorewall: Validating hosts file...
Apr 8 01:06:02 gateway shorewall: Pre-processing Actions...
Apr 8 01:06:02 gateway shorewall: Pre-processing
/usr/share/shorewall/action.Drop...
Apr 8 01:06:02 gateway shorewall: Pre-processing
/usr/share/shorewall/action.Reject...
Apr 8 01:06:02 gateway shorewall: Validating Policy file...
Apr 8 01:06:02 gateway shorewall: Determining Hosts in Zones...
Apr 8 01:06:02 gateway shorewall: net Zone: eth0:0.0.0.0/0
Apr 8 01:06:02 gateway shorewall: loc Zone: eth1:0.0.0.0/0
Apr 8 01:06:02 gateway shorewall: Deleting user chains...
Apr 8 01:06:02 gateway shorewall: Compiling /etc/shorewall/routestopped ...
Apr 8 01:06:02 gateway shorewall: Creating Interface Chains...
Apr 8 01:06:02 gateway shorewall: Compiling Common Rules
Apr 8 01:06:02 gateway shorewall: Compiling IP Forwarding...
Apr 8 01:06:03 gateway shorewall: Compiling /etc/shorewall/rules...
Apr 8 01:06:04 gateway shorewall: Compiling Actions...
Apr 8 01:06:04 gateway shorewall: Compiling /usr/share/shorewall/action.Drop for
Chain Drop...
Apr 8 01:06:04 gateway shorewall: Compiling /usr/share/shorewall/action.Reject for
Chain Reject...
Apr 8 01:06:05 gateway shorewall: Compiling /etc/shorewall/policy...
Apr 8 01:06:05 gateway shorewall: Compiling Masquerading/SNAT
Apr 8 01:06:05 gateway shorewall: Compiling Traffic Control Rules...
Apr 8 01:06:05 gateway shorewall: Compiling Rule Activation...
Apr 8 01:06:06 gateway shorewall: Shorewall configuration compiled to
/var/lib/shorewall/.restart
Apr 8 01:06:06 gateway shorewall: Processing /etc/shorewall/params ...
Apr 8 01:06:06 gateway shorewall: Restarting Shorewall....
Apr 8 01:06:06 gateway shorewall: Initializing...
Apr 8 01:06:07 gateway shorewall: Processing /etc/shorewall/init ...
Apr 8 01:06:07 gateway shorewall: Clearing Traffic Control/QOS
Apr 8 01:06:07 gateway shorewall: Deleting user chains...
Apr 8 01:06:07 gateway shorewall: Processing /etc/shorewall/continue ...
Apr 8 01:06:07 gateway shorewall: WARNING: DISABLE_IPV6=Yes in shorewall.conf
but this system does not appear to have ip6tables
Apr 8 01:06:07 gateway shorewall: Enabling Loopback and DNS Lookups
Apr 8 01:06:07 gateway shorewall: Creating Interface Chains...
Apr 8 01:06:07 gateway shorewall: Setting up SMURF control...
Apr 8 01:06:07 gateway shorewall: Processing /etc/shorewall/initdone ...
Apr 8 01:06:07 gateway shorewall: Setting up Black List...
Apr 8 01:06:07 gateway shorewall: Setting up ARP filtering...
Apr 8 01:06:07 gateway shorewall: Setting up Accept Source Routing...
Apr 8 01:06:07 gateway shorewall: IP Forwarding Enabled
Apr 8 01:06:07 gateway shorewall: Setting up SYN Flood Protection...
Apr 8 01:06:07 gateway shorewall: Setting up Rules...
Apr 8 01:06:08 gateway shorewall: Setting up Actions...
Apr 8 01:06:08 gateway shorewall: Creating action chain Drop
Apr 8 01:06:08 gateway shorewall: Creating action chain Reject
Apr 8 01:06:08 gateway shorewall: Creating action chain dropBcast
Apr 8 01:06:08 gateway shorewall: Creating action chain dropInvalid
Apr 8 01:06:08 gateway shorewall: Creating action chain dropNotSyn
Apr 8 01:06:08 gateway shorewall: Applying Policies...
Apr 8 01:06:08 gateway shorewall: Setting up Masquerading/SNAT...
Apr 8 01:06:08 gateway root: Shorewall restarted
Apr 8 01:06:08 gateway shorewall: Activating Rules...
Apr 8 01:06:08 gateway shorewall: Processing /etc/shorewall/start ...
Apr 8 01:06:08 gateway shorewall: Processing /etc/shorewall/started ...
Apr 8 01:06:08 gateway shorewall: done.
Apr 8 01:06:09 gateway shorewall: shorewall startup succeeded

Testing port scanning
# nmap 10.0.0.250
Apr 8 01:04:55 gateway kernel: Shorewall:loc2net:DROP:IN=eth1 OUT=eth0
SRC=10.0.0.101 DST=64.202.165.92 LEN=60 TOS=0x00 PREC=0x00 TTL=63 ID=46867 DF
PROTO=TCP SPT=48398 DPT=995 WINDOW=5840 RES=0x00 SYN URGP=0
Apr 8 01:04:55 gateway kernel: Shorewall:loc2net:DROP:IN=eth1 OUT=eth0
SRC=10.0.0.101 DST=64.202.165.92 LEN=60 TOS=0x00 PREC=0x00 TTL=63 ID=27479 DF
PROTO=TCP SPT=48399 DPT=995 WINDOW=5840 RES=0x00 SYN URGP=0

My Simple Squid

2008-06-24T09:37:00.001+07:00

######## caching set ####################
http_port 3128
cache_mem 32 MB
maximum_object_size 2048 KB
cache_mgr administrator
cachemgr_passwd arini080406 all
cache_store_log none
cache_dir ufs /var/squid/cache 500 32 256

######### timing access ################
#>>dns_telkom
dns_nameservers 192.168.1.1 202.134.2.5
connect_timeout 2 minutes

######### access_list ##################
acl all src 0.0.0.0/0.0.0.0
acl SSL_ports port 443 563
acl Safe_ports port 80 21 443 563 70 210 777
acl Safe_ports port 1025-65535 280 488 591
acl CONNECT method CONNECT
http_access deny !Safe_ports
http_access deny CONNECT !SSL_ports

########## access_control ###############
acl porno url_regex -i "/etc/squid/porno.txt"
acl keywordporn url_regex -i "/etc/squid/keywordporn.txt"

http_access deny porn
http_access deny keywordporn

acl mimeDownload rep_mime_type ^audio/mpeg$
acl mimeDownload rep_mime_type ^audio/mp3$
acl mimeDownload rep_mime_type ^application/octet-stream$

acl filegede url_regex -i \.exe$
acl filegede url_regex -i \.mp3$
acl filegede url_regex -i \.vqf$
acl filegede url_regex -i \.avi$
acl filegede url_regex -i \.mpeg$
acl filegede url_regex -i \.mpe$
acl filegede url_regex -i \.mpg$
acl filegede url_regex -i \.mov$
acl filegede url_regex -i \.qt$
acl filegede url_regex -i \.ram$
acl filegede url_regex -i \.rm$
acl filegede url_regex -i \.iso$
acl filegede url_regex -i \.raw$
acl filegede url_regex -i \.wav$
acl filegede url_regex -i \.torrent$

acl MASTER src 192.168.1.253
acl modem src 192.168.1.1
acl mugi src 192.168.1.17
acl eko-exim src 192.168.1.40
acl ygkonek src 192.168.1.100-192.168.1.125/24
acl shithost arp 00:19:21:4B:14:4D

####### FILE DENY ####################
http_access deny mimeDownload
http_access deny filegede
http_access deny shithost
#########################################

http_access allow MASTER
http_access allow modem
http_access allow ygkonek
http_access allow eko-exim
http_access allow mugi

#########################################
##### tune-up for bandwith managing #####
redirect_rewrites_host_header off
cache_replacement_policy GDSF
log_icp_queries off
buffered_logs on

########## batas ukuran download ########
reply_body_max_size 65000 allow all
####### batalkan akses tdk sah ##########
http_access deny all
#########################################

My Bind

2008-06-24T09:28:00.000+07:00

Please sharing and correction if code is mistake

when i'm build dns server and mail server using fedora(why fedora?bacause windows is expensive. and i think if we're using linux we can get more explore)

Case of this is
*we just have only one ippublic of adsl connection to the net
*dns and mail server will install in single computer on the LAN
*using DMZ demilitarized zone

Net-----firewall/gateway-------LAN
                            |
                            |
                            |
                        DMZ

named.conf for local host zone and 127.0.0 bind default configuration.
-------------------------------------------------------------------------------------------

zone "localhost" IN {
type master;
file "localhost.zone";
allow-update { none; };
};

zone “0.0.127.in-addr.arpa” IN {
type master;
file “named.local”;
allow-update { none; };
};

Zone file
---------------------------------
1. localhost.zone

$TTL 86400
@ IN SOA @ root (
42 ; serial (d. adams)
3H ; refresh
15M ; retry
1W ; expiry
1D ) ; minimum

IN NS @
IN A 127.0.0.1
IN AAAA ::1

2. named.local
---------------------------

$TTL 86400
@ IN SOA localhost. root.localhost. (
1997022700 ; Serial
28800 ; Refresh
14400 ; Retry
3600000 ; Expire
86400 ) ; Minimum
IN NS localhost.
1 IN PTR localhost.

adding in named.conf
---------------------------------------

zone "mysite.com" IN {
type master;
file "by.zone";
allow-update { none; };
};

zone “5.134.202.in-addr.arpa” IN {
type master;
file “by.local”;
allow-update { none; };
};

and then save, next step make zone file for this domain and network 202.134.5.0

# cd /var/named/chroot/var/named/
# vi by.zone

$TTL 86400
@ IN SOA ns.mysite.com. root.mysite.com. (
1997022700 ; Serial
28800 ; Refresh
14400 ; Retry
3600000 ; Expire
86400 ) ; Minimumi
IN NS ns1.mysite.com.
IN A 202.134.5.a
Mail IN MX 202.134.5.a

ns1 IN A 202.134.5.a
www IN CNAME ns1.mysite.com.
ftp IN CNAME www
mail IN CNAME www

Save...
#vi by.local

$TTL 86400
@ IN SOA ns1.mysite.com. root.mysite.com. (
42 ; serial (d. adams)
3H ; refresh
15M ; retry
1W ; expiry
1D ) ; minimum

IN NS ns1.mysite.com.
IN A 202.134.5.a

a IN PTR ns1.mysite.com.

save...

# rndc reload mysite.com
[OK]

if failed
# tail -f /var/log/messages
# vi /etc/resolv.conf
nameserver 202.134.5.a

save..

checking...

1. nslookup :

# nslookup mysite.com
Server: 202.134.5.a
Address: 202.134.5.a #53

Non-authoritative answer:
Name: mysite.com
Address: 202.134.5.a

2.using dig

# dig mysite.com

; <<>> DiG 9.3.2 <<>> mysite.com
;; global options: printcmd
;; Got answer:
;; ->>HEADER<<- opcode: QUERY, status: NOERROR, id: 34532 ;; flags: qr rd ra; QUERY: 1, ANSWER: 1, AUTHORITY: 0, ADDITIONAL: 0 ;; QUESTION SECTION: ;mysite.com. IN A ;; ANSWER SECTION: mysite.com. 14377 IN A 202.134.5.a ;; Query time: 18 msec ;; SERVER: x.x.x.x#53(x.x.x.x) ;; WHEN: Fri Jul 27 16:39:05 2007 ;; MSG SIZE rcvd: 45 202.134.5.a is ippublicfrom ISP

Delphi Coding, Learning by doing

2008-04-08T16:08:00.000+07:00

-------------------------------------------------------------------------
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus;

type
TMDIForm = class(TForm)
MainMenu1: TMainMenu;
mnuUtamaFile: TMenuItem;
mnuUtamaMaster: TMenuItem;
mnuMasterBarang: TMenuItem;
mnuFileMasuk: TMenuItem;
mnuFileKeluar: TMenuItem;
mnuFileGaris: TMenuItem;
mnuFileKeluarProg: TMenuItem;
mnuMasterPemasok: TMenuItem;
mnuMasterPelanggan: TMenuItem;
mnuMasterLaporan: TMenuItem;
mnuLapMasterBarang: TMenuItem;
mnuLapMasterPemasok: TMenuItem;
mnuLapMasterPelanggan: TMenuItem;
mnuUtamaTrans: TMenuItem;
mnuTransBeli: TMenuItem;
mnuTransJual: TMenuItem;
mnuTransLaporan: TMenuItem;
mnuLapTransBeli: TMenuItem;
mnuLapTransJual: TMenuItem;
mnuUtamaStok: TMenuItem;
mnuStok: TMenuItem;
mnuStokAwal: TMenuItem;
mnuUtamaFasilitas: TMenuItem;
mnuFasilitasTambahUser: TMenuItem;
mnuFasilitasPassword: TMenuItem;
mnuLapTransBeliDtl: TMenuItem;
mnuLapTransJualDtl: TMenuItem;
procedure mnuFileKeluarProgClick(Sender: TObject);
procedure mnuMasterBarangClick(Sender: TObject);
procedure mnuMasterPemasokClick(Sender: TObject);
procedure mnuMasterPelangganClick(Sender: TObject);
procedure mnuTransJualClick(Sender: TObject);
procedure mnuTransBeliClick(Sender: TObject);
procedure mnuLapMasterBarangClick(Sender: TObject);
procedure mnuLapMasterPemasokClick(Sender: TObject);
procedure mnuLapMasterPelangganClick(Sender: TObject);
procedure mnuLapTransBeliClick(Sender: TObject);
procedure mnuLapTransBeliDtlClick(Sender: TObject);
procedure mnuLapTransJualClick(Sender: TObject);
procedure mnuLapTransJualDtlClick(Sender: TObject);
procedure mnuStokAwalClick(Sender: TObject);
procedure mnuStokClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure mnuFileKeluarClick(Sender: TObject);
procedure mnuFileMasukClick(Sender: TObject);
procedure mnuFasilitasTambahUserClick(Sender: TObject);
procedure mnuFasilitasPasswordClick(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
MDIForm: TMDIForm;

implementation

uses MasterBarang,MasterPemasok,MasterPelanggan,
TransBeli,TransJual,LapBarang,LapPemasok,
LapPelanggan,LapBeli,LapBeliDetail,LapJual,
LapJualDetail,StokAwal,KartuStok,Login,
User,Password;

{$R *.dfm}

procedure TMDIForm.mnuFileKeluarProgClick(Sender: TObject);
begin

MDIForm.Close;

end;

procedure TMDIForm.mnuMasterBarangClick(Sender: TObject);
begin

formbarang.Show;

end;

procedure TMDIForm.mnuMasterPemasokClick(Sender: TObject);
begin

formpemasok.Show;

end;

procedure TMDIForm.mnuMasterPelangganClick(Sender: TObject);
begin

formpelanggan.Show;

end;

procedure TMDIForm.mnuTransBeliClick(Sender: TObject);
begin
formbeli.Show;
end;

procedure TMDIForm.mnuTransJualClick(Sender: TObject);
begin
formjual.Show;
end;

procedure TMDIForm.mnuLapMasterBarangClick(Sender: TObject);
begin

FormLapBarang.Show;

end;

procedure TMDIForm.mnuLapMasterPemasokClick(Sender: TObject);
begin

FormLapPemasok.Show;

end;

procedure TMDIForm.mnuLapMasterPelangganClick(Sender: TObject);
begin

FormLapPelanggan.Show;

end;

procedure TMDIForm.mnuLapTransBeliClick(Sender: TObject);
begin

FormLapBeli.Show;

end;

procedure TMDIForm.mnuLapTransBeliDtlClick(Sender: TObject);
begin

FormLapBeliDetail.Show;

end;

procedure TMDIForm.mnuLapTransJualClick(Sender: TObject);
begin

FormLapJual.Show;

end;

procedure TMDIForm.mnuLapTransJualDtlClick(Sender: TObject);
begin

FormLapJualDetail.Show;

end;

procedure TMDIForm.mnuStokAwalClick(Sender: TObject);
begin

FormStokAwal.Show;

end;

procedure TMDIForm.mnuStokClick(Sender: TObject);
begin

FormKartuStok.Show;

end;

procedure TMDIForm.FormShow(Sender: TObject);
begin

//Menghilangkan menu utama
//pada waktu MDI form ditampilkan
mnuUtamaMaster.Visible:=False;
mnuUtamaTrans.Visible:=False;
mnuUtamaStok.Visible:=False;
mnuUtamaFasilitas.Visible:=False;

end;

procedure TMDIForm.mnuFileKeluarClick(Sender: TObject);
begin

//Menghilangkan Menu Utama
mnuUtamaMaster.Visible:=False;
mnuUtamaTrans.Visible:=False;
mnuUtamaStok.Visible:=False;
mnuUtamaFasilitas.Visible:=False;

end;

procedure TMDIForm.mnuFileMasukClick(Sender: TObject);
begin

FormLogin.Show;

end;

procedure TMDIForm.mnuFasilitasTambahUserClick(Sender: TObject);
begin

FormUser.Show;

end;

procedure TMDIForm.mnuFasilitasPasswordClick(Sender: TObject);
begin

FormPassword.Show;

end;

end.

--------------------------------------------------------------
unit KartuStok;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, RpCon, RpConDS, RpDefine, RpRave, DB, ADODB, StdCtrls;

type
TFormKartuStok = class(TForm)
btnTampil: TButton;
btnBatal: TButton;
ADOTable1: TADOTable;
rvStok: TRvProject;
rvDSConStok: TRvDataSetConnection;
procedure btnTampilClick(Sender: TObject);
procedure btnBatalClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormKartuStok: TFormKartuStok;

implementation

{$R *.dfm}

procedure TFormKartuStok.btnTampilClick(Sender: TObject);
begin

//Menampilkan Laporan
rvStok.Execute;

end;

procedure TFormKartuStok.btnBatalClick(Sender: TObject);
begin

//Menutup Form
FormKartuStok.Close;

end;

end.
----------------------------------------------------------------
unit LapBarang;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, RpCon, RpConDS, RpDefine, RpRave, DB, ADODB;

type
TFormLapBarang = class(TForm)
ADOTable1: TADOTable;
rvBarang: TRvProject;
rvDSConBarang: TRvDataSetConnection;
btnTampil: TButton;
btnBatal: TButton;
procedure btnTampilClick(Sender: TObject);
procedure btnBatalClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormLapBarang: TFormLapBarang;

implementation

{$R *.dfm}

procedure TFormLapBarang.btnTampilClick(Sender: TObject);
begin

//Menampilkan Laporan
RvBarang.Execute;

end;

procedure TFormLapBarang.btnBatalClick(Sender: TObject);
begin

//Menutup Form
formLapBarang.Close;

end;

end.
------------------------------------------------------------
unit MasterPemasok;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, ADODB, StdCtrls;

type
TFormPemasok = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
edKode: TEdit;
edNama: TEdit;
edAlamat: TEdit;
btnTambah: TButton;
btnSimpan: TButton;
btnHapus: TButton;
btnUbah: TButton;
btnBatal: TButton;
btnKeluar: TButton;
ADOConnection1: TADOConnection;
ADOCommand1: TADOCommand;
ADODataSet1: TADODataSet;
edTelp: TEdit;
edKota: TEdit;
procedure btnKeluarClick(Sender: TObject);
procedure btnTambahClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure btnSimpanClick(Sender: TObject);
procedure btnHapusClick(Sender: TObject);
procedure btnUbahClick(Sender: TObject);
procedure btnBatalClick(Sender: TObject);
procedure edKodeExit(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormPemasok: TFormPemasok;

implementation

{$R *.dfm}

procedure TFormPemasok.btnKeluarClick(Sender: TObject);
begin

formpemasok.Close;

end;

procedure TFormPemasok.btnTambahClick(Sender: TObject);
begin

edkode.Enabled:=true;
ednama.Enabled:=true;
edalamat.Enabled:=true;
edtelp.Enabled:=true;
edkota.Enabled:=true;

edkode.Text:='';
ednama.Text:='';
edalamat.Text:='';
edtelp.Text:='';
edkota.Text:='';

end;

procedure TFormPemasok.FormShow(Sender: TObject);
begin

//Membuat Edit box
//tidak bisa diakses
edkode.Enabled:=false;
ednama.Enabled:=false;
edalamat.Enabled:=false;
edtelp.Enabled:=false;
edkota.Enabled:=false;

//Mengosongi Edit box
edkode.Text:='';
ednama.Text:='';
edalamat.Text:='';
edtelp.Text:='';
edkota.Text:='';

//Membuat huruf besar
edkode.CharCase:=ecUpperCase;
ednama.CharCase:=ecUpperCase;
edalamat.CharCase:=ecUpperCase;
edtelp.CharCase:=ecUpperCase;
edkota.CharCase:=ecUpperCase;

end;

procedure TFormPemasok.btnSimpanClick(Sender: TObject);
var msql:String;
begin

//Jika kode tidak kosong
if edkode.Text<>'' then
begin

//Jika kode bisa diakses
if edkode.Enabled=true then
begin

//Mengaktifkan koneksi ke database
ADOConnection1.Connected:=true;
//Memulai proses transaksi database
ADOConnection1.BeginTrans;

//Perintah SQL untuk mengisi data
msql:='INSERT INTO tbPemasok(Kode,Nama,' +
'Alamat,Telp,Kota) ' +
'values("' + edKode.Text +'",' +
'"' + edNama.Text+ '",' +
'"' + edAlamat.Text +'",' +
'"' + edTelp.Text +'",' +
'"' + edKota.Text +'")';

//Mengeksekusi SQL
adocommand1.CommandText:=msql;
adocommand1.Execute;

//Mengakhiri transaksi ke database
ADOConnection1.CommitTrans;

edkode.Enabled:=false;
ednama.Enabled:=false;
edalamat.Enabled:=false;
edtelp.Enabled:=false;
edkota.Enabled:=false;

end
else //Jika kode tidak bisa diakses
begin

//Buat koneksi ke database
ADOConnection1.Connected:=true;
//Memulai transaksi ke database
ADOConnection1.BeginTrans;

//Perintah SQL untuk mengubah data
msql:='UPDATE tbPemasok SET ' +
' Nama="' + edNama.Text+ '",' +
' Alamat="' + edAlamat.Text + '",' +
' Telp="' + edTelp.Text + '",' +
' Kota="' + edKota.Text + '" '+
' WHERE Kode="' + edKode.Text +'"';

//Mengekseskusi SQL
adocommand1.CommandText:=msql;
adocommand1.Execute;

//Mengakhiri transaksi ke database
ADOConnection1.CommitTrans;

edkode.Enabled:=false;
ednama.Enabled:=false;
edalamat.Enabled:=false;
edtelp.Enabled:=false;
edkota.Enabled:=false;

end;
end;

end;

procedure TFormPemasok.btnHapusClick(Sender: TObject);
var msql:String;
begin

//Mengaktifkan koneksi ke database
ADOConnection1.Connected:=true;
//Memulai transaksi ke database
ADOConnection1.BeginTrans;

//Perintah SQL untuk menghapus data
msql:='DELETE FROM tbPemasok ' +
'WHERE Kode="' + edKode.Text +'"';

//Mengesekusi SQL
adocommand1.CommandText:=msql;
adocommand1.Execute;

//Mengakhiri transaksi ke database
ADOConnection1.CommitTrans;

edkode.Text:='';
ednama.Text:='';
edalamat.Text:='';
edtelp.Text:='';
edkota.Text:='';

edkode.Enabled:=false;
ednama.Enabled:=false;
edalamat.Enabled:=false;
edtelp.Enabled:=false;
edkota.Enabled:=false;

end;

procedure TFormPemasok.btnUbahClick(Sender: TObject);
begin

ednama.Enabled:=true;
edalamat.Enabled:=true;
edtelp.Enabled:=true;
edkota.Enabled:=true;

end;

procedure TFormPemasok.btnBatalClick(Sender: TObject);
begin

edkode.Text:='';
ednama.Text:='';
edalamat.Text:='';
edtelp.Text:='';
edkota.Text:='';

edkode.Enabled:=false;
ednama.Enabled:=false;
edalamat.Enabled:=false;
edtelp.Enabled:=false;
edkota.Enabled:=false;

end;

procedure TFormPemasok.edKodeExit(Sender: TObject);
var msql:String;
begin

//Jika kode tidak kosong
if edkode.Text<>'' then
begin
//Perintah SQL untuk membaca data
msql:='SELECT * FROM tbPemasok' +
' WHERE Kode="' + edKode.Text + '"';

//Membuat koneksi ADODataSet
ADODataSet1.Connection:=ADOConnection1;
//Memasukkan perintah SQL ke ADODataSet
ADODataSet1.CommandText:=msql;
//Mengaktifkan ADODataSet
ADODataSet1.Active:=True;

//Jika ADODataSet tidak kosong
if not ADODataSet1.Eof then
begin

//Menyalin isi ADODataSet ke edit box dan mask edit
edNama.Text:=ADODataSet1.Fields[1].AsString;
edAlamat.Text:=ADODataSet1.Fields[2].AsString;
edTelp.Text:=ADODataSet1.Fields[3].AsString;
edKota.Text:=ADODataSet1.Fields[4].AsString;

edkode.Enabled:=false;
ednama.Enabled:=false;
edalamat.Enabled:=false;
edtelp.Enabled:=false;
edkota.Enabled:=false;

end;

//Menutup ADODataSet
ADODataSet1.Close;

end;

end;

end.
--------------------------------------------------------
unit LapPemasok;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, RpCon, RpConDS, RpDefine, RpRave, DB, ADODB;

type
TFormLapPemasok = class(TForm)
ADOTable1: TADOTable;
rvPemasok: TRvProject;
rvDSConPemasok: TRvDataSetConnection;
btnTampil: TButton;
btnBatal: TButton;
procedure btnTampilClick(Sender: TObject);
procedure btnBatalClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FormLapPemasok: TFormLapPemasok;

implementation

{$R *.dfm}

procedure TFormLapPemasok.btnTampilClick(Sender: TObject);
begin

//Menampilkan Laporan
rvPemasok.Execute;

end;

procedure TFormLapPemasok.btnBatalClick(Sender: TObject);
begin

//Menutup Form
formLapPemasok.Close;

end;

end.
-------------------------------------------------------------
procedure TFormBarang.btnHapusClick(Sender: TObject);
var msql:String;
begin

//Mengaktifkan koneksi ke database
ADOConnection1.Connected:=true;
//Memulai transaksi ke database
ADOConnection1.BeginTrans;

//Perintah SQL untuk menghapus data
msql:='DELETE FROM tbBarang ' +
'WHERE Kode="' + edKode.Text +'"';

//Mengesekusi SQL
adocommand1.CommandText:=msql;
adocommand1.Execute;

//Mengakhiri transaksi ke database
ADOConnection1.CommitTrans;

edkode.Text:='';
ednama.Text:='';
edsatuan.Text:='';
msehargabeli.Text:='';
msehargajual.Text:='';

edkode.Enabled:=false;
ednama.Enabled:=false;
edsatuan.Enabled:=false;
mseHargaBeli.Enabled:=false;
mseHargaJual.Enabled:=false;

end;

procedure TFormBarang.btnUbahClick(Sender: TObject);
begin

ednama.Enabled:=true;
edsatuan.Enabled:=true;
mseHargaBeli.Enabled:=true;
mseHargaJual.Enabled:=true;

end;

procedure TFormBarang.btnBatalClick(Sender: TObject);
begin

edkode.Text:='';
ednama.Text:='';
edsatuan.Text:='';
msehargabeli.Text:='';
msehargajual.Text:='';

edkode.Enabled:=false;
ednama.Enabled:=false;
edsatuan.Enabled:=false;
mseHargaBeli.Enabled:=false;
mseHargaJual.Enabled:=false;

end;

procedure TFormBarang.edKodeExit(Sender: TObject);
var msql:String;
begin

//Jika kode tidak kosong
if edkode.Text<>'' then
begin
//Perintah SQL untuk membaca data
msql:='SELECT * FROM tbBarang' +
' WHERE Kode="' + edKode.Text + '"';

//Membuat koneksi ADODataSet
ADODataSet1.Connection:=ADOConnection1;
//Memasukkan perintah SQL ke ADODataSet
ADODataSet1.CommandText:=msql;
//Mengaktifkan ADODataSet
ADODataSet1.Active:=True;

//Jika ADODataSet tidak kosong
if not ADODataSet1.Eof then
begin

//Menyalin isi ADODataSet ke edit box dan mask edit
edNama.Text:=ADODataSet1.Fields[1].AsString;
edSatuan.Text:=ADODataSet1.Fields[2].AsString;
mseHargaBeli.Text:=ADODataSet1.Fields[3].AsString;
mseHargaJual.Text:=ADODataSet1.Fields[4].AsString;

edkode.Enabled:=false;
ednama.Enabled:=false;
edsatuan.Enabled:=false;
mseHargaBeli.Enabled:=false;
mseHargaJual.Enabled:=false;

end;

//Menutup ADODataSet
ADODataSet1.Close;

end;

end;

end.
---------------------------------------------------------
unit TransBeli;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, DB, StdCtrls, Grids, DBGrids, Mask, ComCtrls;

type
TFormBeli = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
edNota: TEdit;
dpTanggal: TDateTimePicker;
edNamaSup: TEdit;
edKet: TEdit;
edKodeBrg: TEdit;
edNamaBrg: TEdit;
mseHarga: TMaskEdit;
edSatuan: TEdit;
mseJumlah: TMaskEdit;
DG: TDBGrid;
mseSubTot: TMaskEdit;
msePotongan: TMaskEdit;
mseGrandTot: TMaskEdit;
btnTambah: TButton;
btnSimpan: TButton;
btnKeluar: TButton;
edKodeSup: TEdit;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
ADOCommand1: TADOCommand;
ADODataSet2: TADODataSet;
procedure btnSimpanClick(Sender: TObject);
procedure btnTambahClick(Sender: TObject);
procedure btnKeluarClick(Sender: TObject);
procedure edNotaExit(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure edKodeSupExit(Sender: TObject);
procedure edKodeBrgExit(Sender: TObject);
procedure mseJumlahExit(Sender: TObject);
procedure msePotonganExit(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
FormBeli: TFormBeli;
nTot:Integer;

implementation

{$R *.dfm}

procedure TFormBeli.edNotaExit(Sender: TObject);
var msql:String;
begin

if ednota.Text<>'' then
begin

msql:='SELECT * FROM tbNotaBeli' +
' WHERE NoNota="' + edNota.Text + '"';

//Membuat koneksi ADODataSet
ADODataSet2.Connection:=ADOConnection1;
//Memasukkan perintah SQL ke ADODataSet
ADODataSet2.CommandText:=msql;
//Mengaktifkan ADODataSet
ADODataSet2.Active:=True;

//Jika No.Nota ada
if not ADODataSet2.Eof then
begin

//Menampilkan data pada edit box dan mask edit
//berdasarkan urutan field pada tabel
dpTanggal.DateTime:=ADODataSet2.Fields[1].AsDateTime;
edKodeSup.Text:=ADODataSet2.Fields[2].AsString;
edNamaSup.Text:=ADODataSet2.Fields[3].AsString;
edKet.Text:=ADODataSet2.Fields[7].AsString;
mseSubTot.Text:=ADODataSet2.Fields[4].AsString;
msePotongan.Text:=ADODataSet2.Fields[5].AsString;
mseGrandTot.Text:=ADODataSet2.Fields[6].AsString;

//Membaca data dari tabel Beli detail
//berdasarkan no nota
msql:='SELECT KodeBarang,NamaBarang,' +
' Satuan,HargaBeli ' +
' FROM tbNotaBeliDetail' +
' WHERE NoNota="' + edNota.Text + '"' +
' ORDER BY KodeBarang';

//Menampilkan data dari tabel Beli detail
//pada data grid
ADODataSet1.Connection:=ADOConnection1;
ADODataSet1.CommandText:=msql;
ADODataSet1.Active:=True;

edNota.Enabled:=False;
edKodeSup.Enabled:=False;
edNamaSup.Enabled:=False;
edKet.Enabled:=False;
mseSubTot.Enabled:=False;
msePotongan.Enabled:=False;
mseGrandTot.Enabled:=False;
dptanggal.Enabled:=False;

edKodeBrg.Enabled:=False;
edNamaBrg.Enabled:=False;
edSatuan.Enabled:=False;
mseHarga.Enabled:=False;
mseJumlah.Enabled:=False;

btnSimpan.Enabled:=False;

DG.Enabled:=False;
end
else
begin

btnTambah.Enabled:=False;

btnSimpan.Enabled:=True;

end;

//Menutup ADODataSet
ADODataSet2.Active:=false;

end;

end;

procedure TFormBeli.FormShow(Sender: TObject);
begin

//Membuat aktif koneksi database
ADOConnection1.Connected:=true;

//Mengosongi Edit box dan Mask edit
ednota.Text:='';
edkodeSup.Text:='';
ednamaSup.Text:='';
edket.Text:='';
edkodebrg.Text:='';
ednamabrg.Text:='';
edsatuan.Text:='';
mseHarga.Text:='';
mseJumlah.Text:='';
mseSubTot.Text:='';
msePotongan.Text:='';
mseGrandTot.Text:='';

//Membuat huruf besar
ednota.CharCase:=ecUpperCase;
edkodeSup.CharCase:=ecUpperCase;
ednamaSup.CharCase:=ecUpperCase;
edket.CharCase:=ecUpperCase;
edkodebrg.CharCase:=ecUpperCase;
ednamabrg.CharCase:=ecUpperCase;
edsatuan.CharCase:=ecUpperCase;

btnTambah.Enabled:=True;
btnKeluar.Enabled:=True;

btnSimpan.Enabled:=False;

ntot:=0;

end;

procedure TFormBeli.edKodeSupExit(Sender: TObject);
var msql:String;
begin

if edKodeSup.Text<>'' then
begin

//Mencari Kode Pemasok
msql:='SELECT * FROM tbPemasok ' +
' WHERE Kode="' + edKodeSup.Text + '"';

//Membuat koneksi ADODataSet
ADODataSet2.Connection:=ADOConnection1;
//Memasukkan perintah SQL ke ADODataSet
ADODataSet2.CommandText:=msql;
//Mengaktifkan ADODataSet
ADODataSet2.Active:=True;

//Jika kode pemasok ada
if not ADODataSet2.Eof then

//Menampilkan nama Pemasok
//berdasarkan kode Pemasok
edNamaSup.Text:=ADODataSet2.Fields[1].AsString;

//Menutup ADODataSet
ADODataSet2.Close;

end;

end;

procedure TFormBeli.edKodeBrgExit(Sender: TObject);
var msql:String;
begin

if edKodeBrg.Text<>'' then
begin

//Mencari Kode Barang
msql:='SELECT * FROM tbBarang ' +
' WHERE Kode="' + edKodeBrg.Text + '"';

//Membuat koneksi ADODataSet
ADODataSet2.Connection:=ADOConnection1;
//Memasukkan perintah SQL ke ADODataSet
ADODataSet2.CommandText:=msql;
//Mengaktifkan ADODataSet
ADODataSet2.Active:=True;

//Jika kode barang ada
if not ADODataSet2.Eof then
begin

//Menampilkan detail barang
edNamabrg.Text:=ADODataSet2.Fields[1].AsString;
edSatuan.Text:=ADODataSet2.Fields[2].AsString;
mseHarga.Text:=ADODataSet2.Fields[3].AsString;

end;
//Menutup ADODataSet
ADODataSet2.Close;

end;

end;

procedure TFormBeli.mseJumlahExit(Sender: TObject);
var msql:string;
var jlh,harga:Integer;
begin

if edkodebrg.Text<>'' then
begin

ADOConnection1.BeginTrans;

harga:=strtoint(mseharga.Text);
jlh:=strtoint(msejumlah.Text);
ntot:=ntot+jlh*harga;
mseSubTot.Text:=inttostr(ntot);
mseGrandTot.Text:=inttostr(ntot);

//Mencari Kode Barang pada Stok
msql:='SELECT * FROM tbStok ' +
' WHERE KodeBarang="' + edKodeBrg.Text + '"';

//Membuat koneksi ADODataSet
ADODataSet2.Connection:=ADOConnection1;
//Memasukkan perintah SQL ke ADODataSet
ADODataSet2.CommandText:=msql;
//Mengaktifkan ADODataSet
ADODataSet2.Active:=True;

//Jika kode barang ada pada stok
if not ADODataSet2.Eof then
begin

//Menambah record pada tabel Beli detail
msql:='INSERT INTO tbNotaBeliDetail(NoNota,' +
' KodeBarang,NamaBarang,Satuan,HargaBeli,' +
' Jumlah) Values("' + edNota.Text + '",' +
' "' + edKodeBrg.Text + '",' +
' "' + edNamaBrg.Text + '",' +
' "' + edSatuan.Text + '",' +
' ' + mseHarga.Text + ',' +
' ' + mseJumlah.Text + ')';

//Mengekseskusi SQL
adocommand1.CommandText:=msql;
adocommand1.Execute;

//Ubah jumlah barang pada stok
msql:='UPDATE tbStok SET ' +
' Jumlah=Jumlah + ' + msejumlah.Text + ' ' +
' WHERE KodeBarang="' + edkodebrg.Text + '"';

//Mengekseskusi SQL
adocommand1.CommandText:=msql;
adocommand1.Execute;

ADOConnection1.CommitTrans;
ADODataSet1.Active:=False;

//Mengosongi Edit box dan Mask edit
edkodebrg.Text:='';
ednamabrg.Text:='';
edsatuan.Text:='';
mseHarga.Text:='';
mseJumlah.Text:='';

//Membaca data dari tabel Beli detail
//berdasarkan no nota
msql:='SELECT KodeBarang,NamaBarang,' +
' Satuan,HargaBeli ' +
' FROM tbNotaBeliDetail' +
' WHERE NoNota="' + edNota.Text + '"';

//Menampilkan data dari tabel Beli detail
//pada data grid
ADODataSet1.Connection:=ADOConnection1;
ADODataSet1.CommandText:=msql;
ADODataSet1.Active:=True;
DG.Refresh;

edkodebrg.SetFocus;

end;

//Menutup ADODataSet
ADODataSet2.Close;

end;

end;

procedure TFormBeli.msePotonganExit(Sender: TObject);
var totAwal,Disc,totAkhir:Integer;
begin

//Perhitungan Potongan PenBelian
totAwal:=strtoint(mseSubTot.Text);
Disc:=strtoint(msePotongan.Text);
totAkhir:=totAwal-Disc;
mseGrandTot.Text:=inttostr(totAkhir);

end;

procedure TFormBeli.btnSimpanClick(Sender: TObject);
var msql:String;
begin

if ednota.Text<>'' then
begin

ADOConnection1.BeginTrans;

msql:='INSERT INTO tbNotaBeli(NoNota,' +
' Tanggal,KodePemasok,NamaPemasok,' +
' SubTotal,Potongan,TotalAkhir,' +
' Keterangan)' +
' Values("' + edNota.Text + '",' +
' "' + datetostr(dptanggal.Date) + '",' +
' "' + edKodeSup.Text + '",' +
' "' + edNamaSup.Text + '",' +
' ' + mseSubTot.Text + ',' +
' ' + msePotongan.Text + ',' +
' ' + mseGrandTot.Text + ',' +
' "' + edKet.Text + '")';

//Mengekseskusi SQL
adocommand1.CommandText:=msql;
adocommand1.Execute;

ADOConnection1.CommitTrans;

edNota.Enabled:=False;
edKodeSup.Enabled:=False;
edNamaSup.Enabled:=False;
edKet.Enabled:=False;
mseSubTot.Enabled:=False;
msePotongan.Enabled:=False;
mseGrandTot.Enabled:=False;
dptanggal.Enabled:=False;

edKodeBrg.Enabled:=False;
edNamaBrg.Enabled:=False;
edSatuan.Enabled:=False;
mseHarga.Enabled:=False;
mseJumlah.Enabled:=False;

DG.Enabled:=False;

btnTambah.Enabled:=True;
btnKeluar.Enabled:=True;

btnSimpan.Enabled:=False;

end;

end;

procedure TFormBeli.btnTambahClick(Sender: TObject);
var msql:String;
begin

edNota.Enabled:=True;
edKodeSup.Enabled:=True;
edNamaSup.Enabled:=True;
edKet.Enabled:=True;
mseSubTot.Enabled:=True;
msePotongan.Enabled:=True;
mseGrandTot.Enabled:=True;
dptanggal.Enabled:=True;

edKodeBrg.Enabled:=True;
edNamaBrg.Enabled:=True;
edSatuan.Enabled:=True;
mseHarga.Enabled:=True;
mseJumlah.Enabled:=True;

btnTambah.Enabled:=False;
btnSimpan.Enabled:=False;

//Mengosongi Edit box dan Mask edit
ednota.Text:='';
edKodeSup.Text:='';
edNamaSup.Text:='';
edket.Text:='';
edkodebrg.Text:='';
ednamabrg.Text:='';
edsatuan.Text:='';
mseHarga.Text:='';
mseJumlah.Text:='';
mseSubTot.Text:='';
msePotongan.Text:='';
mseGrandTot.Text:='';

ADODataSet1.Active:=False;

//Membaca data dari tabel Beli detail
//berdasarkan no nota
msql:='SELECT KodeBarang,NamaBarang,' +
' Satuan,HargaBeli ' +
' FROM tbNotaBeliDetail' +
' WHERE NoNota="' + edNota.Text + '"';

//Menampilkan data dari tabel Beli detail
//pada data grid
ADODataSet1.Connection:=ADOConnection1;
ADODataSet1.CommandText:=msql;
ADODataSet1.Active:=True;
DG.Refresh;
DG.Enabled:=True;

//Membuat nilai total jadi nol
nTot:=0;

end;

procedure TFormBeli.btnKeluarClick(Sender: TObject);
begin

//Keluar dari form penBelian
formBeli.Close;

end;

end.
--------------------------------------------------------------
unit TransJual;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ADODB, DB, StdCtrls, Grids, DBGrids, Mask, ComCtrls;

type
TFormJual = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
edNota: TEdit;
dpTanggal: TDateTimePicker;
edNamaCust: TEdit;
edKet: TEdit;
edKodeBrg: TEdit;
edNamaBrg: TEdit;
mseHarga: TMaskEdit;
edSatuan: TEdit;
mseJumlah: TMaskEdit;
DG: TDBGrid;
mseSubTot: TMaskEdit;
msePotongan: TMaskEdit;
mseGrandTot: TMaskEdit;
btnTambah: TButton;
btnSimpan: TButton;
btnKeluar: TButton;
edKodeCust: TEdit;
DataSource1: TDataSource;
ADOConnection1: TADOConnection;
ADODataSet1: TADODataSet;
ADOCommand1: TADOCommand;
ADODataSet2: TADODataSet;
procedure edNotaExit(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure edKodeCustExit(Sender: TObject);
procedure edKodeBrgExit(Sender: TObject);
procedure mseJumlahExit(Sender: TObject);
procedure msePotonganExit(Sender: TObject);
procedure btnSimpanClick(Sender: TObject);
procedure btnTambahClick(Sender: TObject);
procedure btnKeluarClick(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
FormJual: TFormJual;
nTot:Integer;

implementation

{$R *.dfm}

procedure TFormJual.edNotaExit(Sender: TObject);
var msql:String;
begin

if ednota.Text<>'' then
begin

msql:='SELECT * FROM tbNotaJual' +
' WHERE NoNota="' + edNota.Text + '"';

//Membuat koneksi ADODataSet
ADODataSet2.Connection:=ADOConnection1;
//Memasukkan perintah SQL ke ADODataSet
ADODataSet2.CommandText:=msql;
//Mengaktifkan ADODataSet
ADODataSet2.Active:=True;

//Jika No.Nota ada
if not ADODataSet2.Eof then
begin

//Menampilkan data pada edit box dan mask edit
//berdasarkan urutan field pada tabel
dpTanggal.DateTime:=ADODataSet2.Fields[1].AsDateTime;
edKodeCust.Text:=ADODataSet2.Fields[2].AsString;
edNamaCust.Text:=ADODataSet2.Fields[3].AsString;
edKet.Text:=ADODataSet2.Fields[7].AsString;
mseSubTot.Text:=ADODataSet2.Fields[4].AsString;
msePotongan.Text:=ADODataSet2.Fields[5].AsString;
mseGrandTot.Text:=ADODataSet2.Fields[6].AsString;

//Membaca data dari tabel jual detail
//berdasarkan no nota
msql:='SELECT KodeBarang,NamaBarang,' +
' Satuan,HargaJual ' +
' FROM tbNotaJualDetail' +
' WHERE NoNota="' + edNota.Text + '"' +
' ORDER BY KodeBarang';

//Menampilkan data dari tabel jual detail
//pada data grid
ADODataSet1.Connection:=ADOConnection1;
ADODataSet1.CommandText:=msql;
ADODataSet1.Active:=True;

edNota.Enabled:=False;
edKodeCust.Enabled:=False;
edNamaCust.Enabled:=False;
edKet.Enabled:=False;
mseSubTot.Enabled:=False;
msePotongan.Enabled:=False;
mseGrandTot.Enabled:=False;
dptanggal.Enabled:=False;

edKodeBrg.Enabled:=False;
edNamaBrg.Enabled:=False;
edSatuan.Enabled:=False;
mseHarga.Enabled:=False;
mseJumlah.Enabled:=False;

btnSimpan.Enabled:=False;

DG.Enabled:=False;
end
else
begin

btnTambah.Enabled:=False;

btnSimpan.Enabled:=True;

end;

//Menutup ADODataSet
ADODataSet2.Active:=false;

end;

end;

procedure TFormJual.FormShow(Sender: TObject);
begin

//Membuat aktif koneksi database
ADOConnection1.Connected:=true;

//Mengosongi Edit box dan Mask edit
ednota.Text:='';
edkodeCust.Text:='';
ednamaCust.Text:='';
edket.Text:='';
edkodebrg.Text:='';
ednamabrg.Text:='';
edsatuan.Text:='';
mseHarga.Text:='';
mseJumlah.Text:='';
mseSubTot.Text:='';
msePotongan.Text:='';
mseGrandTot.Text:='';

//Membuat huruf besar
ednota.CharCase:=ecUpperCase;
edkodeCust.CharCase:=ecUpperCase;
ednamaCust.CharCase:=ecUpperCase;
edket.CharCase:=ecUpperCase;
edkodebrg.CharCase:=ecUpperCase;
ednamabrg.CharCase:=ecUpperCase;
edsatuan.CharCase:=ecUpperCase;

btnTambah.Enabled:=True;
btnKeluar.Enabled:=True;

btnSimpan.Enabled:=False;

ntot:=0;

end;

procedure TFormJual.edKodeCustExit(Sender: TObject);
var msql:String;
begin

if edKodeCust.Text<>'' then
begin

//Mencari Kode Pelanggan
msql:='SELECT * FROM tbPelanggan ' +
' WHERE Kode="' + edKodeCust.Text + '"';

//Membuat koneksi ADODataSet
ADODataSet2.Connection:=ADOConnection1;
//Memasukkan perintah SQL ke ADODataSet
ADODataSet2.CommandText:=msql;
//Mengaktifkan ADODataSet
ADODataSet2.Active:=True;

//Jika kode pemasok ada
if not ADODataSet2.Eof then

//Menampilkan nama pelanggan
//berdasarkan kode pelanggan
edNamaCust.Text:=ADODataSet2.Fields[1].AsString;

//Menutup ADODataSet
ADODataSet2.Close;

end;

end;

procedure TFormJual.edKodeBrgExit(Sender: TObject);
var msql:String;
begin

if edKodeBrg.Text<>'' then
begin

//Mencari Kode Barang
msql:='SELECT * FROM tbBarang ' +
' WHERE Kode="' + edKodeBrg.Text + '"';

//Membuat koneksi ADODataSet
ADODataSet2.Connection:=ADOConnection1;
//Memasukkan perintah SQL ke ADODataSet
ADODataSet2.CommandText:=msql;
//Mengaktifkan ADODataSet
ADODataSet2.Active:=True;

//Jika kode barang ada
if not ADODataSet2.Eof then
begin

//Menampilkan detail barang
edNamabrg.Text:=ADODataSet2.Fields[1].AsString;
edSatuan.Text:=ADODataSet2.Fields[2].AsString;
mseHarga.Text:=ADODataSet2.Fields[4].AsString;

end;
//Menutup ADODataSet
ADODataSet2.Close;

end;

end;

procedure TFormJual.mseJumlahExit(Sender: TObject);
var msql:string;
var jlh,harga:Integer;
begin

if edkodebrg.Text<>'' then
begin

ADOConnection1.BeginTrans;

harga:=strtoint(mseharga.Text);
jlh:=strtoint(msejumlah.Text);
ntot:=ntot+jlh*harga;
mseSubTot.Text:=inttostr(ntot);
mseGrandTot.Text:=inttostr(ntot);

//Mencari Kode Barang pada Stok
msql:='SELECT * FROM tbStok ' +
' WHERE KodeBarang="' + edKodeBrg.Text + '"';

//Membuat koneksi ADODataSet
ADODataSet2.Connection:=ADOConnection1;
//Memasukkan perintah SQL ke ADODataSet
ADODataSet2.CommandText:=msql;
//Mengaktifkan ADODataSet
ADODataSet2.Active:=True;

//Jika kode barang ada pada stok
if not ADODataSet2.Eof then
begin

//Menambah record pada tabel jual detail
msql:='INSERT INTO tbNotaJualDetail(NoNota,' +
' KodeBarang,NamaBarang,Satuan,HargaJual,' +
' Jumlah) Values("' + edNota.Text + '",' +
' "' + edKodeBrg.Text + '",' +
' "' + edNamaBrg.Text + '",' +
' "' + edSatuan.Text + '",' +
' ' + mseHarga.Text + ',' +
' ' + mseJumlah.Text + ')';

//Mengekseskusi SQL
adocommand1.CommandText:=msql;
adocommand1.Execute;

//Ubah jumlah barang pada stok
msql:='UPDATE tbStok SET ' +
' Jumlah=Jumlah - ' + msejumlah.Text + ' ' +
' WHERE KodeBarang="' + edkodebrg.Text + '"';

//Mengekseskusi SQL
adocommand1.CommandText:=msql;
adocommand1.Execute;

ADOConnection1.CommitTrans;
ADODataSet1.Active:=False;

//Mengosongi Edit box dan Mask edit
edkodebrg.Text:='';
ednamabrg.Text:='';
edsatuan.Text:='';
mseHarga.Text:='';
mseJumlah.Text:='';

//Membaca data dari tabel jual detail
//berdasarkan no nota
msql:='SELECT KodeBarang,NamaBarang,' +
' Satuan,HargaJual ' +
' FROM tbNotaJualDetail' +
' WHERE NoNota="' + edNota.Text + '"';

//Menampilkan data dari tabel jual detail
//pada data grid
ADODataSet1.Connection:=ADOConnection1;
ADODataSet1.CommandText:=msql;
ADODataSet1.Active:=True;
DG.Refresh;

edkodebrg.SetFocus;

end;

//Menutup ADODataSet
ADODataSet2.Close;

end;

end;

procedure TFormJual.msePotonganExit(Sender: TObject);
var totAwal,Disc,totAkhir:Integer;
begin

//Perhitungan Potongan Penjualan
totAwal:=strtoint(mseSubTot.Text);
Disc:=strtoint(msePotongan.Text);
totAkhir:=totAwal-Disc;
mseGrandTot.Text:=inttostr(totAkhir);

end;

procedure TFormJual.btnSimpanClick(Sender: TObject);
var msql:String;
begin

if ednota.Text<>'' then
begin

ADOConnection1.BeginTrans;

msql:='INSERT INTO tbNotaJual(NoNota,' +
' Tanggal,KodePelanggan,NamaPelanggan,' +
' SubTotal,Potongan,TotalAkhir,' +
' Keterangan)' +
' Values("' + edNota.Text + '",' +
' "' + datetostr(dptanggal.Date) + '",' +
' "' + edKodeCust.Text + '",' +
' "' + edNamaCust.Text + '",' +
' ' + mseSubTot.Text + ',' +
' ' + msePotongan.Text + ',' +
' ' + mseGrandTot.Text + ',' +
' "' + edKet.Text + '")';

//Mengekseskusi SQL
adocommand1.CommandText:=msql;
adocommand1.Execute;

ADOConnection1.CommitTrans;

edNota.Enabled:=False;
edKodeCust.Enabled:=False;
edNamaCust.Enabled:=False;
edKet.Enabled:=False;
mseSubTot.Enabled:=False;
msePotongan.Enabled:=False;
mseGrandTot.Enabled:=False;
dptanggal.Enabled:=False;

edKodeBrg.Enabled:=False;
edNamaBrg.Enabled:=False;
edSatuan.Enabled:=False;
mseHarga.Enabled:=False;
mseJumlah.Enabled:=False;

DG.Enabled:=False;

btnTambah.Enabled:=True;
btnKeluar.Enabled:=True;

btnSimpan.Enabled:=False;

end;

end;

procedure TFormJual.btnTambahClick(Sender: TObject);
var msql:String;
begin

edNota.Enabled:=True;
edKodeCust.Enabled:=True;
edNamaCust.Enabled:=True;
edKet.Enabled:=True;
mseSubTot.Enabled:=True;
msePotongan.Enabled:=True;
mseGrandTot.Enabled:=True;
dptanggal.Enabled:=True;

edKodeBrg.Enabled:=True;
edNamaBrg.Enabled:=True;
edSatuan.Enabled:=True;
mseHarga.Enabled:=True;
mseJumlah.Enabled:=True;

btnTambah.Enabled:=False;
btnSimpan.Enabled:=False;

//Mengosongi Edit box dan Mask edit
ednota.Text:='';
edKodeCust.Text:='';
edNamaCust.Text:='';
edket.Text:='';
edkodebrg.Text:='';
ednamabrg.Text:='';
edsatuan.Text:='';
mseHarga.Text:='';
mseJumlah.Text:='';
mseSubTot.Text:='';
msePotongan.Text:='';
mseGrandTot.Text:='';

ADODataSet1.Active:=False;

//Membaca data dari tabel jual detail
//berdasarkan no nota
msql:='SELECT KodeBarang,NamaBarang,' +
' Satuan,HargaJual ' +
' FROM tbNotaJualDetail' +
' WHERE NoNota="' + edNota.Text + '"';

//Menampilkan data dari tabel jual detail
//pada data grid
ADODataSet1.Connection:=ADOConnection1;
ADODataSet1.CommandText:=msql;
ADODataSet1.Active:=True;
DG.Refresh;
DG.Enabled:=True;

//Membuat nilai total jadi nol
nTot:=0;

end;

procedure TFormJual.btnKeluarClick(Sender: TObject);
begin

//Keluar dari form penjualan
formjual.Close;

end;

end.
----------------------------------------------------------

Coding delphi

2008-01-29T16:52:00.000+07:00

Dah lama g ngoprek delphi, sedikit2 coba coding totdidak lg, tp pake delphi-utk coba absensi office PT.BOYANG pk NIK,klo pk SDK nya delphi buat fingerprint ky nya blm siap, lbh tepatnya blm expert hehe..-utk fingerprint masih dlm tahap pengemb (habis delphi doang si yg agak mending :( hehehe..)
klo vb saya buta...saya dah coba otodidak lewat googling tp g mudeng2, ada referensi ga utk bljr vb?pembaca, help...

kira2 algoritmnya spt ini:
-masuk ke menu absen
-masukkn nik,NIk salah (tidak OK di database master)
-masukkan nik lagi
-klo OK datanya (query dari master)
-Saving -absenmasuk+pulang(NIK, jam masuk,jampulang,jmljamlembur,remark)

databse nya ada datareflibur,databasemasterpegawai dan databsase absen,trus sy querykan berdasar NIK-pke SQLServ

Kira2 seperti itu
mohon masukan nya...krn sy pikir blm sempurna algonya

//----------------unitloading-------------------
unit UnitLoading;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, ComCtrls, StdCtrls;

type
TFLoading = class(TForm)
Label1: TLabel;
Timer1: TTimer;
Panel1: TPanel;
Bevel1: TBevel;
Label2: TLabel;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);

private
x:integer;
{ Private declarations }
public
{ Public declarations }
end;

var
FLoading: TFLoading;

implementation

uses UnitLogin;

{$R *.DFM}

procedure TFLoading.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=true;
x:=1;
end;

procedure TFLoading.Timer1Timer(Sender: TObject);
begin
x:=x+1;
if x=10 then
begin
FLogin.show;
FLoading.destroy;
End;
end;

end.

//---------------------unitlogin-------------
unit UnitLogin;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons, Db, DBTables;

type
TFLogin = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
Edit1: TEdit;
Edit2: TEdit;
Table1: TTable;
procedure BitBtn2Click(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FLogin: TFLogin;

implementation

uses UnitMenuUtama;

{$R *.DFM}

procedure TFLogin.BitBtn2Click(Sender: TObject);
begin
Application.terminate;
end;

procedure TFLogin.BitBtn1Click(Sender: TObject);
begin
if (edit1.text=Table1.Fields[1].AsString)and (edit2.text=Table1.Fields[0].AsString)then
begin
FMenuutama.show;
FLogin.close;
end
else
Application.messagebox('Maaf, username - password salah! / Sory, username - password invalid!!, please correct','Error',mb_OK+mb_iconSTOP);
end;

end.

//------------------------unitmenuutama-------------------

type
TFMenuutama = class(TForm)
GroupBox1: TGroupBox;
Label1: TLabel;
MainMenu1: TMainMenu;
File1: TMenuItem;
Absen1: TMenuItem;
N1: TMenuItem;
Keluar1: TMenuItem;
Report1: TMenuItem;
Setting1: TMenuItem;
User1: TMenuItem;
Label2: TLabel;
Label4: TLabel;
Label5: TLabel;
Bevel1: TBevel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Perkaryawan1: TMenuItem;
perkaryawanbymounth1: TMenuItem;
perkaryawanbydate1: TMenuItem;
N2: TMenuItem;
PerDivisi1: TMenuItem;
ByDate1: TMenuItem;
ByMonth1: TMenuItem;
Label3: TLabel;
procedure Absen1Click(Sender: TObject);
procedure Keluar1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
FMenuutama: TFMenuutama;

implementation

uses UnitAbsen;

{$R *.DFM}

procedure TFMenuutama.Absen1Click(Sender: TObject);
begin
FAbsen.show;
end;

procedure TFMenuutama.Keluar1Click(Sender: TObject);
begin
Application.terminate;
end;

end.

//--------------------unitabsen---------------------
unit UnitAbsen;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons, jpeg, Db, DBTables, OleCtnrs, DBCtrls, ADODB,
Mask, ExtDlgs, OleCtrls, PREVIEWLib_TLB;

type
TFAbsen = class(TForm)
Label1: TLabel;
Timer1: TTimer;
Label4: TLabel;
Label5: TLabel;
GroupBox1: TGroupBox;
Label6: TLabel;
Label7: TLabel;
Bevel2: TBevel;
Image1: TImage;
Table1: TTable;
DataSource1: TDataSource;
Query1: TQuery;
BitBtn1: TBitBtn;
GroupBox2: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
OpenPictureDialog1: TOpenPictureDialog;
Image2: TImage;
BitBtn2: TBitBtn;
procedure Timer1Timer(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure BitBtn2Click(Sender: TObject);
procedure Edit1Change(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
FAbsen: TFAbsen;

implementation

{$R *.DFM}

procedure TFAbsen.Timer1Timer(Sender: TObject);
var
DateTime : TDateTime;
str : string;

begin
DateTime := Time; // store the current date and time
str := TimeToStr(DateTime); // convert the time into a string
label4.Caption := str; // display the time on the form's caption
{ Note This could have been done with the following line of code:
Caption := TimeToStr(Time); }
Label1.Caption :=DateToStr(Date);

end;

Procedure TFAbsen.FormShow(Sender: TObject);
var
DateTime : TDateTime;

begin
DateTime := Time;
IF (FAbsen.label4.caption := timetostr <= 08 then
begin
bitbtn1.caption:='A B S E N M A S U K';
end;
end;

procedure TFAbsen.BitBtn2Click(Sender: TObject);
begin
begin
with
query1
do
begin
disablecontrols;
close;
parambyname('NoKar').AsString:=edit1.text;
open;
enablecontrols;
edit2.text:=fieldbyname('Nama').AsString;
edit3.text:=fieldbyname('KodeDiv').AsString;
//mulai disini.....

begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add('select picture from '+
'MCPVCGUDANG where NIK = :NoKar');
Query1.ParamByName('NoKar').AsString :=edit1.text;
Query1.Open;
Image1.Picture.Bitmap.Assign(Query1DATA);
end;

end;

end;
end;

procedure TFAbsen.Edit1Change(Sender: TObject);
begin

end;

end.

Tambah komponen...

2008-01-17T11:34:00.000+07:00

...Hari ini karena saya pikir perlu adanya penambahan, maka blog ini saya tmbahkan beberapa komponen, antara lain : Video YouTube, Link serta Pooling opini. Semoga rekan pembaca berkenan meluangkan idenya di Pooling sennsion, Thank;s...

Migrasi ke Linux?

2007-12-30T10:24:00.000+07:00

Itulah kata-kata dalam judul yang masih terngiang dan ingat sampai sekarang, mungkin sampai kapanpun (sampai management perusahaan menyetujuinya...). Ya, itulah cita-cita saya bekerja sebagain IT di Boyang Indonesia, me-migrasikan Operating sistem dari windows ke Linux, untuk semua client. Serta membuat dan mengkonfigurasikan Mail server serta Web server sendiri (saat ini baru proxy server dan DNS server yang sudah disetujui). Mudah-mudahan dalam waktu dekat cita-cita saya tercapai, yaitu me-Linux kan Operating Sistem komputer yang ada di BoyangIndonesia dari Windows ke Linux (walaupun mungkin rada susah, khususnya dari end user nya. Tapi kalau pikiran kita seperti itu terus, saya pikir...kapan kita memulai belajar?akankah kita akan bergantung terus?

The three musketeer

2007-12-30T10:09:00.000+07:00

The three musketeer, inilah julukan dari anak-nak kantor....(seperti di film kah? hehe), buat Agung....kapan kucingan lagi euy!...atau...nge-jam? and to Mr. Andy..."we waiting for 'oleh-oleh' from South Korea :)

Kapan karyawan menjadi lebih disiplin dan teratur?...

2007-12-30T09:37:00.000+07:00

Beginilah suasana pas pulang kantor, bareng sama karyawan produksi, berjubel di pintu keluar belum lagi knalpot motor yang bising....kapan mereka sadar bahwa itu semua bukan hal yang 'wah..'. Kapan mereka sadar untuk mulai membuka hati bahwa orang-orang yang berada di dekatnya sedikit terganggu dengan suara motor yang bikin pening kepala belum asapnya yang kemana-mana (maklum motornya dah butut karena kebanyakan rombak dan ga terawat...). Apakah akan ada aturan yang khusus ke hal tersebut? Management perusahaan, saya tunggu peraturanya..., dan buat para karyawan yang masih merasa ngebut ketika masuk ataupun pulang kerja di pintu gerbang, saya mohon kesadaranya....jangan lakukan itu, mari kita menghargai dan menghormati sesama...terlebih keselamatan orang lain

Minggu, Menjelang tahun baru 2008

2007-12-30T09:22:00.000+07:00

Minggu euy, menjelang tahun 2008 tahun baru, semangat baru!tapi...aturan libur minggu tapi masuk kerja, gpp dink, besok baru week end. Hmmm.....kemana ya...rencana ke pantai aja deh ngumpul n berangkat bareng temen-temen dan orang rumah semua....Wow rame nih! Insya alloh semua berjalan lancar....bagaimana dengan liburan tahun baru anda?

Ide Layanan Kereta Api Argogede: akses Internet

2007-10-06T09:37:00.000+07:00

Hari Senin lalu saya mencoba kembali kereta api Argogede setelah lama tidak menggunaka jasa itu untuk perjalanan Bandung - Jakarta. Jumlah penumpangnya cukup banyak, bahkan cenderung penuh. Mungkin ini karena hari Senin, banyak orang harus kembali bekerja di Jakarta. Kondisi seperti ini jarang terjadi karena munculnya layanan travel mobil Bandung Jakarta yang menggunakan jalan tol Cipularang.
PT KAI harus berpikir keras untuk meningkatkan jumlah pengguna jasa kereta api ini. Sebetulnya layanan di kereta api Argogede cukup baik. Makanannya cukup baik. Acara televisinya pun umumnya baik, bahkan ada informasi mengenai Indonesia untuk turis asing yang sangat baik. Harusnya tourism information ini disiarkan juga di media lain.
Salah satu ide yang terbayang oleh saya adalah adanya layanan “perkantoran” (office) di kereta api. Layanan yang saya maksudkan adalah adanya akses Internet di kereta api Argogede. Selama perjalanan, penumpang bisa membaca emailnya atau membaca blog
Implementasi akses internet di kereta api tadinya sukar, tetapi adanya penyedia layanan GPRS / 3G / CDMA memudahkan ini semua. Di setiap gerbong dapat dipasang access point (500 ribu rupiah) yang dikonsentrasikan atau digabungkan (access point dalam mode repeater, misalnya) ke satu access point utama. Access point utama ini kemudian terhubung ke internet melalui access GPRS / 3G. Akses internet via jaringan selular ini sudah murah, bisa sekitar 700 ribu rupiah per bulan (untuk jenis akses unlimited). Jadi, murah!
Ada cara lain yaitu menghubungkan access point ke luar kereta api, ke access point yang diletakkan di sepanjang jalan kereta api. Yang ini sangat mahal dan repot untuk ngurusnya. Hanya saja, jika ini bisa dilakukan, maka kecepatan akses internetnya bisa bagus karena PT KAI punya fiber optic. Wah … ngiler. Sayangnya ini terlalu sulit untuk diimplementasikan dibandingkan usulan sebelumnya.
Layanan tambahan adalah adanya colokan listrik untuk mencharge laptop (dan juga handphone). Komplit. Layanan ini sulit ditandingin oleh jasa travel.
Nah, kapan diimplementasikan?

sumber: Budi rahardjo

Masalah VoIP lagi

2007-10-06T09:32:00.000+07:00

Salah satu efek dari pemanfaatan teknologi yang benar adalah semakin murahnya sebuah layanan yang menggunakan teknologi tersebut. Mari kita ambil contoh teknologi telekomunikasi.
Dahulu, biaya untuk melakukan sambungan telepon internasional sangat mahal. Jangankan untuk sambungan internasional, telepon interlokalpun masih mahal. Masih teringat ketika kami harus menelpon malam hari untuk mendapatkan biaya pulsa yang lebih murah.
Teknologi telekomunikasi saat ini membuat biaya telepon menjadi murah. Handphone ada dimana-mana dan orang sekarang jarang untuk menunggu sampai larut malam agar bisa menelepon dengan murah.
Teknologi komputer juga berkembang dengan pesat. Harga komputer pun menjadi semakin murah. Laptop atau notebook pun sekarang sudah dapat dibeli dengan harga Rp 5 juta (bukan 20-an juta rupiah!). Akses internet dengan menggunakan komputer juga semakin murah. Jumlah pengguna internet di Indonesia akan terus bertambah dengan pesat.
Gabungan kesemua ini melahirkan telekomunikasi yang menggunakan internet, yang berbasiskan protokol IP (Internet Protocol). Lahirlah sebuah layanan yang disebut VoIP, Voice over IP. Biaya telekomunikasi suara menjadi semakin murah lagi. Bahkan di Eropa ada pakar yang memprediksi bahwa layanan voice akan gratis! Nah lho.
Sayangnya layanan ini di Indonesia terganjal oleh masalah hukum. Baru-baru ini saya mendengar kabar bahwa ada beberapa orang pejabat PT Telkom di Makasar yang masuk penjara karena tuduhan korupsi pulsa (lagi). Layanan VoIP ternyata diidentik kan dengan korupsi pulsa. Waduh!!! Alurnya adalah seperti ini. Jika orang tidak menggunakan VoIP maka orang akan membayar lebih mahal kepada PT Telkom sehingga layanan VoIP ini merugikan PT Telkom. Kesimpulannya: korupsi. Waaahhh. (Mengapa kita harus membayar lebih mahal ke PT Telkom jika ada layanan yang lebih murah?)
Seperti telah saya kemukakan di atas, jelas teknologi memang seharusnya membuat layanan (dalam hal ini, telekomunikasi) menjadi lebih murah. Mengapa kemudian hal ini menjadi korupsi? Heran saya. Ada kawan yang mengatakan bahwa telah terjadi kriminalisasi teknologi informasi.
Kasus ini bukan kasus yang pertama kalinya. Sudah ada beberapa kasus sebelumnya yang juga mengakibatkan orang masuk penjara. Wah, bukankah kita (masyarakat) membutuhkan layanan telekomunikasi yang lebih murah lagi? Perlukah kita kembali seperti ke jaman dahulu, menunggu sampai larut malam agar bisa menelepon dengan murah? Atau sekalian saja, SMS tidak diperbolehkan karena menghancurkan bisnis kartu posnya PT POS. Penggunaan SMS itu sama dengan korupsi! Anda-anda yang menggunakan SMS ini pelaku kejahatan kriminal.
Aduh … ampun deh!

Menulis Untuk Belajar

2007-10-06T09:26:00.000+07:00

Ada orang yang bertanya mengapa saya menulis blog? Jawaban saya adalah untuk belajar. Orang mengira kalau saya menulis sesuatu berarti saya sudah mengerti. he he he. Justru sebaliknya. Saya menulis untuk lebih mengerti. Sering ada komentar yang memberikan pencerahan (misalnya memberikan URL, referensi tentang topik tersebut).
Beberapa hari yang lalu saya membaca sebuah artikel yang ditulis oleh Peter Drucker, “Managing Oneself” (1999), di koleksi artikel Harvard Business Review yang digabung dalam bundel “Leadership Fundamentals: Chart Your Course to Great Leaership“. Ternyata orang memiliki cara yang berbeda dalam belajar. Nah, saya ini termasuk yang menuliskan sesuatu untuk belajar, meskipun tulisan itu kemudian tidak dibaca lagi! Tadinya saya pikir saya sendiri yang seperti ini - membuat catatan, tapi tidak pernah dibaca. Ternyata banyak orang lain yang seperti itu juga. Wah, ternyata normal juga. ha ha ha.
Nah tulisan di blog ini pun demikian. Dia merupakan salah satu mekanisme belajar saya. Yang keinget ditulis (lagaknya mau dibaca lain kali, he he he), tapi kemudian nggak dibaca lagi. Ternyata ini memang proses belajar saya. Ooo gitu toh.
Yang menarik, ada orang yang proses belajarnya adalah dengan bicara. Jadi dia kumpulkan anak buahnya (para managernya) kemudian dia ngomong sendiri - ngacapruk. Setelah itu anak buahnya dibubarkan (sambil bengong? ngapain tadi dikumpulkan?). He he he. Ternyata itu adalah proses belajar dia, yaitu harus ngomong. Wah kalau yang gini ngambil kuliah bisa repot. Semuanya ngacapruk sendiri-sendiri. Wong edan. hi hi hi. Jadi gimana dong? Ya, selamat menderita untuk mereka. ha ha ha. Untung saya hanya perlu nulis...

sumber: Budi rahardjo

Mengedit Kembali Tulisan di Blog

2007-10-06T09:20:00.000+07:00

Apakah Anda mengedit kembali tulisan yang pernah Anda tuliskan di blog? Baru saja saya mengedit tulisan saya tentang “Tonetz” untuk menambahkan sedikit tambahan yang kurang. Terus terang saya merasa aneh. Apakah ada manfaatnya untuk mengedit ulang? Toh, orang sudah pernah membaca tulisan tersebut dan tidak akan kembali membaca tulisan tersebut. Paling-paling edit ini hanya akan bermanfaat untuk pembaca yang belum pernah melihat tulisan itu sebelumnya. Eh, jangan-jangan ada juga orang yang kembali membaca tulisan (di blog) yang pernah dia baca sebelumnya? Anda pernah melakukan itu?
Saya lihat sebagian besar blogger hanya menulis sekali dan dibiarkan saja. (Write once and let it go.) Sebagian besar tulisan saya memang demikian, Kadang-kadang saya menuliskan sesuatu yang rasanya sudah pernah saya tuliskan sebelumnya. Halah!
Saya kurang suka mengedit ulang tulisan lama karena merasa tidak ada manfaatnya. Bukankah yang penting adalah pesannya? Akibatnya kesalahan ejaanpun kadang saya biarkan. Lebih jauh lagi fakta tidak diperbaharui. Kalau ada kesalahan pun telah dikoreksi oleh pembaca di bagian komentar. (Apa tidak aneh kalau kesalahan yang dikomentari itu saya perbaiki? Komentar jadi nggak nyambung dengan tulisan yang sudah diedit tersebut.) Post modernisme?
Semestinya masih ada banyak manfaat dari mengedit ulang tulisan di blog karena akan ada pembaca-pembaca baru. Atau, mungkin juga ada pembaca yang menggunakan tulisan tersebut sebagai referensi sehingga kembali membaca ulang? Atau … sedemikian hebatnya tulisan di blog tersebut sehing dibaca berulang-ulang dan bahkan disimpan oleh pembaca? Wah, asyik juga kalau bisa membuat tulisan mahakarya seperti itu.
Salah satu kehebatan (fitur) dari blog adalah mudahnya dia untuk diedit ulang. Sayangnya fasilitas ini justru yang tidak pernah atau jarang dipakai.
Bagaimana dengan Anda? Apakah Anda mengedit ulang tulisan blog Anda?hmm...

sumber: Budi Rahardjo"

Tonetz

2007-10-05T12:54:00.000+07:00

Ada beberapa hal lucu di hari ini ketika baru mulai masuk jam kerja...jam 9 pagi tepatnya, sebenarnya rsnya sedikit ngantuk(habis sahur ga tidur seh hehe..ada sedikit kerjaan). Bos datang dan tiba-tiba menyuruh untuk setting Tonetz Voip phone. Sambil berkata "ini rusak tolong check". Dalam hati("..sopan sekali") hehe, kemudian setelah di sy check ternyata ga da masalah hanya salah setting Account ID yang sudah kepakai oleh user Voip Dasan, dan akhirnya ga da masalah setelah sy ubah dflt passwd nya, dengan Ip static mode NAT, lucunya lagi bos tetep kekeh kalo Tonetz nya tu tadi rusak,...ampun deh!