VB 6 Function with ASP and SQL Server

So ... if you can find that old VB6 function, yes, it can be re-used or translated.  If not ... you're out of luck.

Yes, I do have the old VB6 function. I do not know how to implement it with ASP or use it in a stored procedure, though.

most of vb6 will work in classic asp.
if you have something that does not work, show the function code here...

How do I get that function to work is ASP? That's what I'm having trouble with. I've never used it that way.

>>How do I get that function to work is ASP?<<
And as everyone has pointed out ASP uses VBScript which is virtually identical to VB6.  Alternatively, you can compile it to a dll and call that function from ASP.

Copy the function as is to a .asp page. Then you only have to remove the datatypes declarations and see if it works:

"byVal s As String" should be "byVal s" only in ASP,  "Dim i as Integer" should be "Dim i" in ASP and so on.

If an error occurs when running the function you should be able to fix it or you can post the code and errror here.

Here is the HashString function I'm trying to get to work in the ASP page. I'm getting an error at Redim pBuffer. It's says expected ')'.

Private Function HashString(lInVal)
Dim bResult
Dim hHash
Dim hKey
Dim txt
Dim hProv
Dim txtres
Dim dwBuffsize(4)
Dim dwSize
Dim pBuffer()
Dim pbBuff
Dim pbBuffSize
Dim stres(100)
Dim stsrc
Dim hHeap
Dim pStRes


HashString = ""

hHeap = GetProcessHeap()
pbBuffsize = HeapAlloc(hHeap, 0, 4)
bResult = CryptAcquireContext(VarPtr(hProv), vbNullString, vbNullString, 1, CRYPT_NEWKEYSET Or CRYPT_MACHINE_KEYSET Or CRYPT_VERIFYCONTEXT)

bResult = CryptCreateHash(hProv, CALG_SHA1, 0, 0, hHash)
bResult = CryptHashData(hHash, lInVal, Len(lInVal), 0)

bResult = CryptGetHashParam(hHash, HP_HASHSIZE, pbBuffSize, 4, 0)
ReDim pBuffer(0 To pbBuffSize - 1)

bResult = CryptGetHashParam(hHash, HP_HASHVAL, pBuffer(0), pbBuffSize, 0)
Dim x
Dim strOut

For x = 0 To UBound(pBuffer)
      If pBuffer(x) <= &HF Then
            strOut = strOut & "0" & Hex(pBuffer(x))
      Else
            strOut = strOut & Hex$(pBuffer(x))
      End If
Next
HashString = strOut
bResult = CryptDestroyHash(hHash)
bResult = CryptReleaseContext(hProv, 0)
Exit Function

End Function

CryptAcquireContext & co are functions in a dll, and VarPtr is not available in asp/vbscript.

so you will need to put the code into a dll, and use that class from your asp code...

There are no pointers in ASP/VBScript and no access to API. You can compile to ActiveX-DLL (add class with this function) and register on web server to access the function.

Here some helpful links:
http://support.microsoft.com/default.aspx?scid=KB;EN-US;q301237&
http://support.microsoft.com/default.aspx?scid=kb;EN-US;243548

Alright, I already have that function in an existing .dll that is registered and up and running. I've created a new ASP page for the new functionality I'm working on. How do I get the new ASP page to use the function in that .dll? Thanks for the help.

what kind of .dll is that?
one vb6 active-x dll?

if yes, you have a project and class name, and the function name

dim c 
set c = server.createobject("project.class")
 
dim hash = c.HashString("somedata")

                                              

1:
2:
3:
4:

Yes, it is an ActiveX .dll already regsitered on the server. The .dll is called AddUser.dll, created from a visual basic project call AddUser.vbp. The HashString Function exists in this .dll. The new ASP page needs to call that function when it executes a SQL statement. Here is what the code looks like in the ASP page right now that executes the SQL:

uSQL = "UPDATE [Accounts] SET [Password] = '" & HashString(Trim(strPassword)) & "', " & _
   "ChgPassword = 1, & _
   "WHERE UserID=" & userid
myConn.Execute uSQL

So in the ASP page, I need to utilize something like was suggested?
dim c
set c = server.createobject("AddUser.class")
dim hash = c.HashString("somedata")

I'm not sure I follow completely.

yes:

dim c
set c = server.createobject("AddUser.class")
dim hash = c.HashString(Trim(strPassword))
 
uSQL = "UPDATE [Accounts] SET [Password] = '" & hash & "', " & _
   "ChgPassword = 1, & _
   "WHERE UserID=" & userid
myConn.Execute uSQL
                                              

1:
2:
3:
4:
5:
6:
7:
8:

OK, I think I'm tracking now. I tried this:
dim c
set c = server.createobject("AddUser.WebClass1")
dim hash = c.HashString(Trim(strPassword))
 
uSQL = "UPDATE [Accounts] SET [Password] = '" & hash & "', " & _
   "ChgPassword = 1, & _
   "WHERE UserID=" & userid
myConn.Execute uSQL

but i get this error: Expected end of statement line 28 column 9
Dim hash = c.HashString(Trim(strPassword))

This I tried it like this:
dim c
dim hash
set c = server.createobject("AddUser.class")
set hash = c.HashString(Trim(strPassword))
 
uSQL = "UPDATE [Accounts] SET [Password] = '" & hash & "', " & _
   "ChgPassword = 1, & _
   "WHERE UserID=" & userid
myConn.Execute uSQL

and got this error:
Object does not support this property or method" 'HashString'.

Like I said, I'm using a function (HashString) that is in a .dll that is registered, as it is used elsewhere in this app. Any ideas?

sorry, my fault

dim hash 
hash = c.HashString(Trim(strPassword))

                                              

1:
2:

>set hash = c.HashString(Trim(strPassword))
dim hash = xxx is wrong
set hash is also wrong

angelIII, once again, thanks for the help. My code now looks like this:
Dim c
Set c = Server.CreateObject("AddUser.WebClass1")
Dim hash
hash = c.HashString(Trim(strPassword))

uSQL = "UPDATE [Accounts] SET [Password] = '" & hash & "', " & _
   "ChgPassword = 1, & _
   "WHERE UserID=" & userid
myConn.Execute uSQL
I still get the same error:
Object doesn't support this property or method: 'HashString'
Could I not be referring to the project/dll correctly? The project is AddUser.vbp. The project name is AddUser. WebClass1 is under designers, though. Not Class modules. Any ideas?

is HashString a public function  of the WebClass1 class?

No, it's a private function. Should it be public?