GAIBlog

Mengintip Situs Kampanye Pemilihan Presiden NKRI 2009

pebbie — Mon, 08 Jun 2009 12:44:55 +0000

Sebetulnya sedang asik mengembangkan framework Web yang terinspirasi dari berbagai CMS (Django, WordPress, dan Drupal) lalu membaca e-mail dari milis HMIF yang mencantumkan tautan ke situs kampanye pilpres 2009 yang akhirnya penasaran ingin tahu apa engine/web framework/cms yang digunakan.

situs SBY-Boediono ternyata menggunakan drupal, Megawati-Prabowo menggunakan Joomla, dan JK-Wiranto menggunakan wordpress. tidak sulit sebetulnya untuk mengetahui apa engine yang digunakan apalagi untuk engine yang bersifat kode terbuka (open-source). kesimpulannya, tidak ada yang menggunakan cms buatan sendiri.

mengapa menyebut ‘tidak ada yang menggunakan cms buatan sendiri’?

jawabannya sederhana saja, pada saat tulisan ini dibuat pada situs megawati prabowo dan SBY-Boediono tercantum penanda Hak Cipta, atau Copyright ( © ) dan tentu saja pada situs yang mencantumkan tanda copyright tersebut jejak-jejak penanda bahwa situs tersebut dibuat menggunakan framework yang sudah ada tidak dimunculkan (coba saja cari kata ‘drupal’ di halaman situs SBY-Boediono atau cari kemunculan kata ‘joomla’ di situs Mega-Prabowo).

Memang ternyata walaupun hanya situs JK-Wiranto yang penampilannya kacau waktu dibuka, tetapi tidak menyatakan tanda copyright pengembang situs bahkan tetap mencantumkan atribut copyright milik wordpress serta tautan ke situs WordPress.

Catatan:

1: What is the license for Drupal?

Drupal and all contributed files hosted on Drupal.org are licensed under the GNU General Public License, version 2 or later. That means you are free to download, reuse, modify, and distribute any files hosted on Drupal.org’s CVS repository under the terms of either the GPL version 2 or version 3, and to run Drupal in combination with any code with any license that is compatible with either versions 2 or 3, such as the Affero General Public License (AGPL) version 3.

Joomla is free, open, and available to anyone under the GPL license.

now who’s conform to these licenses?

Programmatically set core affinity in multicore environment

pebbie — Tue, 02 Jun 2009 07:48:36 +0000

Prosesor multicore sudah tidak asing tetapi aplikasi yang umumnya dikembangkan biasanya hanya terdiri dari satu thread. Sejak dahulu ternyata sudah ada Win32 API untuk menentukan afinitas proses/thread ke prosesor tertentu. Kode di bawah menggunakan delphi 7.

Mendapatkan Jumlah core/Prosesor

var
  sinfo : TSystemInfo;
begin
  GetSystemInfo(sinfo);
  { jumlah prosesor ada di field dwNumberOfProcessors }
  showmessage(inttostr(sinfo.dwNumberOfProcessors));

Menentukan Afinitas ke core tertentu
Afinitas ke core menggunakan bit vector. Tiap 1 bit diasosiasikan ke core tertentu mulai dari LSB. karena tipe data yang dilemparkan ke fungsi tsb adalah 32 bit unsigned integer maka mungkin maksimum prosesor yang bisa diakses sejumlah 32.

berikut ini contoh kode agar aplikasi yang sedang berjalan hanya menggunakan core pertama (cpu0) saja.

SetProcessAffinityMask(GetCurrentProcess, 1);

berikut ini contoh kode agar aplikasi yang sedang berjalan hanya menggunakan core pertama (cpu0) dan kedua (cpu1).

SetProcessAffinityMask(GetCurrentProcess, 3);

sedangkan berikut ini contoh kode agar aplikasi yang sedang berjalan hanya menggunakan core kedua (cpu0) saja.

SetProcessAffinityMask(GetCurrentProcess, 2);

Bloated Computing : A Collective Crime

pebbie — Wed, 20 May 2009 09:30:33 +0000

Hukum Moore menjanjikan kapasitas komputasi yang semakin lama semakin besar. Tetapi kemajuan terhadap state-of-the-art dan dampak terhadap kehidupan end-user belum tentu meningkat dengan laju yang sama. Beberapa penyebab terjadinya hal ini antara lain faktor ekonomi yang tidak dapat dipisahkan dari industri teknologi yang menjanjikan agar setiap perubahan kemajuan dapat berjalan perlahan tetapi berkesinambungan. Ekonomi menjadi keran pengontrol terhadap teknologi yang dapat dinikmati oleh setiap orang. Hal yang sebetulnya diinginkan bukanlah teknologi melainkan manfaat dan dampaknya terhadap kehidupan dan kemanusiaan. Pada titik tertentu, fungsi keran pengontrol yang secara abstrak menjadi model antrian M/M/1 tentu akan mencapai kejenuhan yang menjadi bottleneck yang memisahkan antara manusia yang semakin lapar akan manfaat dan eksplorasi ilmiah yang menanti untuk diwujudkan.

Bloat, yang dalam bahasa indonesia mirip dengan istilah kembung (pada perut) yang maknanya adalah penumpukan zat-zat yang mengantri untuk dicerna. Dalam konteks teknologi khususnya komputasi istilah bloat lebih tepat dimaknakan sebagai fenomena tambal-sulam yang selama ini terjadi sejak awal industri komputasi tetapi sengaja ditutup-tutupi atau didogmakan untuk dimaklumi sebagai bagian dari perkembangan ke arah yang lebih baik.

Bayangkan sebuah teknologi yang memungkinkan orang untuk bertukar kata di tempat yang berbeda jika dilihat sebagai rangkaian teknologi di bawahnya menjadi sebuah koleksi benda-benda yang saling terhubung dalam suatu kekacauan yang dilihat dari luar sebagai keteraturan (bahkan mungkin kenyamanan jika kedua orang yang terlibat memiliki hubungan emosional). Jika disederhanakan, maka teknologi yang terlibat dapat dikelompokkan menjadi Perangkat keras, Perangkat lunak, dan mekanisme dan media telekomunikasi (hal ini tidak akan dibahas mengingat telekomunikasi pun dapat dideskripsikan menggunakan HW dan SW).

Contoh produk yang termasuk perangkat keras adalah Prosesor. Kalau kita merefleksikan perkembangan arsitektur prosesor dan implementasinya, kita akan mendapatkan salah satu babak mengenai dua buah arsitektur yang menonjol yaitu CISC dan RISC. Arsitektur RISC dimunculkan akibat arsitektur CISC yang semakin lama semakin mengganggu (bloated, if i may say so) akibat kompleksitasnya. Salah satu alasan penentang CISC adalah pihak produsen CPU yang berbasis arsitektur CISC disinyalir melakukan praktek semi-monopoli yang lebih tepatnya membuat tuas untuk mengendalikan pasar CPU dan industri di atasnya. Walaupun pada akhirnya konsensus menyetujui bahwa arsitektur RISC lebih baik dari CISC dari beberapa parameter yang dianggap signifikan, saat ini kita masih menjumpai prosesor yang menggunakan arsitektur CISC (walaupun implementasi di dalamnya menggunakan RISC).

Dalam dunia perangkat lunak kejadian bloat bisa lebih radikal dibanding pada perangkat keras. Kunci penyebabnya terletak pada awal sejarahnya yaitu mesin turing yang dalam sebuah konjekturnya menyatakan bahwa hampir semua jenis ‘komputer’ dapat disimulasikan atau diemulasikan menggunakan mesin turing universal. Fenomena ini secara nyata sudah dijelaskan dalam dunia perangkat keras pada contoh prosesor di atas. Fenomena yang dijelaskan menggunakan mesin turing tersebut secara sederhana adalah memungkinkan kita untuk membuat infrastruktur komputasi sebagai kumpulan teknologi yang bertumpuk berlapis-lapis.

