Encrypt-Decrypt menggunakan Capicom Pada Visual Basic 6.0

Kepada semua pembaca, saya akan berkongsi tentang ecrypt & decrypt menggunakan Capicom. Sebelum kita memulakan bahagian coding, say akan menerangkan apakah ia Capicom. Capicom adalah ActiveX control yang dibuat oleh Microsoft untuk membantu mengetahui fungsi set yang telah dipilih dari Microsoft Cryptographic Application Programming Interface (CryptoAPI) melalui Microsoft Component Object Model (COM). Ia untuk enable semua persekitaran yang boleh support ActiveX untuk guna Microsoft Cryptographic technologies, ia termasuklah web pages yang dibuka dengan Microsoft Internet Explorer atau dari web browser yang menygokong ActiveX.

CAPICOM boleh juga untuk penanda data digital, memeriksa , mengenalpasti dan memaparkan digital signature atau digital certificate, tambah atau buang certificates kepada tau dari penyimpanan certificate, dan akhir sekali,  encrypt atau decrypt data.

CAPICOM Versi 2.1.0.2, adalah yang terbaru dan versi yang terakhir dari CAPICOM, ia boleh support Windows Vista. Tetapi, Microsoft telah mengumumkan bahawa CAPICOM tidak lagi dibangunkan. Microsoft menyarankan supaya menukar CAPICOM dengan .NET Framework’s X509 Cryptographic Classes dan nombor dari alternative lain.

Ok, jom buat code. dalam tutorial ini, kita perlu ada Capicom.dll, biasanya berada pada C:\Windows\System32\Capicom.dll. Add Capicon pada vb project (Project -> Reference -> Browse and add capicom.dll). Selepas kita add capicom pada visual basic project, add 3 TextBoxs (name => tbPlain, tbHash, tbSecret, 3 Labels and 2 Command Button (name => btnEnc, btnDecrypt) pada form. Dan copy & paste code dibawah pada form

Private Sub btnDecrypt_Click()
On Error GoTo errHDL
Dim sPlain As String

If tbHash.Text <> “” And tbSecret.Text <> “” Then
sPlain = DecryptString
If sPlain <> “” Then
tbPlain.Text = sPlain
tbHash.Text = “”
tbSecret.Text = “”
End If
End If
Exit Sub
errHDL:
MsgBox Err.Number & ” – ” & Err.Description
End Sub

Private Sub btnEnc_Click()
On Error GoTo errHDL
Dim sHash As String

If tbPlain.Text <> “” And tbSecret.Text <> “” Then

sHash = EncryptString(Trim(tbPlain.Text))

If sHash <> “” Then
tbHash.Text = sHash
tbPlain.Text = “”
tbSecret.Text = “”
End If

End If
Exit Sub
errHDL:
MsgBox Err.Number & ” – ” & Err.Description
End Sub

Private Function DecryptString() As String
Dim oDecrypt As New EncryptedData
Dim sRet As String
On Error GoTo errHDL
oDecrypt.SetSecret (Trim(tbSecret.Text))
oDecrypt.Decrypt (tbHash.Text)
sRet = oDecrypt.Content
DecryptString = sRet
Exit Function
errHDL:
MsgBox Err.Number & ” – ” & Err.Description
Set oDecrypt = Nothing
End Function

Private Function EncryptString(ByVal sValue As String) As String
Dim oEncrypt As New EncryptedData
Dim sRet As String
On Error GoTo errHDL

oEncrypt.Algorithm = CAPICOM_ENCRYPTION_ALGORITHM_AES
oEncrypt.Algorithm.KeyLength = CAPICOM_ENCRYPTION_KEY_LENGTH_MAXIMUM
oEncrypt.SetSecret (tbSecret)
oEncrypt.Content = sValue
sRet = oEncrypt.Encrypt(CAPICOM_ENCODE_BASE64)
EncryptString = sRet

Exit Function
errHDL:
MsgBox Err.Number & ” – ” & Err.Description
Set oEncrypt = Nothing
End Function

Run project dengan tekan F5 pada keyboard.