Forgot Password ??

PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone

	Registered : 109,038

HOME > .NET Framework > Forum > MD5 in VB.NET/C# & ASP.NET (.NET Framework 1.1,2.0.3.5)

[.NET] MD5 in VB.NET/C# & ASP.NET (.NET Framework 1.1,2.0.3.5)

เริ่มหัวข้อใหม่

Luckystar

โพสกระทู้ ( 937 )
บทความ ( 2 )

พี่คือpasswordจะต้องเข้ารหัสmd5ก่อนinsertลงDBในasp.net(VB)ใช้คำสั่งอะไรค่ะ

ในphpเป็น

encode = md5($Password);

Tag : - - - -

Date : 2009-12-01 09:33:01

By : LuckyStar

View : 10759

Reply : 15

No. 1

^-^

โพสกระทู้ ( 681 )
บทความ ( 0 )

Code (PHP)

$username=($_POST['username']);
$password=md5(md5($_POST['password'].$username)); 
 
$sqlcommand=" insert into tb_admin(username,password)Values('$username','$password')";
 
    $RS=mysql_query($sqlcommand);
    $result=mysql_num_rows($RS);

Date : 2009-12-01 10:24:53

By : nottpoo

No. 2

TC Admin

โพสกระทู้ ( 74,059 )
บทความ ( 838 )

Code (VB.NET)

Imports System.Security.Cryptography
Imports System.Text
 
    Public Function MD5(ByVal strString As String) As String
        Dim ASCIIenc As New ASCIIEncoding
        Dim strReturn As String
        Dim ByteSourceText() As Byte = ASCIIenc.GetBytes(strString)
        Dim Md5Hash As New MD5CryptoServiceProvider
        Dim ByteHash() As Byte = Md5Hash.ComputeHash(ByteSourceText)
        For Each b As Byte In ByteHash
            strReturn = strReturn & b.ToString("x2")
        Next
        Return strReturn
    End Function

Date : 2009-12-01 10:31:28

By : webmaster

No. 3

Luckystar

โพสกระทู้ ( 937 )
บทความ ( 2 )

พี่เอาcodeพี่winมาใส่แล้วใน .aspx.vbใช่ไหมค่ะ
แล้วมานerror
Dim Md5Hash As New MD5CryptoServiceProvider

พอเรียกใช้
Dim encode = MD5(Session("Pass"))

เลยไม่ได้อ่าแก้ไงดีค่ะ

Date : 2009-12-01 11:20:31

By : LuckyStar

No. 4

TC Admin

โพสกระทู้ ( 74,059 )
บทความ ( 838 )

ลืม import ครับ

Code (VB.NET)

1.Imports System.Security.Cryptography

2.Imports System.Text

Date : 2009-12-01 11:56:36

By : webmaster

No. 5

Luckystar

โพสกระทู้ ( 937 )
บทความ ( 2 )

พอใส่แล้วมานก้อมาerrorอีกที่นึงอ่าตรงนี้ค่ะ
strReturn = strReturn & b.ToString("x2")

แต่ที่
Dim encode = MD5(Session("Pass"))
ก้อยังerrorอยู่อ่าพี่ทำไงดี

Date : 2009-12-01 12:47:34

By : LuckyStar

No. 6

TC Admin

โพสกระทู้ ( 74,059 )
บทความ ( 838 )

Dim encode As String = MD5(Session("Pass"))

Date : 2009-12-01 13:11:52

By : webmaster

No. 7

Luckystar

โพสกระทู้ ( 937 )
บทความ ( 2 )

พี่หรือว่า
Dim encode As String = MD5(Session("Pass").ToString)
พอใส่.ToStringก้อหายerrorแต่มานจะได้ค่าเหมือนกานไหมอ่าพี่

แล้วตรงที่มานerrorตรงนี้อ่าค่ะ
strReturn = strReturn & b.ToString("x2")

Date : 2009-12-01 13:32:13

By : LuckyStar

No. 8

Guest

พี่ช่วยอธิบายโค้ดให้ได้มั๊ยค่ะ ไม่เข้าใจอะค่ะ
แล้วมันerror อะค่ะ
strReturn = strReturn & b.ToString("x2")
โดยเฉพาะตัวที่เน้นอะค่ะ ช่วยอธิบายทีนะค่ะ ขอบคุณ

Date : 2009-12-28 17:42:24

By : browny

No. 9

xxx

โพสกระทู้ ( 3,144 )
บทความ ( 1 )

ขอแก้ของพี่วิน

Code (VB.NET)

Imports System.Security.Cryptography
Imports System.Text
 
    Public Function MD5(ByVal strString As String) As String
        Dim ASCIIenc As New ASCIIEncoding
        Dim strReturn As String
        Dim ByteSourceText() As Byte = ASCIIenc.GetBytes(strString)
        Dim Md5Hash As New MD5CryptoServiceProvider
        Dim ByteHash() As Byte = Md5Hash.ComputeHash(ByteSourceText)
 
        strReturn = ""
 
        For Each b As Byte In ByteHash
            strReturn = strReturn & b.ToString("x2")
        Next
        Return strReturn
    End Function