“so what? bukankah cara tersebut (tumpukan berlapis) bertujuan untuk mempermudah?”. Well, menjadi ignorant memang seringkali ‘menyenangkan’. Analogi dari tumpukan berlapis tersebut adalah birokrasi, agar dapat berjalan seperti yang diharapkan maka pada masing-masing lapisan dibuat batasan-batasan. Meskipun pembatasan tidak selamanya buruk, pembatasan pun tidak selamanya baik. Pertanyaannya adalah, sudah setinggi apakah tumpukan lapisan tersebut dan seberapa luas ruang ekspresi manusia dibanding ruang-ruang yang digunakan untuk membatasinya? kaitkan dengan jargon-jargon komputasi seperti cloud computing dan virtualisasi.

sebagai penutup, mari lihat salah satu contoh interpretasi dari jargon cloud computing yang memanfaatkan virtualisasi. The interpretation itself has nothing wrong with it, the problem is the implication related to computing in rural areas. Do we really gonna charge rural people for the bloated technology that we bring just for something that actually can have much leaner and cheaper implementation? if there’s no one to answer therefore i would be the first person to say NO. if we really would like to help them (not conversely, help ourself with burden sharing) then we should use our head to skim the technology first before we give to people in rural areas.

simple chat server in python

pebbie — Wed, 06 May 2009 08:52:27 +0000

Bosan!

Lagi pengen cari hiburan. Akhirnya ngoprek python yang mrogramnya headache-free. Biar seru pygame dipilih sebagai mainan. Hasil akhirnya game pesawat-pesawatan SHMUP-defense yang dipublish di sini yang dibuat dalam waktu 1 hari (gambarnya udah dibikin di project lain yang platformnya j2me).

Biar belajar sesuatu yang baru tapi masih berkaitan sama tugas kuliah (distributed shared memory bwt wireless embedded network sama simulasi berbasis agen) akhirnya diputuskan pengen bikin MMO yang as-simple-as-possible pake python. Lagi penasaran aja pake socket di python. ternyata cukup sederhana, mungkin bisa dibilang lebih sederhana dari socket di JAVA. habis baca tutorialnya langsung bikin echo server, dengan tambahan. di client, untuk nerima message dari client yang lain nggak harus nunggu input seperti yang ada di sini.

"""
	file : server.py
	auth : Pebbie
	desc : echo server, multithreaded
"""
import socket, threading
import os, sys

BACKLOG = 5
class Server:
	def __init__(self,host='',port=8080,size=1024):
		self.host = host
		self.port = port
		self.size = size
		self.socket = None
		self.threads = []
		self.run()

	def open(self):
		try:
			self.socket = socket.socket(socket.AF_INET, socket.SOCK_STREAM)
			self.socket.bind((self.host,self.port))
			self.socket.listen(BACKLOG)
		except socket.error(value, message):
			if self.socket:
				self.socket.close()
			print "create socket failed : ", message
			sys.exit(1)

	def run(self):
		self.open()
		running = True
		while running:
			c = Client(self, self.socket.accept())
			self.threads.append(c)
			c.start()
		self.close()

	def close(self):
		self.socket.close()
		for c in self.threads:
			c.join()

	def send(self,msg):
		for c in self.threads:
			c.client.send(msg)

class Client(threading.Thread):
	def __init__(self,owner,(client,address)):
		threading.Thread.__init__(self)
		self.owner = owner
		self.client = client
		self.address = address
		self.size = 1024
		self.running = False

	def close(self):
		try:
			self.owner.threads.remove(self)
			self.owner.send("quit")
			self.client.close()
		except:
			pass
		self.running = False
		print "closing ", self.address

	def run(self):
		self.running = True
		while self.running:
			try:
				data = self.client.recv(self.size)
				if data:
					print "received from ", self.address, data
					self.interpret(data)
				else:
					self.close()
			except:
				self.close()

	def interpret(self,msg):
		if msg == "stop":
			self.client.send(msg)
			self.close()
		else:
			self.owner.send(msg)

if __name__=='__main__':
	s = Server()

Tadinya di contoh kode Python network programming ada kode yang pakai modul select, tapi entah kenapa selalu aja exception ketika objek yang dimasukinnya sys.stdin. mungkin ada yang pernah pengalaman bisa bantu?

berikutnya kode untuk client

"""
	file : client.py
	auth : pebbie
	desc : echo client, bisa ngirim untuk client lain
"""
from socket import *
import threading
import os,sys

DATASIZE = 1024
class SocketListener(threading.Thread):
	def __init__(self,owner):
		threading.Thread.__init__(self)
		self.owner = owner
		self.socket = owner.socket
		self.running = False

	def run(self):
		print "listener started"
		self.running = True
		while self.running:
			data = self.socket.recv(self.owner.size)
			print '\nreceived:', data
			if data == "stop":
				self.running = False
		self.socket.close()
		print "disconnected, press return"

class Client:
	def __init__(self,host='localhost',port=8080,size = DATASIZE):
		self.host = host
		self.port = port
		self.size = size
		self.socket = None
		self.listener = None
		self.open()

	def open(self):
		try:
			self.socket = socket(AF_INET, SOCK_STREAM)
			self.socket.connect((self.host,self.port))
		except :
			self.socket = None
			print "something happened, connect failed", msg
			sys.exit(1)
		self.listener = SocketListener(self)
		self.listener.start()

	def run(self):
		while self.listener.running:
			cmd = raw_input()
			if not self.listener.running:
				break
			self.socket.send(cmd)
		self.listener.join()

if __name__=='__main__':
	Client().run()

di client, kode untuk socket.recv dipisah di thread tersendiri. jadi kalau client lain ngirim pesan, pesannya bisa diterima tanpa harus ngetik sesuatu (kekurangan yang ada di contoh pymmo). selanjutnya tinggal penanganan data world & entity, sama game client. rencananya sih untuk manajemen data pake sqlite3 aja yang udah built-in di python 2.5. cara pakai sqlite pun lumayan mudah, tapi dibahasnya nanti aja kalo kode untuk usernya udah jadi.

Betulkah Pemilu Legislatif 2009 Gagal?

pebbie — Tue, 21 Apr 2009 07:41:44 +0000

Sudah lewat waktu pelaksanaan tabulasi suara nasional (real count) yang tadinya direncanakan selama 10 hari setelah pemilu. Berbagai polemik muncul di berbagai media baik televisi maupun di internet. Persoalan yang dijadikan topik polemik diantaranya pemilihan ICR sebagai teknologi ujung tombak penghitungan suara di KPUD, dan adanya pihak (yang mengaku sebagai hacker) yang berusaha masuk tanpa izin ke server tabulasi suara dan sempat berusaha mengubah data perolehan suara.

Sebelum menjustifikasi apakah pemilu legislatif ini gagal atau tidak dan menjustifikasi siapa dan apa yang salah ada baiknya kita memilah dulu masalah-masalah yang ada. Polemik pemilu kali ini membahas aspek organisasi dan aspek teknologi. Sebagai blog yang membahas teknologi maka saya tidak akan ikut-ikutan mengurusi aspek organisasi walaupun sebagaimana kita ketahui bahwa keputusan atas pemilihan teknologi memang adalah kewenangan organisasi yang dalam hal ini adalah KPU. Adapun peran pihak lain (BPPT dan vendor produk teknologi baik ICR, sistem tabulasi, maupun aspek teknis IT lainnya) yang terlibat dalam teknologi yang digunakan pada pemilu kali ini tidak lain hanyalah sebagai perealisasi atas keputusan yang dibuat oleh KPU.

