با این الگوریتم که تو خود انجمن مرجع به اشتراک گذاشتن میخواستم یه متن رو هش کنم - اما هش درست انجام نمیشه ! با سایت های هش انلاین که چک میکنم - اون متن رو بهم برنمیگردونه
مشکلش کجاست ؟
Dim alls As String
alls="milad"
Dim m As Mac
Dim k As KeyGenerator
k.Initialize("HMACSHA256")
' k.KeyFromBytes("9b3b9e55988c954e51477da115c58ae82dcae7ac01c735b4443a3c5923cb593a".GetBytes("UTF8"))
m.Initialise("HMACSHA256", k.Key)
m.Update(alls.GetBytes("UTF8"))
Dim b() As Byte
b = m.Sign
Dim bc As ByteConverter
Log(bc.HexFromBytes(b))
Msgbox(bc.HexFromBytes(b),"mac hash")
سوال
میلاد 441
سلام دوستان
با این الگوریتم که تو خود انجمن مرجع به اشتراک گذاشتن میخواستم یه متن رو هش کنم - اما هش درست انجام نمیشه ! با سایت های هش انلاین که چک میکنم - اون متن رو بهم برنمیگردونه
مشکلش کجاست ؟
Dim alls As String alls="milad" Dim m As Mac Dim k As KeyGenerator k.Initialize("HMACSHA256") ' k.KeyFromBytes("9b3b9e55988c954e51477da115c58ae82dcae7ac01c735b4443a3c5923cb593a".GetBytes("UTF8")) m.Initialise("HMACSHA256", k.Key) m.Update(alls.GetBytes("UTF8")) Dim b() As Byte b = m.Sign Dim bc As ByteConverter Log(bc.HexFromBytes(b)) Msgbox(bc.HexFromBytes(b),"mac hash")چیزی که خروجی بهم میده :
E24B424CB51C1917938AAE42F62DCA20A3E32FCF6AB9B56BE6EB9AA45BCCE4EDچیزی که سایت های دیگه میدن
6182e221e734938459da67b7914dbbb4dd9d47eff9e9330c02978a49a05a399c : miladلینک ارسال
به اشتراک گذاری در سایت های دیگر
1 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.