上海道寧信息科技有限公司
您現(xiàn)在的位置: 上海道寧信息科技有限公司>>加密控件>> Sapphire Encrypt Utility
Sapphire Encrypt Utility
參考價(jià): | 面議 |
- 產(chǎn)品型號
- 品牌
- 其他 廠商性質(zhì)
- 所在地
訪問次數(shù):256更新時(shí)間:2021-09-15 10:27:50
聯(lián)系我們時(shí)請說明是智能制造網(wǎng)上看到的信息,謝謝!
產(chǎn)品簡介
產(chǎn)品介紹
-
通過Sapphire Encrypt utility,您可以在您的移動通訊設(shè)備上加密和解密純文本內(nèi)容。您可以用密碼密鑰進(jìn)行加密,并在設(shè)備驅(qū)動器或者服務(wù)器上解密,反之亦然。
特征綜述 About Feature
通過以下功能,Sapphire Encrypt Utility可以輕松得進(jìn)行數(shù)據(jù)加密:
- 使用的密碼密鑰對文本字符進(jìn)行加密
- 使用的密碼密鑰對文本字符進(jìn)行解密
- 使用的密碼密鑰對文件進(jìn)行加密
- 使用的密碼密鑰對文件進(jìn)行解密
該操作是如此簡單的,您只需在您的程序中聲明相應(yīng)的DLL函數(shù),然后在您需要的地方調(diào)用即可。以下是一個(gè)VB.NET的示范程序,用于演示如何對純文本字符進(jìn)行加密和解密。- 加密文本
Dim sEncrypted As Integer
Dim sNew As String
' Fill sNew to force the string variable to a sufficient size for the returned string
sNew = Space(1000)
sEncrypted = sEncryptText(txtOriginal.Text, sNew, txtPassword.Text, _
1234567890, True)
txtEncrypted.Text = StripString(sNew)
If sEncrypted = 0 Then
MsgBox("Encrypted")
Else
MsgBox("Problem")
End If - 解密文本
Dim sDecrypted As Integer
Dim sNew As String
' Fill sNew to force the string variable to a sufficient size for the returned string
sNew = Space(1000)
sDecrypted = sDecryptText(txtEncrypted.Text, sNew, txtPassword.Text, _
1234567890, True)
txtDecrypted.Text = StripString(sNew)
If sDecrypted = 0 Then
MsgBox("Decrypted")
Else
MsgBox("Problem")
End If