b.ToString("x2") หมายถึง แปลงจาก byte เป็น string ด้วย format "x2"

ซึ่ง x2 คือ เลขฐานสิบหก

Date : 2009-12-28 19:46:04

By : tungman

No. 10

brown

โพสกระทู้ ( 4 )
บทความ ( 0 )

พี่ค่ะ แล้วตรงที่พี่ tungman เพิ่มเข้ามาหรือว่า่แก้ไขมาอะค่ะ
คือหมายถึงให้เรียกใช้โดยการ select จากฐานข้อมูลรึป่าวอะค่ะ
อย่างเช่น เขียนแบบนี้น่ะค่ะ strRetrun="select * from tb_user"
ประมาณนี้รึป่าวค่ะ ตอบทีนะค่ะ อย่าเพิ่งรำคาญนะค่ะพี่อยากรู้จริงๆ ค่ะพี่

Date : 2010-01-04 16:24:18

By : browny

No. 11

xxx

โพสกระทู้ ( 3,144 )
บทความ ( 1 )

ฟังก์ชั่นนี้มิธีใช้คือ ส่ง sting มัน แล้วมันจะ return ค่าที่ encode md5 กลับมา

ตัวอย่าง

"Hello World" ==> เข้ารหัส MD5 ==> "@#$%!@#$"

"@#$%!@#$" ==> ถอดรหัส MD5 ==> "Hello World" (<-- อันนี้ยกตัวอย่างเฉยๆ)

ที่แก้ให้ แค่กำหนดค่า initial ให้กับ strReturn เท่านั้น โดยให้เริ่มต้น เท่ากับ ""

จากกันก็ให้มันรับค่าที่ hash ได้ทีละตัว

Date : 2010-01-04 16:32:55

By : tungman

No. 12

อาร์ท

โพสกระทู้ ( 106 )
บทความ ( 0 )

ขอ asp มั่งจิครับ

Date : 2011-05-03 12:54:12

By : arta

No. 13

TC Admin

โพสกระทู้ ( 74,059 )
บทความ ( 838 )

MD5 for ASP Classic ครับ

Code (ASP)

