- Attribute VB_Name = "mod_Crypto"
- '#######################################################
- '################## XOR Crypto Module ##################
- '######## Originally Created by Philippe Huysmans ######
- '########### And Improved by Guillaume Huysmans ########
- '#######################################################
- '############# Created the January 13, 2007 ############
- '#######################################################
- '## URL : http://www.vbfrance.com/code.aspx?ID=41187 ###
- '#######################################################
-
- Option Explicit
-
- Public Function Crypto(Text As String, Key As String) As String
- Dim i As Integer
- Dim tmp As String
- Dim pK As Integer
- Dim lT As Integer, lK As Integer
- Dim aT As Integer, aK As Integer
- lT = Len(Text)
- lK = Len(Key)
- For i = 1 To lT
- pK = pK + 1
- If pK > lK Then pK = 1
- aT = Asc(Mid(Text, i, 1))
- aK = Asc(Mid(Key, pK, 1))
- tmp = tmp & Chr(aT Xor aK)
- Next i
- Crypto = tmp
- End Function
-
- Public Sub CryptoFile(SourceFile As String, Key As String, DestFile As String)
- Dim i As Integer
- Dim pK As Integer
- Dim lT As Integer, lK As Integer
- Dim aT As Integer, aK As Integer
- mod_File.ReadFile SourceFile
- lT = UBound(mod_File.bytes)
- lK = Len(Key)
- For i = 1 To lT
- pK = pK + 1
- If pK > lK Then pK = 1
- aT = mod_File.bytes(i)
- aK = Asc(Mid(Key, pK, 1))
- mod_File.bytes(i) = (aT Xor aK)
- Next i
-
- '(Re)Write the file
- mod_File.WriteFile DestFile
- End Sub
Attribute VB_Name = "mod_Crypto"
'#######################################################
'################## XOR Crypto Module ##################
'######## Originally Created by Philippe Huysmans ######
'########### And Improved by Guillaume Huysmans ########
'#######################################################
'############# Created the January 13, 2007 ############
'#######################################################
'## URL : http://www.vbfrance.com/code.aspx?ID=41187 ###
'#######################################################
Option Explicit
Public Function Crypto(Text As String, Key As String) As String
Dim i As Integer
Dim tmp As String
Dim pK As Integer
Dim lT As Integer, lK As Integer
Dim aT As Integer, aK As Integer
lT = Len(Text)
lK = Len(Key)
For i = 1 To lT
pK = pK + 1
If pK > lK Then pK = 1
aT = Asc(Mid(Text, i, 1))
aK = Asc(Mid(Key, pK, 1))
tmp = tmp & Chr(aT Xor aK)
Next i
Crypto = tmp
End Function
Public Sub CryptoFile(SourceFile As String, Key As String, DestFile As String)
Dim i As Integer
Dim pK As Integer
Dim lT As Integer, lK As Integer
Dim aT As Integer, aK As Integer
mod_File.ReadFile SourceFile
lT = UBound(mod_File.bytes)
lK = Len(Key)
For i = 1 To lT
pK = pK + 1
If pK > lK Then pK = 1
aT = mod_File.bytes(i)
aK = Asc(Mid(Key, pK, 1))
mod_File.bytes(i) = (aT Xor aK)
Next i
'(Re)Write the file
mod_File.WriteFile DestFile
End Sub