Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: MD5 search ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Dim 11 Déc - 13:16 (2011)    Sujet du message: MD5 search Répondre en citant

Ca peut toujours servir de connaitre le MD5 d un fichier alors voila un petit prog qui le récupère

et en plus même si ca sert a rien a l heure actuelle j'ai mis un petit truc en plus J'ai ajouté un fichier contenant 190000 MD5 de virus reconnu et en cliquant sur scan il compare votre MD5 au 190000 en mémoire ... ca sert a rien car y  a des  millions de virus qui en plus sont polymorphes maintenant mais bon ....un petit gadget à la con ^^

Voila pour l'apparence



Ici avec un fichier propre




Et chose qui arrivera surement jamais si vous scannez un MD5 qu'il à en liste voila ce que ca donne  j ai pris le md5 d un vundo pour l'exemple..




Code:
Imports System
Imports System.IO
Imports System.Security.Cryptography
Imports System.IO.FileStream
Imports System.Text


Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label1.Hide()
        Label2.Hide()
        TextBox1.Clear()
        Dim open As New OpenFileDialog
        open.ShowDialog()


        
        Dim MD5 As New MD5CryptoServiceProvider
        Dim File As New FileStream(open.FileName, FileMode.Open, FileAccess.Read, FileShare.Read, &H2000)
        MD5.ComputeHash(File)
        Dim hash As Byte() = MD5.Hash
        Dim build As New StringBuilder
        Dim num As Byte
        For Each num In hash
            build.Append(String.Format("{0:X2}", num))
        Next
        Me.TextBox1.Text = build.ToString



    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If My.Resources.viruslist.Contains(TextBox1.Text) = True Then
            Label2.Show()
            MsgBox("A Virus Was Detected In The Selected File")
        Else
            Label1.Show()
            Dim Sapi
            Sapi = CreateObject("Sapi.spvoice")
            Sapi.speak("Your file is clean!!")
        End If
    End Sub



End Class



Scan --->ICI

Télécharger --->ICI


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 13:16 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com