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
EndFuncRequiere #include "Zip.au3"
Link: [Enlace externo eliminado para invitados]
Saludos
