begin process at 2010 02 10 08:22:41
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Sécurité

 > CHECKSUM SHA1 OU MD5 D'UN FICHIER

CHECKSUM SHA1 OU MD5 D'UN FICHIER


 Information sur la source

Note :
9,5 / 10 - par 2 personnes
9,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Sécurité Source .NET ( DotNet ) Classé sous :sha1, md5, hash, sum, checksum Niveau :Débutant Date de création :05/08/2007 Date de mise à jour :05/08/2007 22:37:21 Vu :11 256

Auteur : allthew3

Ecrire un message privé
Site perso
Commentaire sur cette source (9)
Ajouter un commentaire et/ou une note

 Description

Ces 2 fonctions servent simplement à obtenir la somme de controle SHA1 ou MD5 d'un fichier sans aucune API, exe externe ou autre

Cette source est une traduction VB.net de la source de CrazyHT (http://www.csharpfr.com/codes/SOMME-MD5-FICHIER_1 1517.aspx)

Source

  • Public Function GetFileMD5CheckSum(ByVal fichier As String) As String
  • If IO.File.Exists(fichier) Then
  • Dim st As System.IO.FileStream = Nothing
  • Try
  • Dim check As New System.Security.Cryptography.MD5CryptoServiceProvider
  • st = System.IO.File.Open(fichier, System.IO.FileMode.Open, System.IO.FileAccess.Read)
  • Dim somme As Byte() = check.ComputeHash(st)
  • Dim ret As String = ""
  • For Each a As Byte In somme
  • If (a < 16) Then
  • ret += "0" + a.ToString("X")
  • Else
  • ret += a.ToString("X")
  • End If
  • Next
  • Return ret
  • Catch ex As Exception
  • Exit Try
  • Finally
  • If st IsNot Nothing Then st.Close()
  • End Try
  • Else
  • Return ""
  • End If
  • Return ""
  • End Function
  • Public Function GetFileSHA1CheckSum(ByVal fichier As String) As String
  • If IO.File.Exists(fichier) Then
  • Dim st As System.IO.FileStream = Nothing
  • Try
  • Dim check As New System.Security.Cryptography.SHA1CryptoServiceProvider
  • st = System.IO.File.Open(fichier, System.IO.FileMode.Open, System.IO.FileAccess.Read)
  • Dim somme As Byte() = check.ComputeHash(st)
  • Dim ret As String = ""
  • For Each a As Byte In somme
  • If (a < 16) Then
  • ret += "0" + a.ToString("X")
  • Else
  • ret += a.ToString("X")
  • End If
  • Next
  • Return ret
  • Catch ex As Exception
  • Exit Try
  • Finally
  • If st IsNot Nothing Then st.Close()
  • End Try
  • Else
  • Return ""
  • End If
  • Return ""
  • End Function
Public Function GetFileMD5CheckSum(ByVal fichier As String) As String
        If IO.File.Exists(fichier) Then
            Dim st As System.IO.FileStream = Nothing
            Try
                Dim check As New System.Security.Cryptography.MD5CryptoServiceProvider
                st = System.IO.File.Open(fichier, System.IO.FileMode.Open, System.IO.FileAccess.Read)
                Dim somme As Byte() = check.ComputeHash(st)
                Dim ret As String = ""
                For Each a As Byte In somme
                    If (a < 16) Then
                        ret += "0" + a.ToString("X")
                    Else
                        ret += a.ToString("X")
                    End If
                Next
                Return ret
            Catch ex As Exception
                Exit Try
            Finally
                If st IsNot Nothing Then st.Close()
            End Try
        Else
            Return ""
        End If
        Return ""
    End Function

    Public Function GetFileSHA1CheckSum(ByVal fichier As String) As String
        If IO.File.Exists(fichier) Then
            Dim st As System.IO.FileStream = Nothing
            Try
                Dim check As New System.Security.Cryptography.SHA1CryptoServiceProvider
                st = System.IO.File.Open(fichier, System.IO.FileMode.Open, System.IO.FileAccess.Read)
                Dim somme As Byte() = check.ComputeHash(st)
                Dim ret As String = ""
                For Each a As Byte In somme
                    If (a < 16) Then
                        ret += "0" + a.ToString("X")
                    Else
                        ret += a.ToString("X")
                    End If
                Next
                Return ret
            Catch ex As Exception
                Exit Try
            Finally
                If st IsNot Nothing Then st.Close()
            End Try
        Else
            Return ""
        End If
        Return ""
    End Function



 Historique

05 août 2007 14:00:54 :
amélioration de la présentation
05 août 2007 22:37:21 :
mise à jour mineure

 Sources de la même categorie

Source avec Zip Source avec une capture Source .NET (Dotnet) APPARTENANCE AUX GROUPES DE SÉCURITÉ par legranche
Source avec Zip Source avec une capture Source .NET (Dotnet) REMOTE KEYLOGGER par elguevel
Source avec Zip PETITE IMPLEMENTATION DE L'ALGO SERVANT AU CRYPTAGE RSA par ccgousset
Source avec Zip SAUVEGARDES FICHIERS par claude440
Source avec Zip Source avec une capture VEROUX PC AVEC API par Galactus13

 Sources en rapport avec celle ci

Source avec Zip Source avec une capture [VB6] MD5 PASS FINDER par Neo_Fr
Source avec Zip Source avec une capture Source .NET (Dotnet) HASH MD5 RESEARCH - PROGRAMME PERMETTANT DE RÉCUPÉRER LE MOT... par n3o007
Source avec Zip Source .NET (Dotnet) [VB.NET] PROTEGER UN PROG GRACE A UN HASH MD5 par Neo_Fr
Source avec Zip Source .NET (Dotnet) HASHEUR MD5 par morphlin
Source avec Zip Source avec une capture Source .NET (Dotnet) PROTECTION PAR LA METHODE HASH SHA-1 par tinux

Commentaires et avis

Commentaire de Joke758 le 05/08/2007 22:32:14

tu me sauve la vie

Commentaire de allthew3 le 05/08/2007 22:36:24

de rien alors ^^

Commentaire de Joke758 le 05/08/2007 22:39:10

pourrais tu le compiler en dll svp?

Commentaire de doubledong le 30/09/2007 22:00:27 9/10

Merci pour ce code, je l'ai utilisé quelques temps mais n'est-ce pas plus simple de faire :
            Dim f As FileStream = New FileStream(fichier, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
            Dim md5 As New MD5CryptoServiceProvider
            md5.ComputeHash(f)
            f.Close()
            Dim hash As New StringBuilder
            For Each a As Byte In md5.Hash
                hash.Append(String.Format("{0:X1}", a))
            Next
?

Commentaire de allthew3 le 01/10/2007 15:34:00

Si ton code est plus simple, mais pour ma part j'avais juste traduit une source C#, j'ai pas cherché à l'amélioré (j'étais pressé par le temps)

Merci de l'avoir mis en commentaire ^^ : avis aux amateurs :P

et Merci pour la note @+

Commentaire de Mario1095 le 17/02/2008 08:07:42

Cool

Commentaire de Mario1095 le 17/02/2008 08:10:40

Je me demande comment ta fais mais t'es for en tout cas !

Commentaire de allthew3 le 17/02/2008 11:23:51

merci :P

Commentaire de XelectroX le 11/10/2008 20:31:07

Utilise plutôt "&" à la place de "+" pour les strings ;)
"abc"+123 peut porter à confusion ;) (String + Integer)

