VPF::MD5 хэш на VB .NET - Форум программистов

vbprog

Дата 8.4.2008, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 8.4.2008

Репутация: нет
Всего: нет

Как на VB.NET 2005 сделать md5 хэш из файла(при чем файл может быть до 50мег)?

mr.DUDA

Дата 8.4.2008, 17:43 (ссылка)

(нет голосов)

Загрузка ...

3D-маньяк

Профиль
Группа: Экс. модератор
Сообщений: 8244
Регистрация: 27.7.2003
Где: город-герой Минск

Репутация: 8
Всего: 232

На бейсике будет так:

Код

Imports System.IO
Imports System.Security.Cryptography

Module Module1
    Sub Main()
        Dim hashCode As Byte()
        Using stream As Stream = File.OpenRead("d:\Video\South.Park_S12_E01_Tonsil.Trouble.avi")
            hashCode = MD5.Create.ComputeHash(stream)
        End Using

        Console.WriteLine(Convert.ToBase64String(hashCode))
    End Sub
End Module

На шарпе так:

Код

using System;
using System.IO;
using System.Security.Cryptography;

class Program
{
    static void Main()
    {
        byte[] hashCode;

        using (Stream stream = File.OpenRead(@"d:\Video\South.Park_S12_E01_Tonsil.Trouble.avi"))
        {
            MD5 md5 = MD5.Create();
            hashCode = md5.ComputeHash(stream);
        }

        string hashCodeAsHex = Convert.ToBase64String(hashCode);
        Console.WriteLine("Хеш-код: " + hashCodeAsHex);
    }
}

Размер файла пофигу - 300Мб прожевало за 5 секунд.

--------------------

jonie

Дата 8.4.2008, 23:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 5613
Регистрация: 21.8.2005
Где: Владимир

Репутация: 6
Всего: 118

Код


        string hashCodeAsHex = Convert.ToBase64String(hashCode);
        Console.WriteLine("Хеш-код: " + hashCodeAsHex);

почему HEX ? этож будет Base64 вроде...

--------------------

Что-то не поняли? -> Напейтесь до зеленых человечков... эта сверхцивилизация Вам поможет...

mr.DUDA

Дата 10.4.2008, 09:19 (ссылка)

(нет голосов)

Загрузка ...

3D-маньяк

Профиль
Группа: Экс. модератор
Сообщений: 8244
Регистрация: 27.7.2003
Где: город-герой Минск

Репутация: 8
Всего: 232

Да, не хекс точно. Надо было как-то вывести результаты (byte[]), с названиями фигня получилась.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| .NET для новичков \| Следующая тема »