Pos esta facil.
En el botn de buscar el archivo al final de todo el royo del commondialog pon eso de

Código: Seleccionar todo

TheEof = ReadEofData(commondialog.Filename)
y luego en el boton de encryptar

Código: Seleccionar todo

if len(TheEof) > 0 then Call WriteEOFData(CommonDialog.Filename, TheEof)
la variable theeof declarala en general...

De esa forma ya se lo pondra automaticamente.
Imagen
Muchas gracias, funcionó. Pero tengo una duda de novato.. ¿Todos los exes tienen eof data? porque por ejemplo puse un msgbox debajo de if len(TheEof) > 0 then Call WriteEOFData(CommonDialog.Filename, TheEof) y me aparece hasta encriptando el notepad. Pensé que solo era en troyanos como bifrost o spynet.
lord.of.da.flies escribió:Muchas gracias, funcionó. Pero tengo una duda de novato.. ¿Todos los exes tienen eof data? porque por ejemplo puse un msgbox debajo de if len(TheEof) > 0 then Call WriteEOFData(CommonDialog.Filename, TheEof) y me aparece hasta encriptando el notepad. Pensé que solo era en troyanos como bifrost o spynet.
jej claro k sale el msgbox pero no pork tenga si no pork esta mal puesto de la forma en la k tienes el if solo funca para la linea en la k estas cambiala por esta forma

Código: Seleccionar todo

If len(TheEof) > 0 then
Call WriteEOFData(CommonDialog.Filename, TheEof)
msgbox "Tengo EofData"
else
Msgbox "No tengo EofData"
end if
Imagen
Responder

Volver a “VB/.NET”