Teknologi ICR

Teknologi ini merupakan topik yang sedikit banyak terkait dengan isi dari blog ini. oleh sebab itu akan segera dibahas terlebih dahulu. Pada berbagai situs dan blog di negeri ini ([1], [2], [3]) sudah ramai dibahas mengenai apa itu teknologi ICR dan bagaimana kelebihan dan kekurangannya.

Saya akan membahas hal-hal apa saja yang ada di dalam produk ICR yang perlu diketahui oleh publik. Selama ini yang sering disebut baik di televisi maupun di situs internet hanyalah bagaimana mengenali gambar dalam bentuk berikut (contoh didapat dari database MNIST):

contoh gambar berisi angka
menjadi teks berupa angka “9″.

Kalau kita hanya berpikir bagaimana mengkonversi gambar tersebut menjadi angka maka akurasi yang didapat cukup tinggi (99.6 % dari 50000 gambar. pada situs Yang Le Cun yang sering disebut di situs [2]). Pengujian yang dilakukan pada waktu standarisasi produk ICR tidak sampai 50000 (maksimal hanya 500 dari satu paket form C1-IT yang ditulis oleh penguji), walaupun demikian pencapaian angka 98% sebagaimana yang diklaim oleh salah satu vendor yang disalah artikan sebagai pernyataan dari BPPT sebagai tim reviewer tidak mustahil.

Pertanyaannya adalah apakah jumlah data mempengaruhi keakuratan produk di lapangan? jawabannya tentu tidak. Hal yang lebih penting adalah cakupan variasi pada kasus latih dan uji. Dalam hal ini terdapat jurang antara dunia akademik dengan dunia nyata. Di dunia akademik, validasi sebuah pengujian dengan model distribusi statistik tertentu dan ambang batas jumlah pengujian dapat dinyatakan cukup valid karena ada asumsi bahwa peneliti boleh salah tetapi tidak boleh bohong (kejujuran ilmiah) dan hal yang menjadi fokus adalah seberapa besar kapabilitas metode komputasi yang diuji (lewat partisi antara distribusi data yang digunakan untuk pelatihan dan distribusi data yang digunakan untuk pengujian). Lain halnya dalam dunia nyata yang cenderung pragmatis yaitu jika memungkinkan maka akurasi yang diharapkan adalah 100% tak peduli apakah cara (pengembangan metode) untuk mendapat 100% itu valid atau tidak secara akademik(terlihat pada logika pembantahan yang ditulis oleh publik di sini).

