Solved

How to produce a SHA-1 hash function in vb6 in order to save it to a table

Posted on 2016-11-09
8
36 Views
Last Modified: 2016-11-09
Please help us for a code in vb6 to hash SHA-1 a string before I saving to a table.

Thank you in advance
0
Comment
Question by:rayluvs
  • 5
  • 3
8 Comments
 
LVL 21

Expert Comment

by:JesterToo
ID: 41881496
Perhaps you meant "encrypt" instead of "hash" since hashes are one-way and I'd assume you want to decrypt it sometime.  If so, then here is a link that describes hot to accomplish that.

https://support.microsoft.com/en-us/kb/821762
0
 

Author Comment

by:rayluvs
ID: 41881514
Yes, that's what we need, one-way.  We hash sha1 the result save it to table.

Can this be done in vb6?
0
 
LVL 21

Expert Comment

by:JesterToo
ID: 41881517
Ok, take a look at this link.  It has source code that purports to do what you want.

http://vb.wikia.com/wiki/SHA-1.bas
0
 
LVL 21

Accepted Solution

by:
JesterToo earned 500 total points
ID: 41881525
in the event that code proves to be faulty, search the internet for this phrase...

"vb6 sha1 source code philip ciebiera"
0
Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

 

Author Comment

by:rayluvs
ID: 41881571
Thanx!!! Found a code thet works excellent and we compared it to MS SQL HASHBYTE function is almost the exact!

We say exact because the SQL function always returns "0x" when the vb code doesn't.

For example the has for 'experts-exchange' in

vb6 code is:             9022fc0e1985bb7c0ac60792ee3fbe3029af0424

in SQL is:                 0x9022FC0E1985BB7C0AC60792EE3FBE3029AF0424

                                 notice "0x"

We extract the "0x" from SQL statement result and both SQL & VB results are the same.

Is there a reason for the "0x" and should we be concerned?
0
 
LVL 21

Expert Comment

by:JesterToo
ID: 41881581
yes, that is not actually a part of the hash.  It is there to signify that the remaining characters are hexidecimal. It is safe to just strip it off as you did.
0
 

Author Comment

by:rayluvs
ID: 41881582
Thanx!!! You really helped us!!
0
 
LVL 21

Expert Comment

by:JesterToo
ID: 41881588
You're welcome.
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
When designing a form there are several BorderStyles to choose from, all of which can be classified as either 'Fixed' or 'Sizable' and I'd guess that 'Fixed Single' or one of the other fixed types is the most popular choice. I assume it's the most p…
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

18 Experts available now in Live!

Get 1:1 Help Now