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

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  cifrar y Descencriptar cadenas (source)
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: cifrar y Descencriptar cadenas (source)  (Leído 4,279 veces)
vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
cifrar y Descencriptar cadenas (source)
« en: 1 Noviembre 2008, 19:35 pm »

bueno honestamente yo usaba uno q saque de internet q una sola funcion realizaba las dos tareas (descencriptar y cifrar) pero nunca lo habia entendido...
ahora no se xq se me ocurrio mirarlo, con mas conociminetos y me di cuenta q es xq usa el comando Xor (estuve investigando q es... no es nada jodido..) y pense xq no hacer uno yo xD...
y bueno lo hice :P, la verdad no se si habra uno parecido (no creo q igual ¬¬) en internet xq ni me fije xD pero a este lo hice yo :P
lo bueno q le veo a este code es q si cifrar x ejemplo AAAA el resutaldo no van a ser 4 caracteres iguales sino q todos distintos :P

Código
  1. Private Function cifrar(Cadena As String)
  2. Dim Tam As Long
  3. Dim i As Long
  4. Tam = Len(Cadena)
  5. cifrar = ""
  6. For i = 1 To Tam
  7.    cifrar = cifrar & Chr(Asc(Mid(Cadena, i, 1)) + Tam - i + 10)
  8. Next
  9. End Function
  10.  
  11. Private Function Descencriptar(Cadena As String)
  12. Dim Tam As Long
  13. Dim i As Long
  14. Tam = Len(Cadena)
  15. Descencriptar = ""
  16. For i = 1 To Tam
  17.    Descencriptar = Descencriptar & Chr(Asc(Mid(Cadena, i, 1)) - Tam + i - 10)
  18. Next
  19. End Function

bueno no se xD si les sirve o quieren opinar o conocen algun otro copado :P


En línea

s E t H

Desconectado Desconectado

Mensajes: 152


Ha tenido un sueño donde todos los pollos eran libres de cruzar una carretera sin tener que justificar sus actos.


Ver Perfil WWW
Re: cifrar y Descencriptar cadenas (source)
« Respuesta #1 en: 1 Noviembre 2008, 20:58 pm »

trata de cifrar esto:
chr(1) & chr(1) & chr(1)

no probe, pero creo que da un resultado negativo y falla al hacer el chr()
para solucionarlo podes hacer que cuando quede abajo del 0 siga desde 255


En línea

SKL (orignal)

Desconectado Desconectado

Mensajes: 259


UpLoadSourceCode


Ver Perfil WWW
Re: cifrar y Descencriptar cadenas (source)
« Respuesta #2 en: 1 Noviembre 2008, 23:08 pm »

yo hice algo muy muy parecido, pero convertia el caracter en ascii y despues le sumaba algun valor, entonces siempre me iba a quedar numeros de 3 sifas. despues con el descifrar le restaba el numero a las 3 cifras y lo convertia en caracter. todo eso con un for que iba de 3 en 3...

Aca te dejo uno, pero este no sumba ningun valor, solo converte el caracter

Código:
Private Sub Command1_Click()
    Dim s As String
    s = UCase(Text1)
    Text2 = ""
    For i = 1 To Len(s)
        Text2 = Text2 & "0" & Asc(Mid(s, i, 1))
    Next
End Sub

Private Sub Command2_Click()
    Dim s As String
    s = Text2
    Text2 = ""
    For i = 1 To Len(s) Step 3
        Text2 = Text2 & Chr(Val(Mid(s, i, 3)))
    Next
End Sub

saludos =)
En línea

vivachapas


Desconectado Desconectado

Mensajes: 612



Ver Perfil
Re: cifrar y Descencriptar cadenas (source)
« Respuesta #3 en: 2 Noviembre 2008, 00:33 am »

trata de cifrar esto:
chr(1) & chr(1) & chr(1)

no probe, pero creo que da un resultado negativo y falla al hacer el chr()
para solucionarlo podes hacer que cuando quede abajo del 0 siga desde 255

mmm la onda es cifrar texto plano xD...
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[SOURCE] Codificador de cadenas :P (act)
Programación Visual Basic
79137913 0 1,855 Último mensaje 7 Febrero 2011, 19:04 pm
por 79137913
[C] [source] Revertir Cadenas « 1 2 »
Programación C/C++
.::DoX::. 11 9,704 Último mensaje 20 Agosto 2011, 03:45 am
por BlackZeroX
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines