Uni sencilla alternativa a LOF, he decidido postearlo por que varios usuarios me han pedido esta función.

sLOF
Modo de empleo/Ejemplo:
Saludos!

Muy buena!!! A la seccion inglesa!

Salu2

Nada mal Slek

Muy Buena hermano la pondre en practica Muchas gracias usted siempre aportando cosas nuevas con esta podremos sacar al señor AA

El "lof" es detectador por los avs?

Si es asi, gracias por la alternativa, la aplicare de ahora en adelante

goudi escribió:El "lof" es detectador por los avs?

Si es asi, gracias por la alternativa, la aplicare de ahora en adelante

Así es, las lineas Space(Lof(..)) ya son detectadas, por eso mejor ya vale remplazarlas, tambien puedes usar Len o FileLen para leer archivos cuando no tengas los bytes almacenados en una string

Genial amigo......, no paras de sorprender.....

Great replacement, after the Split made by Cobein this was needed too. Good work Man

goudi escribió:El "lof" es detectador por los avs?

Es parte de la detección de Avira

Saludos

eso de space(LOF()) ya era detectado hace tiempo yo uso esto :P String(Lof(),vbnullchar) o lo k kieran reemplazar x vbnullchar, chr(0), "S", ..... kmbiar ese metodo seria mas korto XD d toas maneras ta bueno Slek Salu2..

Smokes, lo que pasa es que sigues usando Lof:

String(Lof(),vbnullchar)

Por eso cree esta función :D

P.D: Gracias por sus comentarios.

Saludos!

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

Saludos

disculpen mi ignorancia pero estoy haciendo un cripter por mi cuenta y me interesa agregar estos metodos, ¿ como puedo agregar la funcion? pegandola a un modulo de clase? a un modulo normal , o directamente al codigo para poder emplearla dentro de este mismo? gracias por sus metodos espero y alguine pueda explicarme gracias....

Pues simplemente ponlo en el mismo módulo del Sub Main.

Saludos!

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