Function MD5(sMessage)
    Dim x
    Dim k
    Dim AA
    Dim BB
    Dim CC
    Dim DD
    Dim a
    Dim b
    Dim c
    Dim d
     
    Const S11 = 7
    Const S12 = 12
    Const S13 = 17
    Const S14 = 22
    Const S21 = 5
    Const S22 = 9
    Const S23 = 14
    Const S24 = 20
    Const S31 = 4
    Const S32 = 11
    Const S33 = 16
    Const S34 = 23
    Const S41 = 6
    Const S42 = 10
    Const S43 = 15
    Const S44 = 21
 
    x = ConvertToWordArray(sMessage)
     
    a = &H67452301
    b = &HEFCDAB89
    c = &H98BADCFE
    d = &H10325476
 
    For k = 0 To UBound(x) Step 16
        AA = a
        BB = b
        CC = c
        DD = d
     
        FF a, b, c, d, x(k + 0), S11, &HD76AA478
        FF d, a, b, c, x(k + 1), S12, &HE8C7B756
        FF c, d, a, b, x(k + 2), S13, &H242070DB
        FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE
        FF a, b, c, d, x(k + 4), S11, &HF57C0FAF
        FF d, a, b, c, x(k + 5), S12, &H4787C62A
        FF c, d, a, b, x(k + 6), S13, &HA8304613
        FF b, c, d, a, x(k + 7), S14, &HFD469501
        FF a, b, c, d, x(k + 8), S11, &H698098D8
        FF d, a, b, c, x(k + 9), S12, &H8B44F7AF
        FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1
        FF b, c, d, a, x(k + 11), S14, &H895CD7BE
        FF a, b, c, d, x(k + 12), S11, &H6B901122
        FF d, a, b, c, x(k + 13), S12, &HFD987193
        FF c, d, a, b, x(k + 14), S13, &HA679438E
        FF b, c, d, a, x(k + 15), S14, &H49B40821
     
        GG a, b, c, d, x(k + 1), S21, &HF61E2562
        GG d, a, b, c, x(k + 6), S22, &HC040B340
        GG c, d, a, b, x(k + 11), S23, &H265E5A51
        GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA
        GG a, b, c, d, x(k + 5), S21, &HD62F105D
        GG d, a, b, c, x(k + 10), S22, &H2441453
        GG c, d, a, b, x(k + 15), S23, &HD8A1E681
        GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8
        GG a, b, c, d, x(k + 9), S21, &H21E1CDE6
        GG d, a, b, c, x(k + 14), S22, &HC33707D6
        GG c, d, a, b, x(k + 3), S23, &HF4D50D87
        GG b, c, d, a, x(k + 8), S24, &H455A14ED
        GG a, b, c, d, x(k + 13), S21, &HA9E3E905
        GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8
        GG c, d, a, b, x(k + 7), S23, &H676F02D9
        GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A
             
        HH a, b, c, d, x(k + 5), S31, &HFFFA3942
        HH d, a, b, c, x(k + 8), S32, &H8771F681
        HH c, d, a, b, x(k + 11), S33, &H6D9D6122
        HH b, c, d, a, x(k + 14), S34, &HFDE5380C
        HH a, b, c, d, x(k + 1), S31, &HA4BEEA44
        HH d, a, b, c, x(k + 4), S32, &H4BDECFA9
        HH c, d, a, b, x(k + 7), S33, &HF6BB4B60
        HH b, c, d, a, x(k + 10), S34, &HBEBFBC70
        HH a, b, c, d, x(k + 13), S31, &H289B7EC6
        HH d, a, b, c, x(k + 0), S32, &HEAA127FA
        HH c, d, a, b, x(k + 3), S33, &HD4EF3085
        HH b, c, d, a, x(k + 6), S34, &H4881D05
        HH a, b, c, d, x(k + 9), S31, &HD9D4D039
        HH d, a, b, c, x(k + 12), S32, &HE6DB99E5
        HH c, d, a, b, x(k + 15), S33, &H1FA27CF8
        HH b, c, d, a, x(k + 2), S34, &HC4AC5665
     
        II a, b, c, d, x(k + 0), S41, &HF4292244
        II d, a, b, c, x(k + 7), S42, &H432AFF97
        II c, d, a, b, x(k + 14), S43, &HAB9423A7
        II b, c, d, a, x(k + 5), S44, &HFC93A039
        II a, b, c, d, x(k + 12), S41, &H655B59C3
        II d, a, b, c, x(k + 3), S42, &H8F0CCC92
        II c, d, a, b, x(k + 10), S43, &HFFEFF47D
        II b, c, d, a, x(k + 1), S44, &H85845DD1
        II a, b, c, d, x(k + 8), S41, &H6FA87E4F
        II d, a, b, c, x(k + 15), S42, &HFE2CE6E0
        II c, d, a, b, x(k + 6), S43, &HA3014314
        II b, c, d, a, x(k + 13), S44, &H4E0811A1
        II a, b, c, d, x(k + 4), S41, &HF7537E82
        II d, a, b, c, x(k + 11), S42, &HBD3AF235
        II c, d, a, b, x(k + 2), S43, &H2AD7D2BB
        II b, c, d, a, x(k + 9), S44, &HEB86D391
     
        a = AddUnsigned(a, AA)
        b = AddUnsigned(b, BB)
        c = AddUnsigned(c, CC)
        d = AddUnsigned(d, DD)
    Next
     
    MD5 = LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d))
End Function

Date : 2011-05-03 14:17:15

By : webmaster

No. 14

mixarstudio

โพสกระทู้ ( 219 )
บทความ ( 0 )

ถอดเป็น C# ให้ผมมั่งจิคร้าบบบ แหะๆๆๆ

Date : 2012-09-17 16:02:38

By : mixarstudio

No. 15

LOOGWAY

โพสกระทู้ ( 113 )
บทความ ( 0 )

Code (C#)

using System.Security.Cryptography;
public static string MD5HashCryptography(string string2Md5)
    {
            MD5 md5 = MD5CryptoServiceProvider.Create();
 
            byte[] dataMd5 = md5.ComputeHash(Encoding.Default.GetBytes(string2Md5));
 
            StringBuilder sb = new StringBuilder();
 
            for (int i = 0; i < dataMd5.Length; i++)
            {
                sb.AppendFormat("{0:x2}", dataMd5[i]);
            }
 
            string2Md5 = sb.ToString();
 
            return string2Md5;
    }

Date : 2012-12-17 13:03:02

By : loogway

ค้นหาข้อมูล

แสดงความคิดเห็น

Re : MD5 in VB.NET/C# & ASP.NET (.NET Framework 1.1,2.0.3.5)

รายละเอียด

เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง

โดย

อีเมล์

บวกค่าให้ถูก

<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)

Registered : 109,038

document.write("<font color=996600>[.NET]</font>"); [.NET] MD5 in VB.NET/C# & ASP.NET (.NET Framework 1.1,2.0.3.5)

No. 1

No. 2

No. 3

No. 4

No. 5

No. 6

No. 7

No. 8

No. 9

No. 10

No. 11

No. 12

No. 13

No. 14

No. 15

ค้นหาข้อมูล

อัพโหลดแทรกรูปภาพ

Notice

[.NET] MD5 in VB.NET/C# & ASP.NET (.NET Framework 1.1,2.0.3.5)