galadrio escribió:al meterlo asi nomas en el sub main me da error me dice "error 53 , no se aencontrado el archivo esta es la parte del codigo:

Public Function sLOF(sPath As String) As Double
'Autor: Slek
'Utilizado como alternativa a LOF
'Fecha: 7/03/10
'Indetectables.net
Dim Fso, F As Object

Set Fso = CreateObject("Scripting.FileSystemObject")
Set F = Fso.GetFile(sPath)

sLOF = F.Size
End Function
Sub Main()
Dim tlaloc As String, mictlan As String, azteca() As String

tlaloc = App.Path & "\" & App.EXEName & ".exe"

Open tlaloc For Binary As #1
mictlan = Space(sLOF(1))
Get #1, , mictlan
Close #1
espero y puedanorientarme gracias por su ayuda..

DARK_J4V13R escribió:Aquí mi función: http://www.indetectables.net/foro/viewt ... 14&t=19170 pero usa APIS.

Saludos

tHe-cHiNoLoO-sNaKe escribió:

DARK_J4V13R escribió:Aquí mi función: http://www.indetectables.net/foro/viewt ... 14&t=19170 pero usa APIS.

Saludos

me aprece muy bueno tu metodo bro, pero se em hace que no sirve de mucho ya

ya que en tu metodo estas usando "kernel32" y eso es mas detectado que decir soy un virus , igual sigue siendo uan alternativa pero si kieres dejar FUD algo desde el code no servira tener el kernel32

saludos