Hal penting yang menjadi kebutuhan pada penghitungan menggunakan teknologi ICR tidak hanya apakah teknologi tersebut akurat mengenali gambar di atas menjadi angka 9 (tidak tertukar dengan 5, 3, atau melainkan lebih umum lagi yaitu :
- cepat
- akurat dan dapat dipertanggung-jawabkan
kriteria cepat merupakan isu utama mengingat jumlah dokumen yang diproses luar biasa banyak dan tersebar secara geografis. Pemeriksaan ini dapat dikomposisi menjadi proses yang atomik yaitu pemindaian per TPS yang dilakukan oleh operator ICR di KPUD. Adapun proses pemeriksaan setiap dokumen form C1-IT yang terdiri dari 8 lembar ini akan melalui subproses berikut:
- pemindaian untuk mengubah dokumen kertas menjadi dokumen elektronik (citra digital).
- pembacaan angka-angka (nomor partai dan perolehan suara) di tiap lembar oleh teknik ICR
- verifikasi untuk menjamin data yang dikirimkan ke pusat adalah benar biarpun terjadi kesalahan pembacaan
- penyimpanan paket yang berisi citra yang sudah dibubuhi cap watermark dan hasil pembacaan dan log verifikasi yang sudah dienkripsi dan dibubuhi watermark.
kriteria akurat dan dapat dipertanggung jawabkan sudah dicakup lewat adanya proses verifikasi, dilampirkannya citra hasil scan, dan perlindungan terhadap paket yang dikirimkan. Paket yang diterima oleh sistem tabulasi di pusat akan diperiksa kembali untuk memeriksa kemungkinan terjadinya pengubahan selama paket tersebut dibuat hingga diterima oleh pusat sebelum data perolehan tersebut digabung ke dalam perolehan yang bisa dilihat oleh publik. Berdasarkan simulasi penghitungan yang dilakukan di sini dapat diketahui bahwa proses verifikasi di pusat telah berjalan dan ditolaknya paket kiriman dari daerah.

Proses pemindaian, pembacaan, penyimpanan paket, dan verifikasi di pusat merupakan proses yang waktu pengerjaannya dapat dianggap konstan. Proses yang waktunya bervariasi terletak pada verifikasi dan hal ini dipengaruhi oleh keberhasilan perangkat lunak ICR dalam melakukan pembacaan. Demi keberpercayaan terhadap data yang dibaca maka diasumsikan bahwa pasti akan terjadi kesalahan pada pembacaan, pertanyaannya adalah seberapa besar, dimana penyebab kesalahannya, dan bagaimana mengatasinya.
1. seberapa besar kesalahan pembacaannya?.
  rentang kesalahan yang mungkin terjadi mulai dari dokumen tidak berhasil dibaca sama sekali, hingga kesalahan pengenalan angka (perolehan suara)
2. dimana penyebab kesalahannya?
  Kesalahan pengenalan angka terletak dari kapasitas teknik pengenalan pola yang digunakan dan kesalahan dalam melokalisasi objek yang dicurigai berisi angka. Kesalahan ini bisa bervariasi dan sangat bergantung pada variasi masukan. Sedangkan kesalahan dokumen tidak terbaca bisa terjadi disebabkan beberapa hal : kertas terlalu tipis sehingga gagal dipindai oleh perangkat pemindai, terjadi kerusakan fisik pada kertas pada saat kertas dicetak maupun setelah kertas diterima di KPUD. Hal terakhir berhubungan dengan pola (marker) yang ditambahkan pada kertas untuk menjadi referensi posisi oleh program untuk mengantisipasi transformasi affine(rotasi, geser, skala) yang mungkin terjadi pada citra hasil pemindaian (sebagaimana yang pernah saya jabarkan untuk kasus UASBN). Persoalan pemilihan pola marker yang ditambahkan pada kertas dan pola yang digunakan pada program ICR merupakan kuncinya. Tiap jenis pola memiliki kelebihan dan resikonya masing-masing.
3. Bagaimana mengatasinya? Hal ini akan saya bahas lebih lanjut di bawah.
Terkait kesalahan pengenalan angka yang persoalannya terletak pada kesalahan lokalisasi atau segmentasi objek yang dicurigai sebagai objek angka akan lebih mudah dipahami jika diberikan contoh berikut.

adanya objek yang bukan angka diisi pada kotak untuk angka

pembatalan yang hanya dimengerti manusia

angka 8 keluar area isian
[caption id="attachment_291" align="alignnone" width="229" caption="angka 6 keluar area, angka 0 atau 8"][/caption]

Itu baru dari pemisahan antara objek angka dengan objek lainnya. kalaupun angka berhasil dilokalisasi, namun ambiguitas akibat pengisi pun dapat terjadi seperti berikut.

angka 1 atau angka 0?

Pola marker yang digunakan pada form C1-IT adalah penggunaan kotak hitam yang terletak pada sudut-sudut kertas. Entah berdasarkan alasan apa KPU memutuskan untuk menggunakan pola tersebut. Tetapi pola tersebut sejauh yang saya ketahui merupakan pola marker yang memiliki resiko paling tinggi dari berbagai pola marker lainnya.

Pola tersebut terdiri dari 4 buah kotak hitam pada tiap sudut kertas dengan tambahan satu kotak di kiri atas untuk menjadi informasi tambahan orientasi (biasanya kiri atas). Resiko yang dapat terjadi adalah seperti yang sekarang terjadi yaitu jika dokumen C1-IT yang terdiri dari 8 lembar tersebut di-staples dan ketika dibuka, kertas tersobek. Ketika dipindai, maka hasilnya mungkin menjadi seperti berikut :
sobek akibat staples

Apa yang terjadi? secara otomatis dua buah marker hilang dan kertas langsung tidak dapat dibaca karena posisinya tidak tepat. Hal ini bisa diatasi dengan penentuan posisi marker secara manual, tetapi waktu yang diperlukan akan menjadi lama karena proses trial and error.

Kembali ke proses verifikasi, karena proses yang terjadi pada verifikasi sudah tetap maka variasi waktu sangat dipengaruhi oleh bagaimana teknik interaksi yang digunakan. Spesifikasi yang diberikan oleh tim reviewer IT KPU (dalam hal ini BPPT) hanyalah bahwa perangkat lunak ICR harus menampilkan hasil pembacaan disertai citra hasil pindai secara bersamaan (agar operator hanya melihat ke monitor tanpa perlu memegang kertas untuk verifikasi sebagaimana halnya jika dilakukan dengan data entry secara manual/diketik) dan tidak mencantumkan bagaimana proses interaksi berlangsung. Sebagai gambaran, operator ICR yang ada di KPUD diasumsikan mempunyai kemampuan operasi yang kurang (khususnya kemampuan mengetik menggunakan keyboard komputer dan mengoperasikan mouse untuk memanipulasi objek di layar). Oleh sebab itu, sebaiknya untuk melakukan verifikasi perangkat masukan yang perlu digunakan pun dikurangi (misalkan cukup menggunakan mouse saja). Visualisasi hasil pembacaan pun sebaiknya menjadi perhatian untuk mengurangi kerja otot leher dan otot mata. Teknik yang optimal adalah menampilkan tiap angka pembacaan yang terletak di samping objek yang dikenali serta memungkinkannya dilakukan penyuntingan di tempat (in-place editing).

Namun kenyataannya, hanya satu vendor yang memperhatikan efisiensi dari interaksi. Vendor lainnya sepertinya lebih menonjolkan fungsi (akurasi pembacaannya) yang waktu pengenalannya bisa diprediksi sejak awal dan bisa dianggap konstan. Hal ini mencerminkan seberapa matang vendor tersebut dalam menyediakan produk IT.

Kebanyakan vendor ICR mengimplementasi proses verifikasi dengan membagi area layar menjadi 2 yaitu sebelah kiri untuk hasil pembacaan (baik dalam bentuk tabel ataupun formulir isian), dan area layar sebelah kanan untuk menampilkan citra hasil pemindaian. Hal ini memiliki mekanisme yang sama seperti entry manual dengan kertas yang mengharuskan operator menggerakkan otot leher dan otot mata secara ekstrim (dari kertas ke monitor atau dari monitor sebelah kiri dan sebelah kanan). Walaupun gerakan tersebut bisa dibilang sedikit, namun karena dilakukan secara berulang-ulang dan bolak-balik(akibat data yang banyak dan operator yang sedikit) akan lebih cepat mengakibatkan kelelahan karena otot yang lelah dekat dengan otak. Hal ini sudah terjadi dan tidak dapat dihindari lagi.
Adanya penyusup di server KPU

Saya tidak akan pernah menyebut penyusup tersebut sebagai hacker. Hal ini menjadi polemik dengan adanya provokasi bahwa jika KPU melaporkan penyusup tersebut ke aparat, maka KPU dianggap menyulut perang dengan komunitas underground. Padahal sebelum pemilu, pihak representatif dari komunitas underground sudah memberikan himbauan agar anggota komunitas tersebut jika menemukan lubang kesalahan pada sistem TI KPU supaya segera melaporkan sehingga dapat diperbaiki bukan malahan mengorek-ngorek lubang tersebut lalu masuk dan mengacak-acak seperti tikus. Walaupun sang penyusup berhasil masuk dan berusaha mengacak-acak (mengubah data), namun pihak TI KPU berhasil mencegah terjadinya perubahan dan mengidentifikasi pelakunya. Lucunya, muncul opini bahwa tindakan pelaporan pelaku penyusupan ke aparat kepolisian menyulut perang yang mengancam keberjalanan pemilihan presiden mendatang. Hal ini jelas-jelas menunjukkan sikap kekanak-kanakan yang tidak bertanggung jawab. Apakah mentang-mentang berhasil masuk lalu tidak mau disalahkan. Padahal sebelumnya sudah ada himbauan/peringatan larangan.

Hal inilah yang kurang baik, seperti yang sudah saya nyatakan sebelumnya bahwa saya tidak akan memberi gelar hacker pada penyusup tersebut. alasannya sederhana secara bahasa. istilah hacker mengandung arti bahwa orang tersebut melakukan kegiatan hacking secara rutin sebagai profesi bukan karena melakukan sekali (tentu berbeda makna istilah ‘pelaku pembunuhan’ dengan ‘pembunuh’).

Kesimpulannya, teknologi ICR tidak dapat dibilang gagal namun yang salah adalah pemilihan teknologi ICR dalam penyelenggaraan pemilu lah yang gagal (banyak aspek yang terkait dengan faktor keberhasilan penerapan teknologi ICR yang diabaikan) sehingga yang perlu dirunut adalah bagaimana keputusan tersebut dibuat bukan pada teknologinya. (jangan malah buruk muka cermin dibelah)

Disclaimer
Tulisan di atas merupakan pendapat pribadi penulis dan tidak merepresentasikan perusahaan tempat penulis bekerja.

On Base64

pebbie — Tue, 31 Mar 2009 16:47:00 +0000

*duh, dah lama nggak update blog saking sibuknya (cari alesan)*

Beberapa waktu yang lalu ada permintaan untuk melakukan encoding/decoding ke format base64. karena waktu yang mendesak dan jumlah item requirement yang banyak maka alternatif pertama adalah mencari kode public domain di internet. ternyata tidak satupun yang bisa dipakai (pada saat yang sempit itu). hambatannya bermacam-macam, mulai dari hasil encoding yang tidak sesuai, atau hasil decoding yang beda dengan acuan. setelah duduk sebentar sambil melototin lagi halaman wikipedia yang mendeskripsikan aturan pengkodean basis64 akhirnya langkah terakhir malah bikin sendiri fungsi yang sesuai dengan spek (teks dari/ke base64, binary(variabel bertipe ataupun byte stream) dari/ke base64).

bagi yang berminat menggunakan, dipersilakan menggunakan kode berikut sebebas-bebasnya (pubdom as no warranty for using).

(*
 * auth : Peb Ruswono Aryan
 * desc : base64 encoding/decoding for delphi
 *)
type
  tbytearr = array of byte;

{
	encode64 : Pointer x Nat --> string
	desc: encode binary data to base64 message
}
function encode64( const v: Pointer; vsize: cardinal ): string;
const
  lut64             = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
var
  tribyte           : array[0..2] of byte;
  p                 : PByteArray;
  ci, i             : cardinal;

  function enc3byteto4char( len: integer ): string;
  begin
    result := lut64[1 + tribyte[0] shr 2];
    result := result + lut64[1 + ( ( tribyte[0] and $03 ) shl 4 ) + ( tribyte[1] shr 4 )];
    if len > 1 then
      result := result + lut64[1 + ( tribyte[1] and $0F ) shl 2 + ( tribyte[2] shr 6 )]
    else
      result := result + '=';
    if len > 2 then
      result := result + lut64[1 + tribyte[2] and $3F]
    else
      result := result + '=';
  end;
begin
  p := PByteArray( v );
  ci := 0;
  repeat
    i := 0;
    while i < 3 do begin
      if ci >= vsize then break;
      tribyte[i] := p[ci];
      inc( ci );
      inc( i );
    end;
    result := result + enc3byteto4char( i );
  until ci >= vsize;
end;

{
	decode64 : String --> DynamicArray of byte
	desc: decode base64message to binary data (array of byte)
}
function decode64( msg: string ): TbyteArr;
var
  pb                : array of byte;
  lm, pi            : integer;
  len               : integer;

  function decodechar( c: char; var code: byte ): boolean;
  begin
    result := true;
    case c of
      'A'..'Z': code := ord( c ) - ord( 'A' );
      'a'..'z': code := ord( c ) - ord( 'a' ) + 26;
      '0'..'9': code := ord( c ) - ord( '0' ) + 52;
      '+': code := 62;
      '/': code := 63;
    else
      result := false;
    end;
  end;

  procedure decodeblock( blk: string );
  var
    t, i            : byte;
    w               : dword;
  begin
    w := 0;
    i := 0;
    while i < 4 do begin
      if not decodechar( blk[i + 1], t ) then break;
      w := w shl 6 + t;
      inc( i );
    end;
    result[pi] := ( w shr 16 ) and $FF;
    inc( pi );
    if pi >= len then exit;
    result[pi] := ( w shr 8 ) and $FF;
    inc( pi );
    if pi >= len then exit;
    result[pi] := ( w and $FF );
    inc( pi );
  end;
begin
  len := length( msg ) * 3 div 4;
  lm := length( msg );
  if msg[lm] = '=' then dec( len );
  if msg[lm - 1] = '=' then dec( len );
  setlength( result, len );
  pi := 0;
  repeat
    decodeblock( copy( msg, 1, 4 ) );
    delete( msg, 1, 4 );
  until length( msg ) <= 0;
end;

{
	encode64str : string --> string
	desc: encode text string into base64 message
}
function encode64str( msg: string ): string;
var
  p                 : TByteArr;
  i                 : integer;
begin
  setlength( p, length( msg ) );
  for i := 0 to high( p ) do
    p[i] := ord( msg[i + 1] );
  result := encode64( @p[0], length( p ) );
end;

{
	decode64str : string --> string
	desc: decode base64 message containing text
}
function decode64str( msg: string ): string;
var
  p                 : TByteArr;
  i                 : integer;
begin
  result := '';
  p := decode64( msg );
  for i := 0 to length( p ) do
    result := result + chr( p[i] );
end;

using libjpeg to read-write JPEG

pebbie — Tue, 10 Feb 2009 03:23:22 +0000

Beberapa waktu lalu sempat iseng coba-coba menggunakan libjpeg dengan MinGW. Awalnya dari install msys lalu nyoba build libjpeg. setelah dicoba untuk utak-atik pengolahan citra ternyata lumayan cepat juga.

#include 
#include 
#include 
#include 

#include

fungsi baca-tulis dari libjpeg tidak mengembalikan data dalam bentuk bitmap. oleh sebab itu saya membuat sendiri struktur bitmap sederhana dan fungsi-fungsi minimal untuk itu.


//tipe data untuk manipulasi bitmap
typedef unsigned char byte;
typedef struct st_RGBimage {
	int w, h;
	int stride;
	byte* data;
}bitmap;

bitmap* create_bitmap(int w, int h, int stride)
{
	bitmap* tmp = (bitmap*)malloc(sizeof(bitmap));
	tmp->w = w;
	tmp->h = h;
	tmp->stride = stride;
	tmp->data = (byte*)malloc(sizeof(byte)*stride*h);
	return tmp;
}

void free_bitmap(bitmap** bmp){
	free((*bmp)->data);
	free(bmp);
	*bmp = NULL;
}

mari mulai dengan membaca dan memuat citra jpeg ke struktur bitmap.

//struktur dan fungsi sampingan
struct my_error_mgr{
	struct jpeg_error_mgr pub;
	jmp_buf setjmp_buffer;
};

void my_error_exit(j_common_ptr cinfo)
{

}

int load_jpeg(char * filename, bitmap** bmp)
{
	struct jpeg_decompress_struct cinfo;
	struct my_error_mgr jerr;
	FILE * infile;
	JSAMPARRAY buffer;
	int row_stride;
	int i;

	if ((infile = fopen(filename, "rb")) == NULL) {
		fprintf(stderr, "can't open %s\n", filename);
		return 0;
	}

	cinfo.err = jpeg_std_error(&jerr.pub);
	jerr.pub.error_exit = my_error_exit;

	if (setjmp(jerr.setjmp_buffer)) {
		jpeg_destroy_decompress(&cinfo);
		fclose(infile);
		return 0;
	}

	jpeg_create_decompress(&cinfo);
	jpeg_stdio_src(&cinfo, infile);
	jpeg_read_header(&cinfo, TRUE);
	jpeg_start_decompress(&cinfo);

	row_stride = cinfo.output_width * cinfo.output_components;
	(*bmp) = create_bitmap(cinfo.output_width, cinfo.output_height, row_stride);
	buffer = (*cinfo.mem->alloc_sarray)((j_common_ptr) &cinfo, JPOOL_IMAGE, row_stride, 1);
	i = 0;
	while (cinfo.output_scanline < cinfo.output_height) {
		jpeg_read_scanlines(&cinfo, buffer, 1);
		memcpy((void*)((*bmp)->data+i), (void*)buffer[0], row_stride);
		i+= row_stride;
	}

	jpeg_finish_decompress(&cinfo);
	jpeg_destroy_decompress(&cinfo);
	fclose(infile);
	return 1;
}

setelah dibaca, fungsi selanjutnya adalah menyimpan dari struktur bitmap.

void save_jpeg(char *filename, int quality, bitmap* bmp)
{
	struct jpeg_compress_struct cinfo;
	struct jpeg_error_mgr jerr;

	FILE * outfile;
	JSAMPROW row_pointer[1];
	int row_stride;

	cinfo.err = jpeg_std_error(&jerr);
	jpeg_create_compress(&cinfo);

	if ((outfile = fopen(filename, "wb")) == NULL) {
		fprintf(stderr, "can't open %s\n", filename);
		exit(1);
	}

	jpeg_stdio_dest(&cinfo, outfile);
	cinfo.image_width = bmp->w;
	cinfo.image_height = bmp->h;
	cinfo.input_components = 3;
	cinfo.in_color_space = JCS_RGB;

	jpeg_set_defaults(&cinfo);
	jpeg_set_quality(&cinfo, quality, TRUE);
	jpeg_start_compress(&cinfo, TRUE);

	row_stride = bmp->w * 3;
	while(cinfo.next_scanline < cinfo.image_height){
		row_pointer[0] = &bmp->data[cinfo.next_scanline * bmp->stride];
		jpeg_write_scanlines(&cinfo, row_pointer, 1);
	}

	jpeg_finish_compress(&cinfo);
	fclose(outfile);
	jpeg_destroy_compress(&cinfo);
}

sekarang saya sudah bisa manipulasi sederhana dengan struktur bitmap.


bitmap* rgb_binarize(bitmap* bmp24, int threshold)
{
	//bitmap* g = create_bitmap(bmp24->w, bmp24->h, bmp24->stride / 3);
	bitmap* g = create_bitmap(bmp24->w, bmp24->h, bmp24->stride);
	int i,j, tmp;
	for (j=0; jh; ++j){
		for (i=0; iw; ++i){
			tmp = (int)(0.299*bmp24->data[bmp24->stride*j+i*3]+0.587*bmp24->data[bmp24->stride*j+i*3+1]+0.114*bmp24->data[bmp24->stride*j+i*3+2]);
			tmp = (tmp>threshold)?255:0;
			g->data[j*g->stride + i*3] = (byte)tmp;
			g->data[j*g->stride + i*3 + 1] = (byte)tmp;
			g->data[j*g->stride + i*3 + 2] = (byte)tmp;
		}
	}
	return g;
}

int main(int argc, char **argv){
	bitmap * bmp;
	bitmap * grey;
	if (argc>1)
		load_jpeg(argv[1], &bmp);
	else return 1;
	grey = rgb_binarize(bmp, 128);
	save_jpeg("grey.jpg", 90, grey);
	free_bitmap(&bmp);
	free_bitmap(&grey);
	return 0;
}

selamat mencoba!

ITB kehilangan salah satu putra terbaiknya

pebbie — Mon, 09 Feb 2009 12:54:38 +0000

Pagi ini merupakan senin kelabu bagi komunitas STEI ITB khususnya Informatika. Pagi ini saya mendapat sms yang mengabarkan hal ini dari Mas Arif dan Pak Iping. Jantung saya berdegup kencang sampai akhirnya bisa tenang dan jam 9.15 saya berangkat ke kampus yang ternyata tidak ada kuliah dan saya bersama mahasiswa S2 IF angkatan 2008 berangkat melayat menuju kediaman keluarganya di Arcamanik. Sampai di sana ternyata jenazah beliau sudah akan disholatkan. Akhirnya saya langsung mengikuti iringan mobil menuju masjid yang dimaksud yang kemudian langsung dimakamkan di Tempat Pemakaman Umum Nagrog di Ujung berung. Karena saya membawa sepeda motor, saya ingin mengantar (alm) Pak Farid di samping mobil ambulans yang membawanya menuju kediamannya yang terakhir. Sampai di sana saya pun segera mencari posisi di dekat makam agar saya bisa melihat beliau dikuburkan. Saya tak kuasa menahan air mata haru ketika Pak Prof. Adang Suwandi Ahmad memberikan sambutan. Masih tak percaya rasanya mendengar kabar duka ini. Padahal kamis yang lalu masih sempat berkomunikasi dengan beliau bersama Pak Iping ketika akan berangkat menuju Gedung CCAR untuk sosialisasi penelitian strategis nasional dari DIKTI.

Saya pribadi pertama kali berinteraksi dengan Pak Farid adalah ketika kuliah Jaringan Komputer. Ketika itu saya sangat menikmati gaya beliau mengajar walaupun saya sering datang terlambat sehingga tidak diijinkan masuk. sampai akhirnya ketika masa UTS tiba, saya sakit dan karena kehadiran yang kurang saya ‘divonis’ mengulang mata kuliah tersebut. walaupun begitu saya masih menikmati kuliah pasca UAS karena masih ingin mempelajari materi kuliah. Interaksi berikutnya adalah ketika mengambil mata kuliah pilihan Sistem Multimedia di tahun ke 4 yang pertama kali dibuka waktu itu dan diajar oleh Beliau. Kuliah waktu itu merupakan kuliah yang sangat berkesan, karena waktu itu saya tergerak oleh nasihat beliau tentang cara dan pola berpikir yang kritis. Waktu itu saya sudah merasa cukup dengan pola pikir saya ketika itu, tetapi ternyata setelah mendengar nasihat dan cerita beliau saya merasa diingatkan bahwa saya masih perlu banyak belajar. Ketika itulah titik balik dari pribadi saya yang masih sering bermain-main menjadi lebih serius. Cerita lainnya adalah ketika kami mengikuti kegiatan riset dari ditjen postel depkominfo yang kala itu dua kali diadakan di Bogor. Walaupun kami tidak dalam tim riset yang sama, saya masih sempat ‘belajar’ dari beliau dari bincang-bincang sembari menunggu acara mulai yang memang tertunda beberapa jam. Interaksi terakhir adalah di Semester 1 yang lalu ketika Beliau mengajar di Mata kuliah Sistem Berkinerja Tinggi (High Performance Computing) yang lagi-lagi baru dibuka (kelas pertama). Walaupun ketika itu para dosen khususnya Ketua KK Informatika sempat mengkhawatirkan beliau yang sedang masa pemulihan dari stroke karena tetap bersikeras mengajar. Inilah kuliah terakhir dari beliau yang paling berkesan, walau kadang-kadang kami sebagai anak-anaknya masih sering nakal seperti terlambat atau lupa mengerjakan tugas tapi suasana kelas masih tetap menyenangkan.

Walaupun hingga saat ini Program studi informatika belum mempunyai guru besar (professor emeritus), dan beliau pernah bercerita bahwa beliau berkeras untuk tidak mendapatkan gelar ini karena sikap tegas dalam menentang sistem keprofesoran di Indonesia. Beliau menyatakan bahwa beliau tidak mengurus gelar profesor karena alasan pribadi dan tidak mengurus syarat2 mendapatkan gelar sejak tahun 1991. Walaupun demikian rekan sejawatnya khususnya Elektro ITB angkatan 70 seperti Prof. Adang Suwandi Ahmad yang sekarang menjabat sebagai dekan STEI sudah menjadi guru besar sehingga dapat dipahami bahwa kalaupun beliau menginginkan untuk menjadi guru besar, pun saat ini beliau sudah mendapatkan gelar tersebut. Sebagai institut pendidikan yang pertama kali membuka program studi informatika di Indonesia, memang agak aneh kalau Informatika ITB sampai saat ini belum memiliki guru besar. Walaupun mungkin di universitas lain program serupa sudah memiliki lebih dari 3 atau bahkan alumni informatika itb sudah ada yang menjadi profesor baik di dalam maupun luar negri. Tampaknya memang, gelar guru besar bagi komunitas informatika itb memiliki makna tersendiri yang cukup dalam di hati murid-muridnya. Dr. Farid Wazdi adalah teladan, bahwa seorang guru besar tidak perlu sebuah gelar yang diakui negara. Seorang guru besar, telah mendapat gelar tersebut di setiap benak murid-muridnya dan menurut saya seperti itulah makna sejati dari ‘guru besar’.

Selamat jalan Pak Farid, semoga Bapak dapat menghadap Sang Pencipta dalam keadaan damai dan keluarga yang ditinggalkan diberi ketabahan. Kami akan selalu mengingat cerita dan semangat Bapak dalam kehidupan kami di dunia informatika.

Do it yourself CCTV/Surveilance from scratch

pebbie — Sun, 18 Jan 2009 17:47:53 +0000

Terinspirasi dengan tulisan tentang memasang sendiri sistem cctv dengan zoneminder saya jadi iseng membuat sistem serupa (bukan memasang lagi, ini membuat). Awalnya memang tidak berniat untuk ke arah sana, hanya ingin melakukan interpretasi citra dengan memanfaatkan webcam, tapi kemudian terhambat karena framerate yang lambat ketika awal-awal mencoba.

Pendahuluan

Oke, mari dimulai percobaannya. Spesifikasi kita kali ini adalah membuat sistem cctv yang mengambil gambar dari webcam dan dapat diakses melalui web server (ujung yang cukup generik, bisa diperluas dengan membuat mobile client yang mengakses http ). Selain itu tiap gambar diarsipkan sehingga memungkinkan untuk pemrosesan yang tidak membutuhkan tenggat. Agar lebih sederhana, kita akan mendekomposisi sistem yang kita buat menjadi 3 modul :

program pengakses webcam (GUI).
program perantara (CLI, bisa jadi opsional, nanti akan dijelaskan alasannya).
halaman web (HTML+PHP)

Alat dan Bahan
Berikutnya alat yang diperlukan :

web server (saya menggunakan xampp 1.5). modul yang diperlukan sebetulnya hanya apache dan php. database tidak diperlukan saat ini untuk menyederhanakan program.
compiler delphi (anda bisa menggunakan apapun sebetulnya, tapi saya menggunakan delphi)
A win32 machine. ya ya.. saya pakai API Windows tapi nggak pakai DirectX, cuma pakai VFW (Video for Windows). stok lama.
Webcam. USB atau apapun. sekali-lagi, demi kesederhanaan, saya hanya menggunakan 1 webcam (default) yang ada di laptop.

Arsitektur sistem
gambaran umum sistem bisa dilihat dalam gambar berikut.

Program 1,2, dan 3 sesuai dengan penjelasan di awal.

Program 1

Program ini dibuat menggunakan delphi dan terdiri dari 1 modul webcam dan 1 form. berikut ini kode untuk unit pengakses webcam (konstanta dan prosedur sudah di-dietkan supaya hanya mengandung yang diperlukan saja).

unit _cam;

interface

uses
  Windows,
  Messages,
  Controls,
  ExtCtrls;

const
  WM_CAP_START      = WM_USER;
  WM_CAP_DRIVER_CONNECT = WM_CAP_START + 10;
  WM_CAP_DRIVER_DISCONNECT = WM_CAP_START + 11;
  WM_CAP_SAVEDIB    = WM_CAP_START + 25;
  WM_CAP_COPY       = WM_CAP_START + 30;
  WM_CAP_SET_SCALE  = WM_CAP_START + 53;
  WM_CAP_SET_PREVIEW = ( WM_CAP_START + 50 );
  WM_CAP_SET_OVERLAY = ( WM_CAP_START + 51 );
  WM_CAP_SET_PREVIEWRATE = ( WM_CAP_START + 52 );

type
  TCam = class
  protected
    hWndC: HWND;
    FIsCapturing: Boolean;
    procedure BeginCapture( Container: TWinControl );
    procedure EndCapture;
  public
  	constructor Create( Container: TWinControl );
    destructor Free;
  	property Handle:HWND read hwndc;
  	property Capturing:boolean read FIsCapturing;
    procedure CopyToClipboard;
    procedure SaveToFile( filename: string );
  end;

implementation

uses
  ClipBrd;

function capCreateCaptureWindowA( lpszWindowName: PCHAR;
  dwStyle: longint;
  x: integer;
  y: integer;
  nWidth: integer;
  nHeight: integer;
  ParentWin: HWND;
  nId: integer ): HWND; stdcall external
'AVICAP32.DLL';

{ TCam }

procedure TCam.BeginCapture( Container: TWinControl );
begin
  hWndC := capCreateCaptureWindowA( 'Capture Window',
    WS_CHILD or WS_VISIBLE,
    Container.Left,
    Container.Top,
    Container.Width,
    Container.Height,
    Container.Handle,
    0 );
  if hWndC <> 0 then begin
    SendMessage( hWndC, WM_CAP_DRIVER_CONNECT, 0, 0 );
    SendMessage( hWndC, WM_CAP_SET_SCALE, 1, 0 );
    SendMessage( hWndC, WM_CAP_SET_PREVIEWRATE, 24, 0 );
    SendMessage( hWndC, WM_CAP_SET_PREVIEW, 1, 0 );
    FIsCapturing := True;
  end;
end;

procedure TCam.CopyToClipboard;
begin
	if hWndC <> 0 then begin
    SendMessage( hwndc, WM_CAP_COPY, 0, 0 );
  end;
end;

procedure TCam.EndCapture;
begin
	FIsCapturing := False;
	if hWndC <> 0 then begin
    SendMessage( hWndC, WM_CAP_DRIVER_DISCONNECT, 0, 0 );
    hWndC := 0;
  end;
end;

procedure TCam.SaveToFile( filename: string );
begin
  if hWndC <> 0 then begin
    SendMessage( hWndC,
      WM_CAP_SAVEDIB,
      0,
      longint( pchar( filename ) )
      );
  end;
end;

constructor TCam.Create(Container: TWinControl);
begin
	inherited Create;
	BeginCapture(Container);
end;

destructor TCam.Free;
begin
	EndCapture;
end;

end.

sedangkan kode untuk formnya adalah sebagai berikut. satu hal yang perlu diperhatikan. form berikut saya buat StayOnTop karena kalau di-minimize atau tersembunyi, gambarnya tidak akan di-update. Hal lainnya adalah pengaturan webcam agar bisa didapat framerate yang tinggi (di laptop saya setelah beberapa fitur dimatikan seperti low-light boost dan color boost baru bisa berjalan di 25 FPS).

//unit1.dfm
object Form1: TForm1
  Left = 192
  Top = 107
  BorderStyle = bsDialog
  Caption = 'Form1'
  ClientHeight = 241
  ClientWidth = 321
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsStayOnTop
  OldCreateOrder = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 320
    Height = 240
    BevelOuter = bvNone
    Color = clBlack
    TabOrder = 0
  end
  object _proc: TTimer
    Enabled = False
    Interval = 48
    OnTimer = _procTimer
    Left = 56
    Top = 16
  end
end

dan code-behind-nya adalah sebagai berikut.

unit Unit1;

interface
uses
  Windows,
  Messages,
  SysUtils,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  ExtCtrls,
  MPlayer,
  StdCtrls,
  citra,
  Spin,
  ClipBrd,
  _cam,
  jpeg,
  inifiles;

type
  TForm1 = class( TForm )
    Panel1: TPanel;
    _proc: TTimer;
    procedure FormCreate( Sender: TObject );
    procedure FormCloseQuery( Sender: TObject; var CanClose: Boolean );
    procedure _procTimer( Sender: TObject );
  private
    cam: TCam;
    bmp: TBitmap;
    jpg: TJpegImage;
    ini: TIniFile;
  public
  end;

var
  Form1             : TForm1;
  capmode           : integer;
  datapath          : string;

implementation
{$R *.DFM}

{ TForm1 }

procedure TForm1.FormCreate( Sender: TObject );
begin
  ini := TIniFile.Create( extractfilepath( application.ExeName ) + 'config.ini' );
  capmode := ini.ReadInteger( 'server', 'mode', 0 );
  if capmode = 2 then begin
    datapath := ini.ReadString( 'server', 'datadir', 'data' );
    if pos( ':', datapath ) = 0 then datapath := extractfilepath( application.ExeName ) + datapath;
  end;
  jpg := TJpegImage.Create;
  jpg.CompressionQuality := ini.ReadInteger('server','jpegquality', 40);
  _proc.Interval := 1000 div ini.ReadInteger('server', 'fps', 5);
  bmp := TBitmap.Create;
  if not Assigned( cam ) then cam := TCam.Create( Panel1 );
  _proc.Enabled := cam.Capturing;
end;

procedure TForm1.FormCloseQuery( Sender: TObject; var CanClose: Boolean );
begin
  CanClose := False;
  _proc.Enabled := false;
  jpg.Free;
  bmp.Free;
  if Assigned( cam ) then cam.Free;
  CanClose := True;
end;

procedure TForm1._procTimer( Sender: TObject );
begin
  if cam.Capturing then begin
    if capmode > 0 then begin
      cam.CopyToClipboard;
      if capmode = 2 then begin
        bmp.Assign( clipboard );
        jpg.Assign( bmp );
        jpg.SaveToFile( format( '%s\%.12d.jpg', [datapath, gettickcount] ) );
      end;
    end;
  end;
end;

end.

Program di atas akan menyimpan hasil rekaman dari webcam ke dalam file dalam format JPEG yang kualitasnya dapat diparameterkan sehingga ukuran file keluarannya dapat juga diatur. Nama file rekaman menggunakan gettickcount yang dikodekan menjadi string sepanjang 12 digit. Penggunaan angkan dimaksudkan agar memudahkan dalam mencari file terakhir tanpa harus menggunakan database. Untuk sementara semua hasil rekaman dari webcam disimpan dalam satu direktori (datadir). Selanjutnya bisa menggunakan struktur direktori yang mencerminkan tanggal (YYYY\MM\DD\) untuk memudahkan pengarsipan.
program di atas menggunakan file konfigurasi dengan nama config.ini yang lokasinya sama dengan lokasi executable.

[server]
#mode capture
#0:no save
#1:save to clipboard
#2:save to file (jpeg)
mode=2
datadir=data
jpegquality=40
fps=10

konfigurasi di atas akan membuat program webcam menyimpan 10 gambar tiap detik dengan kualitas kompresi sekitar 40 (untuk resolusi webcam 320×240 membutuhkan sekitar 5KB). Dari hasil hitung-hitungan. kalau 1 detik 10 gambar dikali 5 KB jadi 50. satu jam perlu 180MB. satu hari perlu 4GB. sedangkan 1 tahun perlu ~1.5TB. angka-angka tersebut adalah gambaran kasar dengan asumsi tiap detik direkam (biarpun tidak ada perubahan). untuk analisis lebih lanjut (membuat gambar-gambar yang tidak berubah) bisa dilakukan dengan membuat program lain yang bekerja pada direktori tersebut ^_^.

Web Interface

Berikutnya adalah program nomor 3 yaitu halaman web yang terdiri dari dua file yaitu index.html dan getimg.php.

 '.$t);
if (file_exists($t)){
	$result = file_get_contents($t);
	$img = urldecode(str_replace('%0D%0A', '', urlencode($result)));
	header('Content-type:image');
	echo file_get_contents($img);
	unlink($t);
}
?>

Perantara

Yang terakhir adalah program perantara. Ada alasan khusus mengapa saya membuat program perantara dibanding menjadikannya langsung dalam skrip PHP yaitu yang pertama terpikir. hehehe.. persoalannya adalah mengambil file terakhir (timestamp terbesar) dalam direktori yang membutuhkan iterasi ke tiap file (silakan coba buat versi skrip php-nya dan bandingkan dengan versi pemanggilan command-line).

program cctv;
{$APPTYPE CONSOLE}

uses
  SysUtils;

var
	tdir : string;

procedure pandu;
begin
  writeln( 'ERR: use cctv ' );
end;

function getlastfile( dir: string ): string;
var
  sr                : TSearchRec;
  FileAttrs         : integer;
  tmp               : string;
  mask              : string;
  cur, last         : longint;
begin
  result := '';
  last := -1;
  mask := '*.*';
  FileAttrs := faAnyFile or faDirectory;
  if FindFirst( dir + '\' + mask, FileAttrs, sr ) = 0 then begin
    repeat
      if ( Pos( '.', sr.Name ) <> 1 ) then begin
        tmp := dir + '\' + sr.Name;
        trystrtoint( changefileext( sr.Name, '' ), cur );
        if cur > last then begin
          result := tmp;
          last := cur;
        end;
      end;
    until FindNext( sr ) <> 0;
    FindClose( sr );
  end;
end;

begin
  if ParamCount < 1 then pandu;
  tdir := getlastfile( paramstr( 1 ) );
  if tdir <> '' then writeln( tdir );
end.

Penutup
Akhirnya selesai juga. pesan terakhir dari saya, tidak ada skinsyut hasil program karena subjek yang dijadikan skrinsyutnya (saya) sudah kusut . silakan dicoba sendiri, kalau ada yang nggak berhasil silakan komentar di sini (belum tentu saya bantu juga sih ).

Percobaan Transplantasi DLL

pebbie — Thu, 15 Jan 2009 17:36:41 +0000

Masih penasaran gara-gara gagal instalasi MS-MPI di laptop yang notabene pake XP Home Edition. Kalau lihat dari errornya sih cuma gara-gara nggak ada 1 fungsi di modul kernel32.dll yang bernama GetProcessIdOfThread. Berhubung di situs download HPC SDK tercatat bisa digunakan di XP Profesional jadinya penasaran untuk mengkanibal DLL dari XP Pro ke XP Home.

Ternyata di Kernel32.dll dari XP Pro juga nggak ada fungsi GetProcessIdOfThread.

wah, microsoft bo’ong nih.. katanya bisa Microsoft Windows XP Professional Edition 32-bit…

Masih belum puas, coba ‘pinjam’ dari Vista, pinjem dari rekan kerja di kantor yang laptopnya pake vista. Eh, ga taunya nggak cukup sama kernel32.dll . kernel32 ternyata bergantung ke ntdll.dll yang beda sama di xp home. ya sudah jadinya coba salin sekalian. Berhubung kernel32.dll lagi dipakai sama program lain, jadinya file kernel32.dll yang ada di C:\Windows\System32 nggak bisa dihapus.. paling juga di-rename trus bikin kernel32.dll yang baru hasil transplantasi dari Vista. Cara ini pun masih belum berhasil, pasalnya Windows punya mekanisme recovery yang otomatis mengganti file sistem miliknya dengan cadangannya. Nggak mau kalah, dicari sumber cadangannya lah.. yang akhirnya ketemu.. versi kernel32.dll terakhir yang dipake ada di direktori servicepack setelah ada beberapa versi dari Windows Update.

Haha.. beres, ternyata betul.. kalau isi direktori cadangan itu diubah maka nggak ada cadangan yang lain. langkah selanjutnya .. restart windows untuk melihat efeknya.

..
..
….

CELAKA!!! Windows-nya nggak mau masuk ke layar biru, cuma sampai gambar windows sama progress bar.. udah gitu restart lagi-restart lagi otomatis. Biarpun dicoba di-disable pake Safe Mode with Command Prompt pun sama.. mungkin karena biarpun command prompt, tetep load modul ntdll.dll sama kernel32.dll.

waduh, lupa bikin restore point sebelumnya. walaupun kalo dipikir-pikir tiap update baru kan bikin restore point tapi tetep aja nggak bisa masuk ke windows. Langsung bongkar-bongkar koleksi CD nyari CD Instalasi Windows XP yang ternyata nggak ketemu. Akhirnya kembali ke kantor untuk ambil DVD Instalasi dari MSDN yang ada isinya XP Home Edition SP2 dan bikin Recovery CD di desktop.

Setelah berhasil masuk command prompt, kondisi saat ini file kernel32.dll nggak ada, naah.. coba pakai kernel32.dll sama ntdll.dll dari vista dan berujung gagal lagi. yasudah deh, karena sudah malam (main-mainnya udahan) langsung dikembalikan pakai file dll aslinya dan sekarang sudah bisa lagi posting blog pakai laptop.

fiuh.. malam yang menegangkan..