Sinon, super :)

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

CheckSum en MD5 [ par belette321 ] Bonjour,Je cherche a faire un checksum pour mon autoupdater mais je ne trouve pas de facon pour avoir le MD5 Hash d'un fichier. j'aimerais que quelqu' hash - checksum md5 [ par windob ] salut,j'ai essayer de trouver un code qui explique bien le hash ou checksum md5 d'un fichier, j'ai trouvé un code mais il emploi une dll ( sans source Probleme de Hash MD5 [ par Voodoo ] Voila, j'ai fait un programme de "Hashage" MD5 et aussi d'autres mais le probleme est que lorsque je passe mon texte dans la fonction de hash, il faut hash md5 [ par flatou ] salut a tousje travail sur un projet en c qui doit utiliser le hashage md5. je me suis inspiré donc de cette source (pour faire simple) :http://www.cp hash MD5 en vba [ par pHoEnIxFuRy ] Voil&#224; j'ai trouv&#233; tout un tas de code pour faire du hashage MD5 mais tous utilisent des composants ext&#233;rieurs (classe, ocx, etc ...).Ex Total dans un datagrid [ par Mamaw ] Bonjour,Je voudrais afficher un total de colonnes dans mon datagrid, j'ai trouv&#233; un code sur le net mais celui ci m'affiche toujours 0 en total.. problemes de checksum [ par yurif ] Bonjour a tous:J' ai un texte de 14 caracteres alfanumeriques auquel je dois joindre un checksum de&nbsp;2 carateres (de 00 a FF).Je ne sais pas comme Combobox et menu déroulant [ par cypoune ] Bon je sais que ma question est vraiment basique mais je viens de passer une heure dessus sans trouver la r&#233;ponse et donc je me resous a poser la Pb avec une requete SUM() [ par yunuss9 ] La requete sum() me cause des pb q j ne comprends pas: je veux recuperer la soe des montants qi est ds une table: "select *,SUM(Montant) as TotalMonta Décoder un sha1 [ par liteulkevin ] Bonjour, J'ai créer un script qui code des password avec un sha1. Jusque là pas de soucis. Mais comment décrypter ce code après? Merci d'avance.


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,827 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales