加密：

Private Function JiaMi(ByVal varPass As String) As String "引數varPass是需要加密的文字內容

Dim varJiaMi As String * 20

Dim varTmp As Double

Dim strJiaMi As String

Dim I

For I = 1 To Len(varPass)

varTmp = AscW(Mid$(varPass, I, 1))

varJiaMi = Str$(((((varTmp * 1.5) / 5.6) * 2.7) * I))

strJiaMi = strJiaMi & varJiaMi

Next I

JiaMi = strJiaMi

End Function

解密函式：

Private Function JieMi(ByVal varPass As String) As String "引數varPass是需要解密的密文內容

Dim varReturn As String * 20

Dim varConvert As Double

Dim varFinalPass As String

Dim varKey As Integer

Dim varPasslenth As Long

varPasslenth = Len(varPass)

For I = 1 To varPasslenth / 20

varReturn = Mid(varPass, (I - 1) * 20 + 1, 20)

varConvert = Val(Trim(varReturn))

varConvert = ((((varConvert / 1.5) * 5.6) / 2.7) / I)

varFinalPass = varFinalPass & ChrW(Val(varConvert))

Next I

JieMi = varFinalPass

End Function

擴充套件資料：

注意事項

編寫加密程式，將使用者輸入的一個英文句子加密為加密字串，然後輸出加密字串。假設句子長度不超過100個字元。

根據給定的句子加密函式原型SentenceEncoding，編寫函式SentenceEncoding呼叫給定的字元加密函式CharEncoding完成句子加密。

然後，編寫主程式提示使用者輸入英文句子，然後呼叫函式SentenceEncoding對句子加密，最後輸出加密後的句子。

字元加密規則為大寫字母和小寫字母均加密為其補碼, 我們定義ASCII碼值相加為’A’+’Z’即155的兩個大寫字母互為補碼，ASCII碼值相加為’a’+’z’即219的兩個小寫字母互為補碼。

空格用@代替,句號以#代替,其它字元用句點代替。

函式原型：

void SentenceEncoding(char *soure,char *code);

功能：對待加密字串source加密後儲存加密字串到code.

引數：char *soure，指向待加密句子的字串指標；

char *code 指向加密字串的字串指標；

字元加密函式程式碼。