Cryptofile : utilitaire qui crypte n'importe quel fichier (xor)

Télécharger le projet
Commenter

Description

Voila ... Tout est dans le titre ...
A part une chose : Il est possible de l'utiliser en mode console ou en GUI

Syntaxe : CryptoFile.exe
/UI - Le met en mode GUI

Source / Exemple : 


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
Télécharger le projet

Codes Sources

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ghuysmans99)