QR Code Testing Updates

Aku baru je test satu lagi projek QRCode, ZXing. Actually projek ni adalah projek untuk baca semua jenis barcode. Aku dah test dengan beberapa jenis QRCode yang aku dah generate. Bagusnya dia boleh detect QRCode dalam semua arah walaupun telah dirotate.

Dalam post aku sebelum ni, projek tu x boleh recognize kalau QRcode tu dah dirotate beberapa degree.


Kalau nak try, boleh gi web ni. Ader link untuk online encode & decode.
http://code.google.com/p/zxing/

GWT Ext Grid Remote Paging + PHP JSON

Aku tengah belaja cara nak pakai Google Web Toolkit sendiri lepas Jimin tunjuk kat aku projek dia yang pakai GWT ni. Maklumat lanjut pasal GWT ni boleh rujuk kat sini.

http://code.google.com/webtoolkit/
http://extjs.com
http://www.gwt-ext.com
http://code.google.com/p/cypal-studio/


Masa aku try, aku berdepan dengan satu masalah. Macam mana nak buat remote paging & sort remotely pakai JSON. Dekat sehari aku try baru berjaya. Masa aku deploy error ada popup message Error:Expected";". Rupanya, GWT ni dia pakai Callback untuk JSON dia.

online demo kat sini
http://www.gwt-ext.com/demo/#remotePagingGrid

Full URL yang dipanggil oleh GWT setiap kali ke page seterusnya adalah seperti di bawah:
http://extjs.com/forum/topics-browse-remote.php?start=25&limit=25&sort=lastpost&dir=DESC&_dc=1203168761468&callback=stcCallback1002

Kalau dalam PHP kena buat macama ni.

$arr = array('totalCount'=>"4",'topics'=>$data);
$jsonstr= json_encode($arr);
print $_GET['callback']."(".$jsonstr.");";
?>

AES Random IV

Sebenarnya lama dah aku nak try buat random IV untuk Rjindael Encryption ni. Actually Jimin pernah tunjuk kat aku tapi tu dah setahun yang lepas rasanya. Mostly, sample kat internet dia buat ambik dari Hash (SHA atau MD5) dari salt. 32 byte pakai untuk key , 16 byte pakai untuk IV.

Semalam aku sempat try sambil2 aku tolong staf aku buat secure config.

Apa kejadahnya IV ni?

IV ni sebenarnya adalah Initiallized Vector. IV ni akan menentukan output encryption. kalau pakai statik IV, password yang sama dan data yang sama, hasil output akan konsisten je setiap kali encrypt. Kalau pakai random IV ni, password sama dan data yang sama, hasil outputnya akan berbeza setiap kali encrypt. Jadi, ini menjadikan ia lebih susah untuk dihack(aku rasala). Tambah2 lagi kalau digunakan dalam watermarking atau steganography.

Nak cerita lebih2 pun payah, takut x paham pulak. aku letak code dia kat sini. Korang try la sendiri kalau nak la. X nak sudah..... hahahhahah...


Imports System.Security.Cryptography
Imports System.IO

Public Class clsAESJCE
Public Shared Function Encrypt(ByVal data() As Byte, ByVal key As String) As Byte()
Dim ms As New MemoryStream
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim SHA As New SHA512Managed

Dim keybyte() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(key.ToCharArray)
Dim HashByte() As Byte = SHA.ComputeHash(keybyte)

Dim keys(31) As Byte
Dim IV(15) As Byte

System.Array.Copy(HashByte, 0, keys, 0, 32)
'System.Array.Copy(HashByte, 32, IV, 0, 16)

AES.KeySize = 256
'AES.BlockSize = 256
AES.Mode = CipherMode.CBC
AES.Padding = PaddingMode.PKCS7
AES.GenerateIV()

Dim newdata() As Byte
Try
Dim objCryptoStream As CryptoStream
objCryptoStream = New CryptoStream(ms, AES.CreateEncryptor(keys, IV), CryptoStreamMode.Write)
objCryptoStream.Write(data, 0, data.Length)
objCryptoStream.FlushFinalBlock()

newdata = ms.ToArray()
objCryptoStream.Close()
ms.Close()
Catch ex As Exception

End Try

Return newdata
End Function


Public Shared Function Decrypt(ByVal data() As Byte, ByVal key As String) As Byte()

Dim ms As New MemoryStream(data)
Dim AES As New System.Security.Cryptography.RijndaelManaged
Dim SHA As New SHA512Managed

Dim keybyte() As Byte = System.Text.ASCIIEncoding.ASCII.GetBytes(key.ToCharArray)
Dim HashByte() As Byte = SHA.ComputeHash(keybyte)

Dim keys(31) As Byte
Dim IV(15) As Byte

System.Array.Copy(HashByte, 0, keys, 0, 32)
'System.Array.Copy(HashByte, 32, IV, 0, 16)

AES.KeySize = 256
'AES.BlockSize = 256
AES.Mode = CipherMode.CBC
AES.Padding = PaddingMode.PKCS7
AES.GenerateIV()

Dim newdata(data.Length - 1) As Byte
Dim iRead As Integer = -1
Try
Dim objCryptoStream As CryptoStream
objCryptoStream = New CryptoStream(ms, AES.CreateDecryptor(keys, IV), CryptoStreamMode.Read)

iRead = objCryptoStream.Read(newdata, 0, newdata.Length)

objCryptoStream.FlushFinalBlock()
objCryptoStream.Close()
ms.Close()
Catch ex As Exception

End Try
ReDim data(iRead - 1)
System.Array.Copy(newdata, 0, data, 0, iRead)
Return data
End Function
End Class