comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Algoritmo Encryptacion de String

  • 0 Respuestas
  • 3190 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Expermicid

  • *
  • Underc0der
  • Mensajes: 457
  • Actividad:
    0%
  • Reputación 0
  • _-Expermicid-_
    • Ver Perfil
  • Skype: expermicid.xd
« en: Junio 22, 2012, 11:07:44 pm »
Hola a todos, encontre estas funciones para encryptar y desencryptar una cadena en Opensc.

Aqui el codigo :)

Código: Visual Basic
  1. Public Function EnCrypt(tSource As String, tPassword As String) As String
  2.     Dim iPassword As Integer
  3.     Dim iCrypt As Integer
  4.     Dim X As Integer
  5.     For X = 1 To Len(tPassword)
  6.         iPassword = iPassword + Asc(Mid$(tPassword, X, 1))
  7.     Next X
  8.     For X = 1 To Len(tSource)
  9.         iCrypt = Asc(Mid$(tSource, X, 1)) + iPassword + X
  10.         Do Until iCrypt <= 255
  11.             iCrypt = iCrypt - 255
  12.         Loop
  13.         EnCrypt = EnCrypt & Chr(iCrypt)
  14.     Next X
  15. End Function
  16.  
  17. Public Function DeCrypt(tSource As String, tKey As String) As String
  18.     Dim iPassword As Integer
  19.     Dim iCrypt As Integer
  20.     Dim X As Integer
  21.     For X = 1 To Len(tKey)
  22.         iPassword = iPassword + Asc(Mid$(tKey, X, 1))
  23.     Next X
  24.     For X = 1 To Len(tSource)
  25.         iCrypt = Asc(Mid$(tSource, X, 1)) - iPassword - X
  26.         Do Until iCrypt > 0
  27.             iCrypt = iCrypt + 255
  28.         Loop
  29.         DeCrypt = DeCrypt & Chr(iCrypt)
  30.     Next X
  31. End Function

Saludos
« Última modificación: Mayo 12, 2014, 03:35:40 pm por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Como leer caracter por caracter de una cadena string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1426
Último mensaje Julio 26, 2010, 11:42:21 am
por ANTRAX
Llamada de un formulario mediante el nombre como string

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1347
Último mensaje Julio 26, 2010, 04:08:58 pm
por ANTRAX
CharSplit7913 Separa un string en un array de caracteres.

Iniciado por 79137913

Respuestas: 0
Vistas: 4008
Último mensaje Febrero 04, 2013, 12:08:32 pm
por 79137913