Hi Walker,

This is error is not at all related to any of your VB6 OCX. It is purely related ASI.IBO.DLL, Please report to ASI.

I never tried custom payment gateway provider using 15.1.2 ver. It could be a bug

Thanks

Balaji

A profile trace revealed 2 calls to the SQL

Select * from CCauthAccount

 This is then crunched by Asi.iBO.CCrypto.ConvertStringFromHex method for the 2 Custom accounts.

This is key because it is what causes the error.

An exception is thrown when either of the 2 custom gateways have an un-encrypted password in the field CCAuthAcct.CCAuthPassword. 

When the Asi.iBO.CCrypto.ConvertStringFromHex checks to see if every entry in the CCAuthAcct.CCAuthPassword field is encrypted.

If any value is not encrypted then we get the error.

This is especially cumbersome because the Custom OCX does not have the ability decrypt the field CCAuthPassword.

Are there VB6 methods to decrypt the field CCAuthAcct.CCAuthPassword ?
 

Not certain how to do this in VB6?

' Instantiate a Crypto object
Dim cryObject As CCrypto
Set cryObject = New CCrypto

' Initialize the Crypto object
cryObject.Init(m_strdsname, m_strSQLUserID, m_strSQLPassword)

' Decrypt the password
cryObject.Decrypt(strEncrypted, m_strDecrypted)

'

 Will also try

Desktop: CC Encryption and Password Hashing

declare @object int
declare @hr int
declare @initreturn varchar(255)
declare @return varchar(255)
declare @src varchar(255)
declare @desc varchar(255)
declare @pwd varchar(255)

set @pwd = 'imis'

exec @hr = sp_OACreate 'ASIUtil.CCrypto',@object OUT
if @hr <> 0 goto HandleError

exec @hr = sp_OAMethod @object, 'Init', @initreturn OUT,
'[DATASOURCE_NAME]','sa',''
if @hr <> 0 goto HandleError
if @initreturn <> 0 goto HandleInitError

exec @hr = sp_OAMethod @object, 'OmnisHash', @return OUT, @pwd
if @hr <> 0 goto HandleError

select @pwd Password, @return EncryptedPassword

exec @hr = sp_OADestroy @object
if @hr <> 0 goto HandleError

HandleError:
if @hr <> 0
begin
exec sp_OAGetErrorInfo @object, @src OUT, @desc OUT
select hr=convert(varbinary(4),@hr), Source=@src, Description=@desc
exec @hr = sp_OADestroy @object
return
end

HandleInitError:
if @initreturn <> 0
begin
select 'Error in Init(): '+@initreturn
exec sp_OADestroy @object
return
end
 

Bruce M Walker BSCI Chicago IL

Add a reference to ASIUtil.dll

Private m_ASIUtil As ASIUtil.CCrypto

...

  ' Initialize ASIUtil
    Set m_ASIUtil = New CCrypto
    lRet = m_ASIUtil.Init(DSN, UserID, Password)
    If Not lRet = 0 Then
        MsgBox ("Error initializing ASIUtil")
        Exit Sub
    End If

...
 strTemp = p_rstCashAccts!CCAuthPassword
  lRet = m_ASIUtil.Decrypt(strTemp, strResult)
 

Private Sub GetTransactionKey(strCCAuthAcctCode As String, strCCAuthURL As String, _
strCCAuthUser As String, strCCAuthPassword As String, strCCDebug As String)
   

On Error GoTo CCerror:

    Dim strResult As String
    Dim lRet As String
    Dim strTemp As String
    Dim DSN As String
    Dim Db As String
    Dim UserID As String
    Dim Password As String
    Dim rs As Recordset
    Dim strBT_ID As String
      'Note this is only for the Discouver card - all others will ignore it
    RaiseEvent GetValue("lvSession.SQLHostName", DSN)
    RaiseEvent GetValue("lvSession.SQLDatabase", Db)
    RaiseEvent GetValue("lvSession.SQLUserId", UserID)
    RaiseEvent GetValue("lvSession.SQLUserPassword", Password)
    RaiseEvent GetValue("fBtId", strBT_ID)
   
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.LockType = adLockReadOnly
    rs.ActiveConnection = "PROVIDER=MSDASQL;dsn=" + DSN + ";uid=" _
        & UserID + ";pwd=" + Password + ";database=" + Db + ";"
    rs.Open "select  CCAuthAcctCode, CCAuthURL, CCAuthUser, CCAuthPassword, " & _
    " case when CCAuthURL like '%test%' then 'DeBug' else  'Live'  end as CCDebug, " & _
    " case when CCAuthVerisignProxyPassword = 'True' then 'DeBug' else  'Live'  end as CCTest " & _
    " from dbo.CCAuthAcct " & _
    " where CCAuthAcctCode = 'AuthorizeDotNet' "
    strCCAuthAcctCode = rs!CCAuthAcctCode
    strCCAuthURL = rs!CCAuthURL
    strCCAuthUser = rs!CCAuthUser
    'strCCAuthPassword = rs!CCAuthPassword
    strCCDebug = rs!CCDebug
    strCCTest = rs!CCTest
   
   
    'Add a reference to ASIUtil.dll
    'Initialize ASIUtil
   
    Set m_ASIUtil = New CCrypto
    lRet = m_ASIUtil.Init(DSN, UserID, Password)
    If Not lRet = 0 Then
        MsgBox ("Error initializing ASIUtil")
        Exit Sub
    End If

    strTemp = rs!CCAuthPassword
    lRet = m_ASIUtil.Decrypt(strTemp, strResult)
    strCCAuthPassword = strResult
    'account.ProxyPassword.ToString
   
       
    rs.Close

    Exit Sub
CCerror:
'
End Sub

Bruce M Walker BSCI Chicago IL