VB6加密函數

❶ VB6.0通過哪些函數來實現文件加密

文件加密屬於一種演算法，他需要打開文件關閉文件讀取文件寫文件等函數實現

❷ VB 加密與解密的程序代碼

加密：

PrivateFunction 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

NextI

JiaMi = strJiaMi

EndFunction

解密函數：

PrivateFunction 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))

NextI

JieMi = varFinalPass

EndFunction

(2)VB6加密函數擴展閱讀：

注意事項

編寫加密程序，將用戶輸入的一個英文句子加密為加密字元串，然後輸出加密字元串。假設句子長度不超過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 指向加密字元串的字元串指針；

字元加密函數代碼。

❸ vb加解密

最簡單的設置一個公共變數Code和Key，前者用於存原密碼，後者用於存密鑰，自定義一個加密函數trans，用於轉換Code和Key並顯示在text2當中，解密時判定輸入的密鑰與Key是否符合，如果符合就把Code顯示出來。也就是說，這個加密函數只是用於加密轉換時，在解密的時候，可以不用它而直接讀取Code變數。代碼如下：
Dim Code As String, Key As String
Private Sub Command1_Click() '這是加密過程，加密的同時把密碼與密鑰存入變數Code和Key中
Label2.Caption = "加密後的密碼"
Code = Text1.Text
Key = Text3.Text
Text2.Text = trans(Key) & trans(Code)
End Sub
Private Sub Command2_Click() '這是解密過程
If Text3.Text <> Key Then
MsgBox "密鑰錯誤，請重新輸入"
Else
MsgBox "原密碼是：" & Code
End If
End Sub

Private Function trans(s As String) As String '這是加密函數
Dim ch As String
For i = 1 To Len(s)
If Mid(s, i, 1) Like "[A-Z]" Then
ch = ch & Chr(155 - Asc(Mid(s, i, 1)))
ElseIf Mid(s, i, 1) Like "[a-z]" Then
ch = ch & Chr(219 - Asc(Mid(s, i, 1)))
Else
ch = ch & Mid(s, i, 1)
End If
Next
trans = ch
End Function

Private Sub Form_Load() '這是所有用到的控制項
Label1.Caption = "密碼"
Label2.Caption = "加密後的密碼"
Label3.Caption = "密鑰"
Command1.Caption = "加密"
Command2.Caption = "解密"
End Sub

補充：我測試沒問題。Text2中是加密後的密文，解密時會先判定用戶在Text3中所輸入的密鑰是否與Key變數中保存的密鑰相同，如果相同的話才會顯示原來的密碼。如果出錯的話，請檢查一下這8個控制項，3個Text，3個Label，2個Command，你可以新建一個程序，然後在窗體上放上這8個控制項，都用默認屬性，然後把代碼復制過去，再運行一下試試。

❹ vb6 txt加密

Txt很難進行打開加密。只能從內容上入手。
寫入的內容進行運算或者字元轉換。
就該轉換或者運算方法記住。想用的時候，可以
運行轉換或者運算進行數據還原。

❺ 怎麼用VB給文件夾加密

1、由於採用二進制讀取文件的方式，因此加密時一般可以不考慮文件類型。
2、這里只進行一次異或運算，如有需要可以進行多次異或運算。
3、此加密演算法速度快，當然加密強度也低 ；
參考代碼如下：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

'-----------------------------------------------------------------------
'函數說明： 使用異或運算加密文件（可加密大部分文件）
'參數說明： key - 密鑰
' fileName - 普通文件名，
' encryptFileName - 加密後的文件名
'返回值： true - 成功，false - 失敗
'-----------------------------------------------------------------------
Private Function XOR_Encrypt(key As Integer, fileName As String, encryptFileName As String) As Boolean
On Error GoTo errHandler
Dim inputFileNo As Integer
Dim fileBytes() As Byte
Dim length As Long
XOR_Encrypt = False
'打開文件並保存在二進制數組中
inputFileNo = FreeFile
Open fileName For Binary As #inputFileNo
length = LOF(inputFileNo)
If length = 0 Then
MsgBox "退出加密：文件內容為空！", vbInformation, "提示"
Exit Function
End If
ReDim fileBytes(length - 1) As Byte
Get inputFileNo, , fileBytes()
Close #inputFileNo
'將該二進制數組進行異或加密
Dim i As Long
For i = LBound(fileBytes) To UBound(fileBytes)
fileBytes(i) = fileBytes(i) Xor key
Next
'將異或加密後的二進制數組保存在新的文件中
Dim outputFileNo As Integer
outputFileNo = FreeFile
Open encryptFileName For Binary As #outputFileNo
Put outputFileNo, , fileBytes
Close #outputFileNo
XOR_Encrypt = True

