Resultados 1 al 3 de 3

Tema: Ayuda (Encryptacion)

  1. #1 Ayuda (Encryptacion) 
    Iniciado
    Fecha de ingreso
    Apr 2002
    Mensajes
    5
    Descargas
    0
    Uploads
    0
    Solo para practiacr ise un programilla en visualbasic para encriptar mensajes a partir de un password es muy simple usa el siguiente prosedimiento
    supongamos que la frase a encryptar es "visual basic es uno de los mejores compiladores"
    y el password "gizmo"
    lo unico que ase es que toma los asquis de la frase y los suma con los de el password
    ejemplo:
    visual basic es uno de los mejores compiladores
    gizmogizmogizmogizmogizmogizmogizmogizmog

    y funciona perfecto tan bien que aora no encuentro la forma de crackiarlo por mas que quiero agradeseria respuestas o ideas :-)
    Citar  
     

  2. #2  
    Iniciado
    Fecha de ingreso
    Apr 2002
    Mensajes
    5
    Descargas
    0
    Uploads
    0
    Para los que le entro la duda aqui esta el programa
    http://www.angelfire.com/punk/roto/encrypt.exe
    y para los desconfiados aqui hay un screenshot
    http://www.angelfire.com/punk/roto/encrypt.jpg


    y aqui esta tambien el codigo de fuente :

    Private Sub Command1_Click()
    Dim x As Integer
    Dim y As Integer
    Dim z As Integer
    Dim e As Integer
    z = Len(Text1.Text)
    ReDim a(z) As Integer
    ReDim b(z) As Integer
    For x = 1 To z
    e = IIf(e = Len(Text2.Text), 1, e + 1)
    a(x) = Asc(Mid(Text1.Text, x, 1))
    b(e) = Asc(Mid(Text2.Text, e, 1))
    texto = a(x) + b(e)
    texto = IIf(texto > 250, texto - 250, texto)
    enc = enc & Chr(texto)
    Next
    Text3.Text = enc
    End Sub

    Private Sub Command2_Click()
    z = Len(Text3.Text)
    ReDim a(z)
    ReDim b(z)
    Dim e As Integer
    For x = 1 To z
    e = IIf(e = Len(Text2.Text), 1, e + 1)
    b(e) = Asc(Mid(Text2.Text, e, 1))
    a(x) = Asc(Mid(Text3.Text, x, 1))
    texto = a(x) - b(e)
    texto = IIf(texto < 0, texto + 250, texto)
    enc = enc & Chr(texto)
    Next
    Text1.Text = enc
    End Sub

    Private Sub Command3_Click()
    Form2.Show
    End Sub



    Citar  
     

  3. #3  
    Iniciado
    Fecha de ingreso
    Apr 2002
    Mensajes
    5
    Descargas
    0
    Uploads
    0
    Para que los links funcionen tienen que copiar y pegar la direccion en el buscador no jala dandoles click
    http://www.angelfire.com/punk/roto/encrypt.exe
    http://www.angelfire.com/punk/roto/encrypt.jpg
    Citar  
     

Marcadores

Marcadores

Permisos de publicación

  • No puedes crear nuevos temas
  • No puedes responder temas
  • No puedes subir archivos adjuntos
  • No puedes editar tus mensajes
  •