elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  prueba de cifrado con operaciones logicas
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: prueba de cifrado con operaciones logicas  (Leído 906 veces)
b10s_0v3rr1d3

Desconectado Desconectado

Mensajes: 185

si puede hacerse debe hacerse


Ver Perfil WWW
prueba de cifrado con operaciones logicas
« en: 27 Enero 2010, 01:50 am »

pues eso, haciendo pruebas con estas funciones para un programa, termine un pequeño modulo haciendo varias operaciones con funciones logicas (not, xor, and....).
el codigo del modulo es:

Código
  1. ' esta funcion nos devuelve el valor en milisegundos desde la ultima vez que se encendio el sistema (hasta 49 dias)
  2. Private Declare Function GetTickCount Lib "kernel32.dll" () As Long
  3.  
  4. Public Function logicOp(ByVal text As String) As String
  5.     Dim temp As String
  6.     Dim op1 As Integer, op2 As Integer
  7.  
  8.     Randomize
  9.  
  10.     For x = 1 To Len(text)
  11.          op1 = Not (Asc(Mid(text, x, 1)))
  12.          op2 = (GetTickCount And Rnd())
  13.          temp = temp & Chr(Asc(Mid(text, x, 1)) Xor (CInt(Int((255 * Rnd()) + 1))) And (op2 Or op1 Xor Len(text)))
  14.     Next x
  15.  
  16.     logicOp = temp
  17. End Function

codigo de prueba:

Código
  1. Private Sub Form_Load()
  2.     MsgBox (logicOp("texto"))
  3. End Sub

un ejemplo:

[texto de prueba, que original xD] -> [Ý}[þO~ÆG#R_wGjÔî#WöÅ÷ïS[ßÉOsüÜ_G]

no es como el pgp, pero bueno xD
nos leemos :P


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines