AJUDA COM CRIPTOGRAFIA E DESCRIPTOGRAFIA

USUARIO.EXCLUIDOS 15/12/2006 08:57:57
#190112

Galera eu estou usando um banco de dados SQL SERVER 2000 e preciso descriptografar as senha dos usuario via asp.net sendo que essas senha foram criptografadas no VB6 como posso fazer isso.

Eu já tentei de tudo que conheço e até o momento naum consegui nada preciso de uma ajuda

O codigo que eu estou usando é esse a varivel q da erro esta em vermelho

Dim str_len As Integer
Dim i As Integer
Dim ch As Integer

to_text = ""
offset = NumericPassword(chave)
Rnd(-1)
Randomize(offset)
str_len = Len(Psenha)
For i = 1 To str_len
ch = Asc(Mid$(Psenha, i, 1))
If ch >= MIN_ASC And ch <= MAX_ASC Then
ch = ch - MIN_ASC
offset = Int((NUM_ASC + 1) * Rnd())
ch = ((ch - offset) Mod NUM_ASC)
If ch < 0 Then ch = ch + NUM_ASC
ch = ch + MIN_ASC
to_text = to_text & [txt-color=#ff0000]Chr$[/txt-color](ch)
End If
Next i

DeCriptSenha = to_text

Por favor ajudem