SHA1 algorithm

[Farzad.A]

hi i need to use SHA1 in my project well i use different SHA1 method in vb6 but nothing answer me correct but this code unit in delphi answer good

i attach sha1 unit here so please guide me how can i convert that to vb6

thanks