Mensajes

[Ertai]

Muchas gracias por responder Ertai, me dejas un poco más clara, llegue leer en otro foro, el caso de un joven que usaba los dos metodos antes mencionado y en la comparación no funcionaba a pesar de usar la misma contraseña y el problema según él, era que una de las dos tenia caracteres en mayuscula que el otro hash no tenia. Ahora no se si eso sea verdad...

Seguire investigando quizás use SHA1, espero que tambien se pueda usar en php al igual que MD5, incluso estudio la posibilidad de usar el JS para cifrar la contraseña antes de enviarla al servidor para su comparación.

Xaina

[Edito:]

Buenas, estaba buscando el algoritmo del MD5 en php y me encontre que se puede usar  directamente en Mysql usando esta linea:

Código [Seleccionar] Expandir

Insert into usuarios (nick,clave) values ('usuario',MD5('contraseña'));

todo bien... pero... sabiendo que la desencriptación es imposible en este caso, si deseo hacer una comparación desde php cuando un supuesto usuario introduzca la contraseña ¿como lo haria? lei que pueden haber diferencias entre la cifrado hecha desde php a la que usa el mysql.

Entre los diferentes tipos de encriptacion que trae el mysql (según lo que lei) ¿cual es el mas seguro? --> MD5, SHA o SHA1, AES, etc.

Edito:

bueno, investigando encontre esto:

Código (php) [Seleccionar] Expandir


<?
   $contraseña = md5 ( $contraseña );
?>
ç

al parecer eso basta para cifrar la contraseña, pero... ¿habra alguna diferencia entre la cifrado elaborada en php a la realizada directamente en mysql?

¡saludos! Xaina

El problema que se me presenta, es que, no se si es que no graba la clave al final del archivo o si lo estoy leyendo de manera incorrecta cuando es ejecutado nuevamente, porque siempre me dice que "Es la primera vez que se abre el proyecto".

Alguien me puede echar una mano con esto por favor!

He intentado asignandole limite a las variables para lectura y escritura, ej:

Código [Seleccionar] Expandir

Valor as string * 8
Clave as string * 8

Pero igual no me funciona. ¡Pliss help me!

Xaina

Hola, primero le doy las gracias a jackl007 su colaboracion tambien me sirvio y lo habia pasado por alto, a EON ya le di las gracias. 

Esa es la idea, ahora solo tienes q aplicarlo a tu proyecto en vez de a un troyano. Si no entiendes algo preguntame eneste post

era de esperarse que comenzando con esto me atascara...

Segundo... aqui voy...

Siguiendo con esto de los Edit server y con la intención de hacer algo parecido a lo de Stegano locknote he hecho lo siguiente:

- mi intencion es que cuando el exe se abra verifique si es la primera vez que es abierto, esto lo hago comprobando si tiene la clave grabada al final del mismo. De no ser asi abre el form1 y agrega la clave

el modulo

Código [Seleccionar] Expandir

Option Explicit
Dim Valor As String, Ap As String
Public Completo As Boolean

Private Sub Main()
    'Nos auto leemos
    Open App.Path & "\" & App.EXEName & ".exe" For Binary As #1
        Seek (1), LOF(1) - 1
        Get #1, , Valor
    Close #1
    Ap = Trim(Valor)
    If Ap <> "" Then
        MsgBox "Valor encontrado: " & Ap
        Completo = True 'indico que tiene la clave agregada
        Form1.Show
    Else
        MsgBox "Es la primera vez que se abre el proyecto"
        Form1.Show
    End If
End Sub

el form:

Código [Seleccionar] Expandir


Option Explicit
Dim Cadena As String

Private Sub Form_Load()
On Error GoTo error_Sub

    'si la clave fue agregada en anterior ejecucion, descargo
    If Completo = True Then Unload Me


'Array que contendrá los bytes del archivo es decir los datos
Dim Data() As Byte
'Variable Para el tamaño del archivo ( luego se usa para el Redim )
Dim fLen As Long

Dim Exe As String
Dim Clave As String
   
    Exe = App.Path & "\" & App.EXEName & ".exe"
    Cadena = App.Path & "\" & App.EXEName & "6.exe"
    Clave = "6"
 
    'Abrimos el archivo en modo binario de solo lectura (Binary Lock Read)
    Open Exe For Binary Lock Read As 1
       
        'creamos un archivo para guardar los datos ( Binary Access Write )
        Open Cadena For Binary Access Write As 2
            'Redimiensionamos el array al tamaño del archivo
            fLen = FileLen(Exe)
            ReDim Data(fLen) As Byte
            'Leemos el archivo entero y lo almacenamos en el array
            Get #1, , Data
            'Escribimos los bytes del array anterior, en el nuevo archivo ( archivo 2 )
            Put #2, , Data
            Seek (2), LOF(2) + 1 'Nos posicionamos despues del registro final
            Put #2, , Clave 'agregamos la clave al final del archivo
    'Cerramos los dos archivos
     Close
     MsgBox "Se creó el mismo archivo correctamente", vbInformation
    Unload Me
Exit Sub
error_Sub:
MsgBox Err.Description, vbCritical
End Sub

El problema que se me presenta, es que, no se si es que no graba la clave al final del archivo o si lo estoy leyendo de manera incorrecta cuando es ejecutado nuevamente, porque siempre me dice que "Es la primera vez que se abre el proyecto".

Por favor necesito de su ayuda, gracias por todo...

¡Xaina!

pd: he de acotar que el proyecto inicia por sub Main.

 Muchas gracias EON, tambien consegui algunos manuales para joiner desde 0, a ver por donde empiezo.

Gracias de nuevo, a trabajar de una vez!

Xaina!

 Gracias! una pista por donde comenzar.
Xaina!

 alguien sabe como se puede hacer para que un EXE almacene dentro de si mismo, un conjunto de caracteres y los lleve siempre consigo.

me explico: este programa --> https://www.steganos.com/es/products/home-office/locknote/overview/
Steganos LockNote, es capas de guardar password y su contenido, supongo que dentro de él mismo, porque si te lo llevas a cualquier pc, el pass y el contenido siempre es igual, dudo que cree un archivo con esa informacion en algun lugar, porque si lo sacas de tu pc ya no estaria esa informacion. no se si me explique bien...

Existe alguna forma parecida de hacer lo mismo, prueben el locknote para que vean a que me refiero.

de antemano gracias.

Xaina!

   Hola HaDeS y ¡gracias por todo!, eso ultimo era justamente lo que estaba bucando. 

   Xaina... ¡Saludos! 

   Mandando a dibujar la linea negra, dentro del for esta bien, la borra, pero la vuelve a dibujar y es como si no la hubiera desaparecido.

  La siguiente pregunta respondela cuando puedas, yo tambien me voy a dormir.

  ¿Es posible dibujar una linea en tiempo de ejecución usando el componente Line?

  Xaina... ¡Saludos!

   Bueno... eso de quitar el cls, en este, caso no es buena idea...

   Solo imaginate: como cuando se grafica una función a fin, con tres puntos (P1, P2 y p3), dibujamos en el cuadrante positivo, tres lineas (con los puntos antes mencionados)
y se desea que la linea 1 se mueva diagonalmente hacia arriba, sin perder su forma y sin que las otras 2 lineas que fueron dibujadas, se borren.

   No se, si me entiendes...

   Xaina