Indetectables

Bueno una función para obtener el EOF.

'uso
'dim cadena as string
'cadena=GetEOF("C:\Documents and Settings\Dark\Escritorio\1.exe")

Function GetEOF(FilePath As String) As String
Dim pPEHeader As Long
Dim RawSize As Long
Dim RawOffset As Long
Dim NS As Integer
Dim FUS As Long
Dim PET As Long
Dim RT As Long
Dim EOFmas As String
Dim Fin As Long
Open FilePath For Binary As #1
Get #1, 61, pPEHeader
Get #1, pPEHeader + 7, NS
FUS = pPEHeader + 248 + ((NS - 1) * 40)
Get #1, FUS + 17, RawSize
Get #1, FUS + 21, RawOffset
PET = RawSize + RawOffset
RT = FileLen(FilePath)
Fin = RT - PET
EOFmas = Space(Fin)
Get #1, PET + 1, EOFmas
Close #1
GetEOF = EOFmas
End Function

saludos

buena funcion tio, a ver si algun dia hablamos y me cuentas los detalles de la funcion para traducirla al C,salu2 marica

Exelente aporte Pink, gracias.

Un día de entro al msn bro es que el trabajo no me deja :S
saludos feo.


gracias Leizerbick :)

No lo habia visto... muy buena la funcion Pink. Gracias Che.

Muchas gracias por el creador Pink!