Problema com função

[Trevizani 0]

Dim lcValor,SenhaInclusa,SenhaGerada,SenhaCriptografada

Function Criptografar(lcValor)

Dim sobj,lcCriptografa2

sobj = "Ebase"

lcCriptografa2 = CriptografaHexa(sobj, lcValor)

Criptografar = ConverteParaHexa(lcCriptografa2)

End Function

Function CriptografaHexa(ByVal SenhaInclusa, ByVal SenhaGerada)

Dim A,i,B

A = 1

For i = 1 To Len(SenhaGerada)

B = Asc(Mid(SenhaInclusa, A, 1)): A = A + 1: If A > Len(SenhaInclusa) Then A = 1

Mid(SenhaGerada, i, 1) = Chr(Asc(Mid(SenhaGerada, i, 1)) Xor B)

Next

CriptografaHexa = SenhaGerada

End Function

Function ConverteParaHexa(ByVal SenhaCriptografada)

Dim HValor,JValor,i

HValor = ""

For i = 1 To Len(SenhaCriptografada)

JValor = Hex(Asc(Mid(SenhaCriptografada, i, 1)))

If Len(JValor) = 1 Then JValor = "0" + JValor

HValor = HValor + JValor

Next

ConverteParaHexa = Format(Len(HValor), "00") + HValor

End Function

 

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Mid'

/interno/gravarsenha.asp, line 25

 

A linha do erro está em negrito.

[Stephenloky 0]

Depois do xor você não deveria colocar outra expressão ?

[Trevizani 0]

Mid(SenhaGerada, i, 1) = Chr(Asc(Mid(SenhaGerada, i, 1)) Xor B)

[xanburzum 169]

porque não usa MD5 para criptografia é melhor

[Stephenloky 0]

Acho até que MD5 está ultrapassado .... Mas é uma forma rápida e fácil para poder criptografarr .... essas "criptografias feitas em casa" normalmente não oferecem segurança alguma ... a menos que esse seja apenas um exercício para você compreender algum processo ou algo do tipo ! :D

[xanburzum 169]

existe uma classe que postei para criptografia, dá uma olhada no fórum. Eu uso para maior segurança SHA-256, que é unilateral por isso não tem como "descriptografar". Olha este exemplo