Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2010 02 10 08:22:41

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

CHECKSUM SHA1 OU MD5 D'UN FICHIER

Information sur la source

Note :

9,50 / 10

Catégorie :Sécurité

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

APPARTENANCE AUX GROUPES DE SÉCURITÉ par legranche

REMOTE KEYLOGGER par elguevel

PETITE IMPLEMENTATION DE L'ALGO SERVANT AU CRYPTAGE RSA par ccgousset

SAUVEGARDES FICHIERS par claude440

VEROUX PC AVEC API par Galactus13

Toutes les sources de la catégorie Sécurité

Sources en rapport avec celle ci

[VB6] MD5 PASS FINDER par Neo_Fr

HASH MD5 RESEARCH - PROGRAMME PERMETTANT DE RÉCUPÉRER LE MOT... par n3o007

[VB.NET] PROTEGER UN PROG GRACE A UN HASH MD5 par Neo_Fr

HASHEUR MD5 par morphlin

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à j'ai trouvé tout un tas de code pour faire du hashage MD5 mais tous utilisent des composants exté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é 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 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é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

Derniers Blogs

UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante

TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice

[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion

TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice

TECHDAYS PARIS 2010 : DéPLOIEMENT DE NOUVELLES TECHNOLOGIES - RETOUR D'EXPéRIENCE PAR L'INFORMATIQUE DE MICROSOFT par ROMELARD Fabrice

Forum

RE : OVERRIDE FONT DANS UN USERCONTROL ? par Adn56

VB.NET ET COMBOBOX par minouthebreaker

RE : PROBLèME DE FILTRE EN ACCESS par wafik_has170

[EXCEL 2003] BOUTON QUI COPIE UNE LIGNE D'UNE FEUILLE à UNE AUTRE par freeman034

RE : GESTION DE LOCATION DE VOITURE par artbel2009

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

PLATEFORME SUR L ESOTERISME VOYANCE - sans charte graphique
Budget : 3 500€
Joomla 15 module paiement adaptation composant cuisine
Budget : 250€
Integrateur web dans template
Budget : 500€

Logiciels

DB-MAIN (9.1.0)
DB-MAIN (9.1.0)

DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal...

Cliquez pour télécharger DB-MAIN
Xilisoft DPG Convertisseur (5.1.37.0120)
XILISOFT DPG CONVERTISSEUR (5.1.37.0120)

Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé...

Cliquez pour télécharger Xilisoft DPG Convertisseur
GraphicsGale (2.01.01)
GRAPHICSGALE (2.01.01)

GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ...

Cliquez pour télécharger GraphicsGale
Architecte 3D (Platinum 2010)
ARCHITECTE 3D (PLATINUM 2010)

Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é...

Cliquez pour télécharger Architecte 3D
TeamViewer 5 (TeamViewer 5)
TEAMVIEWER 5 (TEAMVIEWER 5)

Dépanner un ami,expliquer une manipulation devient un jeu d'enfant. Prise en main d'un autre ord...

Cliquez pour télécharger TeamViewer 5