Página 1 de 1

Autodetección de eof data

Publicado: 14 Ago 2009, 05:03
por lord.of.da.flies
Quisiera agregarle esa opción a mi cripter en vb...¿Alguna idea? (se como hacerlo con el checkbox pero quiero que lo detecte automáticamente)

Re: Autodetección de eof data

Publicado: 14 Ago 2009, 12:28
por LuOpP
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.

Re: Autodetección de eof data

Publicado: 14 Ago 2009, 17:36
por lord.of.da.flies
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.

Re: Autodetección de eof data

Publicado: 14 Ago 2009, 17:56
por LuOpP
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