Mensajes

Solo es una idea pero podrias hacer k las posibles contraseñas fueran algo komo

056-(numero aleatorio entre 120 y 150)-(numero aleatorio entre 130 y 360)- Suma de los numeros anteriores.

ej: 056-147-299-446

K el keygen generara una serie komo esa y k la aplicacion acepte las contraseñas k entren en esa descripcion.
Lo k habria k hacer es complicarlo un poko mas.
A partir de eso kreo k podras

Saludos

es un codigo sencillito k hice mientras tenia estropeado internet

Código [Seleccionar] Expandir

Private Sub cmdDesencriptartxt_Click()
clave = Mid$(Text1.Text, 2, 2)
Label1.Caption = "LOADING. . ."
DoEvents
For i = 5 To Len(Text1.Text)
    c = Mid$(Text1.Text, i, 1)
    If c = " " Then
        code = code & " "
    Else
        code = code & Chr$(Asc(c) + clave)
    End If
Next
Text1.Text = code
i = 1
c = ""
code = ""
cmdDesencriptartxt.Enabled = False
clave = 0
Label1.Caption = ""
End Sub

Private Sub cmdEncriptartxt_Click()
Randomize timer
Label1.Caption = "LOADING. . ."
DoEvents
r = Int(Rnd * 16) + 10
For i = 1 To Len(Text1.Text)
    c = Mid$(Text1.Text, i, 1)
    If Asc(c) - r < 1 Then
        On Error Resume Next
    ElseIf c = " " Then
        code = code & c
    Else
        code = code & Chr$(Asc(c) - r)
    End If
       
Next
Text1.Text = "[" & r & "]" & code
clave = r
code = ""
c = ""
r = 0
i = 1
cmdEncriptartxt.Enabled = False
cmdDesencriptartxt.Enabled = True
Label1.Caption = ""
End Sub

Las variables i, c, r, code y clave estan declaradas de forma global. Hace mucho k no miro el codigo, lo hice deprisa y corriendo asi k tampoco me acuerdo muy bien como iba.

A parte del problema mencionado antes, si encontrais algun fallo(k seguro k lo hay) hacedmelo saber ,ok?


Saludos.

Ole!
ahora mismo lo pruebo.

THANKS.

Weno... puede k si, un momento k la escalo con el gimp


AHHggHH!
k borrosa!, one moment please...

si la reduzco mas se ve demasiado borrosa...
Si veo k molesta demasiado la cambio dentro de unos dias.

Ahora k me iba no me kites la ilusión XD

Aja...
Me lo parece a mi o estas decidida a ser tu quien tenga ultima palabra  es broma.

Antes tambien he intentado poner la imagen pero subida al fotolog, no se si lo conoces, por lo k me han dicho tambien va muy bien para tener imagenes en internet.


Saludos.

Ya veo, y por las mismas con el avatar es igual , no?

Pos nada, problema resuelto.

Thanks again Miss GreenDevil

weno... lo k kuenta es k ya esta.
Ahora todo el mundo puede disfrutar de mi imagen.

Gracias a todos y saludos (en especial a Greendevil)

Hola a todos, el problema es el siguiente.
Estoy haciendo una aplicacion que coje cada caracter del tec¡xto k le indiques, lo pasa al codigo ASCII y le resta un numero alaetorio entre el 10 y el 25 (ese numero aleatorio es el mismo para todo el text y se guarda en el mismo al encriptarlo.
El problema es k al desencriptarlo, en las partes en las k habia un punto y aparte no lo detecta y pone un punto y aparte. Por lo k el texto queda un tanto diferente.
Komo puedo evitarlo?
Otro problñema es k solo me deja abrir textos del formato ".txt", he probado con los formatos ".doc" o ".wps" y el vb me dice algo como "Input past of file" o algo asi.
Alguna idea?

Ok, ya esta hecho.
La primera vez ya lo habia hecho asi pero escogi el link equvocado.

Muchas cracias!

Por ahi he visto mas de un programa k permitia poner contraseñas a las carpetas y archivos (hace mucho tiempo asi k no preunteis por nombre o lenguaje).
Dudo mucho k sea imposible hacer algo asi en VB
A mi tambien me interesa hacer un programa de ese tipo