---
title: "Kryptering av lösenord i access?"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/81189-kryptering-av-lösenord-i-access"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "speedy"
published: "2003-07-03T09:59:10.000Z"
updated: "2003-07-04T11:13:35.000Z"
replies: 4
views: 448
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/81189-kryptering-av-lösenord-i-access"
---

# Kryptering av lösenord i access?

## #1 — speedy, 2003-07-03T09:59Z

Jag undrar om det är möjligt att använda sig av krypterade lösenord i access och hur jag går till väga för att använda det i så fall?

Permalänk: https://www.webforum.nu/p/81189

## #2 — renholm, 2003-07-03T10:24Z

Om du menar att spara krypterade lösenord i Access så är det fullt möjligt. Eftersom Access inte verkar ha stöd för Binary eller Image som MS SQL Server har gör du förslagsvis så här:

```
using System.Security.Cryptography;

public string Encrypt(string password)
{
	byte[] encrypt = System.Text.Encoding.Default.GetBytes(password);

	SHA1 sha = new SHA1CryptoServiceProvider();
	return Convert.ToBase64String(sha.ComputeHash(encrypt));
}
```

Detta använder SHA1 som algoritm.

Permalänk: https://www.webforum.nu/p/1100216

## #3 — speedy, 2003-07-04T08:13Z

Jo det var ju det jag menade :)

Hur skulle samma kod kunna se ut i VB.NET? Hur gör man för att hämta ett krypterat lösenord från databasen sen när det skall kontrolleras(vid login t.ex.)?

Permalänk: https://www.webforum.nu/p/1100688

## #4 — renholm, 2003-07-04T10:42Z

Hämta lösenordet gör du via ADO.NET, se quickstarten för mer information. Angående att få koden i VB.NET så har jag faktiskt glömt bort syntaxen :) Kanske någon annan kan hjälpa till?

Permalänk: https://www.webforum.nu/p/1100765

## #5 — P, 2003-07-04T11:13Z

Lite gammal och med Md5 men den funkar nog:

```
    ' ***********
    ' MD5-krypto
    ' ***********
        Public Shared Function Md5(ByVal str_krypt As String)
        
        Dim md5Hasher as New System.Security.Cryptography.MD5CryptoServiceProvider()
        Dim hashedDataBytes as Byte()
        Dim encoder as New UTF8Encoding()

        hashedDataBytes = md5Hasher.ComputeHash(encoder.GetBytes(str_krypt))

        'Lägger krypteringen i en sträng ( normalt 16 bitars array)
        Dim str_temp as String
        Dim b as byte
        For each b in hashedDataBytes
            str_temp=str_temp+(b).ToString("x2")
        Next b

        'Skickar tillbaka värdet
        Return str_temp

    End Function
```

Permalänk: https://www.webforum.nu/p/1100794

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/81189-kryptering-av-lösenord-i-access