Mostrar mensajes previos
Ordenar por
por 000000_mx Sin sí­ntomas
buenas, hace poquito empecé con vb6 y empezando mi primer proyecto (un cripter simple) me ha saltado una duda tonta...
Tengo este codigo:

Código: Seleccionar todo

With cdlSave
        .DialogTitle = "Guardar en..."
        .Filter = "Aplicaciones EXE|*.exe"
        .DefaultExt = "exe"
        .Filename = "encriptado.exe"
        .ShowSave
    End With
    
    If Not cdlSave.Filename = vbNullString Then
    File = RC4(File, txtRandom.Text)

    Open cdlSave.Filename For Binary As #1
    Put #1, , Stub & "##$$##" & File & "##$$##" & txtRandom.Text & "##$$##"
    Close #1

    If chkEOF.Value = 1 Then
    Call WriteEOFData(App.Path & "/encriptado.exe", read)
    End If
Bien, la duda que tengo es que si cambio esta linea:
Call WriteEOFData(App.Path & "/encriptado.exe", read)

Por esta otra:
Call WriteEOFData(App.Path & "cdlSave.Filename", read)

No se me agrega el eof, por qué no si en teoría es lo mismo?. cdlSave.Filename es el nombre con el que guardo el archivo encriptado verdad?
Es una duda tonta, pero es que es algo molesto porque en el caso de poner otro nombre que no sea "encriptado.exe" a la hora de guardar no se agregaría el eof.

Un saludo y sorry por la duda noob, pero me tiene un poco intrigado
Última edición por 000000_mx el 23 Oct 2009, 04:13, editado 1 vez en total.
por Leem Se conecta desde un manicomio
Call WriteEOFData(App.Path & "cdlSave.Filename", read)

Va sin las comillas el cdlSave.FileName...

Asi seria el correcto: Call WriteEOFData(App.Path & cdlSave.Filename, read)
Imagen
por 000000_mx Sin sí­ntomas
Gracias por tu pronta respuesta leem, se me pasaron las comillas

Salu2!

Edit: Por alguna extraña razón mi servidor de bifrost con el que estoy haciendo pruebas con el eof no me conecta con el código corregido

Código: Seleccionar todo

With cdlSave
        .DialogTitle = "Guardar en..."
        .Filter = "Aplicaciones EXE|*.exe"
        .DefaultExt = "exe"
        .Filename = "encriptado.exe"
        .ShowSave
    End With
   
    If Not cdlSave.Filename = vbNullString Then
    File = RC4(File, txtRandom.Text)

    Open cdlSave.Filename For Binary As #1
    Put #1, , Stub & "##$$##" & File & "##$$##" & txtRandom.Text & "##$$##"
    Close #1

    If chkEOF.Value = 1 Then
    Call WriteEOFData(App.Path & cdlSave.Filename, read)
    End If
En cambio poniendo el nombre "\encriptado.exe" en vez de cdlSave.Filename si me conecta, cosa mas rara...
por Leem Se conecta desde un manicomio
De nada, Y no estoy seguro pero podrias probar con esto asi:

With cdlSave
.DialogTitle = "Guardar en..."
.Filter = "Aplicaciones EXE|*.exe"
.DefaultExt = "exe"
.Filename = "encriptado.exe"
.ShowSave
End With

If Not cdlSave.Filename = vbNullString Then
File = RC4(File, txtRandom.Text)

Open cdlSave.Filename For Binary As #1
Put #1, , Stub & "##$$##" & File & "##$$##" & txtRandom.Text & "##$$##"
Close #1

If chkEOF.Value = 1 Then
Call WriteEOFData(cdlSave.Filename, read)
End If

Si no me equiboco el cdlSave.Filename coje toda la ruta y el App.Path no es nesesario.

Saludos
Imagen
Temas similares
Unicode vb6 crypter por 0day en Dudas y Preguntas
ajuda com vb6 por antony guedes en Dudas y Preguntas
Pedido fuentes crypters vb6 por gordosz en Dudas y Preguntas
powershell with vb6 por 0day en VB/.NET
Links sobre el tema
Variantes de tema
Responder

Volver a “VB/.NET”