Skip to main content

AccessTr.neT


Md5 Şifre Oluşturmak Ve Şifre Sıfırlama Maili Göndermek

Md5 Şifre Oluşturmak Ve Şifre Sıfırlama Maili Göndermek

Çözüldü #1
Hayırlı sabahlar
shift ile kilitlense bile onuda kıran programlar olduğuna göre programa giriş şifrelerini Access içinde bir tabloda tutmak ne kadar mantıklı
md5 ile tek yönlü şifre oluşturarak bu değeri tabloda tutarsak en azında runtime tablolarda değişiklik yapamasınlar göremesinler
ama illaki bir şekilde Access tabloları görülebiliyor
işin md5 kısmı basit ama şifre sıfırlama maili attırabilir miyiz. 
Mail gönderilmesi ile ilgili örnekler vardı diye hatırlıyorum.bunu da hallettik diyelim
mail geldi bizde maile girdik ve linki tıkladık bu açılan pencerden yeni şifre de girdik diyelim
bu yeni şifre ile programa girmek için programda şifre kısmında bir değerin değişmesi lazım değil mi
bunu nasıl halledeceğiz

md5 şifresi oluşturan kod şudur


Public Function MD5(ByVal sIn As String, Optional bB64 As Boolean = 0) As String
    'Set a reference to mscorlib 4.0 64-bit
   
    'Test with empty string input:
    'Hex:  d41d8cd98f00...etc
    'Base-64: 1B2M2Y8Asg...etc
       
    Dim oT As Object, oMD5 As Object
    Dim TextToHash() As Byte
    Dim bytes() As Byte
       
    Set oT = CreateObject("System.Text.UTF8Encoding")
    Set oMD5 = CreateObject("System.Security.Cryptography.MD5CryptoServiceProvider")

    TextToHash = oT.Getbytes_4(sIn)
    bytes = oMD5.ComputeHash_2((TextToHash))

    If bB64 = True Then
      MD5 = ConvToBase64String(bytes)
    Else
      MD5 = ConvToHexString(bytes)
    End If
       
    Set oT = Nothing
    Set oMD5 = Nothing

End Function
@benbendedeilem
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Md5 Şifre Oluşturmak Ve Şifre Sıfırlama Maili Göndermek - Yazar: accessman - 27/01/2020, 08:16
Task