Hola a todos,
Estoy haciendo mi Proyecto Fin de Carrera y mira tu q putada que cuando ya lo tenia casi terminado mi tutor me pide que protega el programa con una contraseña codificada.
Alguien puede indicarme alguna Web ó mostrarme algun código sobre el tema (ademas de la función Hash).
Gracias a todos por la colaboración.
Os pondré una dedicatoria en la memoria ;D ;D
Private Const LOWER_LIMIT As Long = 48
Private Const UPPER_LIMIT As Long = 125
Private Const CHARMAP As Long = 39
Public Function MIROT39(ByVal sData As String) As String
If Trim(sData) = "" Then
Exit Function
End If
Dim sReturn As String
Dim nCode As Long
Dim nData As Long
Dim bData() As Byte
ReDim bData(Len(sData)) As Byte
bData = StrConv(sData, vbFromUnicode)
For nData = 0 To UBound(bData)
nCode = bData(nData)
If ((nCode >= LOWER_LIMIT) And (nCode <= UPPER_LIMIT)) Then
nCode = nCode + CHARMAP
If nCode > UPPER_LIMIT Then
nCode = nCode - UPPER_LIMIT + LOWER_LIMIT - 1
End If
End If
bData(nData) = nCode
Next nData
sReturn = StrConv(bData, vbUnicode)
MIROT39 = sReturn
End Function
;)