Título: Proteger un programa
Publicado por: CsarGR en 3 Febrero 2006, 18:58 pm
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
Título: Re: Proteger un programa
Publicado por: sch3m4 en 3 Febrero 2006, 22:02 pm
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 ;)
|