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.
golden goose
ReplyDeletegoyard
supreme clothing
balenciaga
goyard handbags
balenciaga shoes
goyard
golden goose sneakers
yeezy
supreme clothing