ini文件操作

Question

怎樣對ini文件進行加密，怎樣閱取加密的ini文件，望大俠以例告知，謝謝！

Answer 1

找個加密算法不就成了。對ini的加密和一般文件加密一樣，都是文本文件嘛

Answer 2

給你一示范加密：
處理加密
Private Function Encrypt(varPass As String, varFile As String)
　　If Dir(varFile) <> "" Then: Kill varFile
　　Dim varEncrypt As String * 50
　　Dim varTmp As Double
　　Open varFile For Random As #1 Len = 50　　For I = 1 To Len(varPass)
　　　　varTmp = Asc(Mid$(varPass, I, 1))
　　　　varEncrypt = Str$(((((varTmp * 1.5) / 2.1113) * 1.111119) * I))
　　　　Put #1, I, varEncrypt
　　Next I
　　Close #1
End Function處理解密
Private Function Decrypt(varFile As String) As String
　　Open varFile For Random As #1 Len = 50
　　Dim varReturn As String * 50
　　Dim varConvert As Double
　　Dim varFinalPass As String
　　Dim varKey As Integer　　For I = 1 To LOF(1) / 50
　　　　Get #1, I, varReturn
　　　　varConvert = Val(Trim(varReturn))
　　　　varConvert = ((((varConvert / 1.5) * 2.1113) / 1.111119) / I)
　　　　varFinalPass = varFinalPass & Chr(varConvert)
　　Next I
　　Decrypt = varFinalPass
　　Close #1
End Function
使用實例：
Private Sub Command1_Click()
　　If Trim(Text3.Text) = "" Then
　　　　MsgBox "請先輸入加密檔名稱", 16, "錯誤"
　　　　Exit Sub
　　End If
　　Encrypt Text1.Text, Text3.Text　　 '將 Text1 中的字存到 Text3 檔案中
End SubPrivate Sub Command2_Click()
　　If Dir(Trim(Text3.Text)) = "" Or Trim(Text3.Text) = "" Then
　　　　MsgBox "加密檔名稱錯誤", 16, "錯誤"
　　　　Exit Sub
　　End If
　　Text2.Text = Decrypt(Text3.Text)　 '將從 Text3 檔案中讀出的字轉譯放回 Text2
End Sub

Answer 3

我是把系統配置放在該文件中，然後在vb中進行閱取，不知怎樣操作加密的ini文件。

Answer 4

謝謝莫依小姐指點，我再try！請問您現在哪裡搞開發。

Answer 5

因為我在這個論壇上看到很多她的貼子，so I guess she is a miss.

Answer 6

偶現在正準備離職中。ini文件隻是一種特殊的文本文件而已。我上面的辦法對它也是有效果的。難道你非要我做一個例子出來呀:)

Answer 7

I have known a little what you gave me,and thank you for your help!where will you plan to go the next step? I think you can find a very good job according to your ability! Wish you good luck!

Answer 8

daisy8675,您給的例子雖然可加密和對密碼，但我加密後怎樣在讀取該文件的內容,你的解密隻是獲得密碼而文件的內容還是經過加密的？用vb的兩個api函數我知道怎樣閱取未加密的ini文件的內容。麻煩指點！