Y asi soy yo...

Voy a dejar un código en VB6, para los que les interese mi persona.
Si no te interesa mi persona, podés copiar el código e irte.


Así me siento yo, creo que ésta es mi manera de actuar en la vida. Piensenlo, y si tienen ganas, me cuentan :). Les pido que se tomen la molestia de ver más allá del mensaje.


Mensaje a desencriptar: "DqqktaYjjV_Sd_SY[_K\!,(.1
"
Para los poco atentos, el codigo va sin comillas....

''
' Desencripta un mensaje
'
' @param codigo Mensaje a desencriptar
Private Function DesencriptarMensaje(ByRef codigo As String) As String
'******************************************
'Author: NicoNZ
'Last modified: 06/02/2008
'
'******************************************
Dim i As Long

For i = 1 To Len(codigo)
DesencriptarMensaje = DesencriptarMensaje & Chr$(Val(Asc(Mid(codigo, i, 1)) + i))
Next i
End Function

''
' Encripta un mensaje
'
' @param codigo Mensaje a encriptar
Private Function EncriptarMensaje(ByRef mensaje As String) As String
'******************************************
'Author: NicoNZ
'Last modified: 06/02/2008
'
'******************************************
Dim i As Long

For i = 1 To Len(mensaje)
EncriptarMensaje = EncriptarMensaje & Chr$(Val(Asc(Mid(mensaje, i, 1)) - i))
Next i
End Function

Bueno...

No sirve para ésto el blog, capaz más adelante me copo con algún tema de programación, pero no se... Veré...


¡Gracias por leer!



NOTA PARA LOS BOLUDINES: YA SÉ QUE LA ENCRIPTACIÓN ES UNA CAGADA, PERO ES UNA FORMA QUE YO SIENTO DE REPRODUCIR COMO ME SIENTO.