如何對字符串進行加密解密

2019-11-18 17:51:27

字體：大中小

來源：轉載

供稿：網友

本人在操作數(shù)據(jù)庫時，考慮到該數(shù)據(jù)庫還有可能被其他軟件打開，所以想能否有另外一種方式把數(shù)據(jù)庫中數(shù)據(jù)進行加密呢，也
就是說，即使別人利用其他的軟件打開了該數(shù)據(jù)庫，看到的也是一片亂碼，根本不知道數(shù)據(jù)庫進而是什么內容。出于這種情況，本人利用VB中自帶
RND（）函數(shù)的功能編寫了如下加密解密方法。
當RND（）的參數(shù)（我們稱它為種子）為負值時，同一種子產生同一個隨機序列，同時VB還具有強大的二進制技術功能。
這樣我們可以按以下方法實現(xiàn)字符串內容的加密解密。

源程序如下：

PublicFunctionStringEnDeCodecn(strSourceAsString,MA)AsString
'該函數(shù)只對中西文起到加密作用
'參數(shù)為：源文件，密碼
OnErrorGoToErrEnDeCode
DimXAsSingle
DimCHARNUMAsLong,RANDOMINTEGERAsInteger
DimSINGLECHARAsString*1
DimstrTmpAsString
IfMA<0Then
MA=MA*(-1)
EndIf
X=Rnd(-MA)
Fori=1ToLen(strSource)Step1'取單字節(jié)內容
SINGLECHAR=Mid(strSource,i,1)
CHARNUM=Asc(SINGLECHAR)
g:RANDOMINTEGER=Int(127*Rnd)
IfRANDOMINTEGER<30OrRANDOMINTEGER>100ThenGoTog
CHARNUM=CHARNUMXorRANDOMINTEGER
strTmp=strTmp&Chr(CHARNUM)
Nexti
StringEnDeCodecn=strTmp
ExitFunction
ErrEnDeCode:
StringEnDeCodecn=""
MsgBoxErr.Number&"/"&Err.Descr如果要解密的話，只須鍵入以下語句：
tmp1=stringendecn(tmp,75)

如有不妥之處，請與我聯(lián)系：
Flea_cyp@163.com->