errHandler:
If Err.Number Then
MsgBox "加密過程中出錯：" & Err.Description, vbCritical, "錯誤"
XOR_Encrypt = False
Resume Next
End If
End Function

❻ 求一個簡單短小的VB加密演算法,每段要有解釋

Public Function StringEnDeCodecn(strSource As String, MA) As String '該函數只對中西文起到加密作用 '參數為：源文件，密碼 On Error GoTo ErrEnDeCode Dim X As Single Dim CHARNUM As Long, RANDOMINTEGER As Integer Dim SINGLECHAR As String * 1 Dim strTmp As String If MA < 0 Then MA = MA * (-1) End If X = Rnd(-MA) For i = 1 To Len(strSource) Step 1 '取單位元組內容 SINGLECHAR = Mid(strSource, i, 1) CHARNUM = Asc(SINGLECHAR) g: RANDOMINTEGER = Int(127 * Rnd) If RANDOMINTEGER < 30 Or RANDOMINTEGER > 100 Then GoTo g CHARNUM = CHARNUM Xor RANDOMINTEGER strTmp = strTmp & Chr(CHARNUM) Next i StringEnDeCodecn = strTmp Exit Function ErrEnDeCode: StringEnDeCodecn = "" MsgBox Err.Number & "\" & Err.Description End Function Private Sub Command1_Click() tmp1 = StringEnDeCodecn(Text1.Text, 75) Text2.Text = tmp1 End Sub 窗體放兩個文本框Text1,Text2和一個按鈕Command1。 使用上面代碼可以把Text1中的內容加密，顯示在Text2中。 要解密直接把Text2的內容復制到Text1中，再次點擊按鈕Command1，解密後的內容會顯示在Text2中。

❼ vb6加密解密問題

Dim i, w As Integer
Dim jiami, jmwz, jiemiwz, jiwmi As String
Private Sub Command1_Click()
For i = 1 To Len(Text.Text) Step 1
jmwz = Mid(Text.Text, i, 1)
jiami = jiami + Chr(Asc(jmwz) + 1)
Next i
i = 0
Text.Text = jiami
End Sub
Private Sub Command2_Click()
For w = 1 To Len(Text.Text) Step 1
jiemiwz = Mid(Text.Text, w, 1)
jiemi = jiemi + Chr(Asc(jiemiwz) - 1)
Next w
w = 0
Text.Text = jiemi
End Sub

❽ 求一個安全性稍高的vb6 密匙 加密/解密 演算法 100分

AES加密演算法可以自定義密鑰
很好用適合管道通訊加密
還有WEB系統的管理登陸認證

❾ 用VB實現加密解密程序。

這里只給出按鈕事件的過程，加密演算法（函數）你自己想辦法：
設加密演算法函數名為encryptxt，解密演算法函數名為unencryptxt，不帶參數。
加密窗口「生成密文」按鈕事件：
Private sub 生成密文_Click()
Frame1.Caption = encryptxt (Text1.text)
End Sub

解密窗口「解密」按鈕事件：
Private Sub 解密_Click()
Frame2.Caption = unencryptxt(Rrame1.Caption)
End Sub

❿ vb加密演算法

PrivateSubCommand1_Click()
DimtAsString
t=Text1.Text
Text2.Text=Encrypt(t,177,86)
EndSub

PrivateSubCommand2_Click()
DimtAsString
t=Text2.Text
Text4.Text=Encrypt(t,177,86)
EndSub

親，你這兩個按鈕裡面的代碼都是加密的啊！
最基本的知識你都沒有理解！哪有加密和解密都用一樣的代碼！