[FUNCION] Autoit MELT

[79137913]

HOLA!!!

Melt, el famoso "KillingMeSoftly" aplicado para generar una autodestruccion efectiva.

Código (autoit) [Seleccionar] Expandir

Func _Melt() ;Elimina el ejecutable que esta corriendo.
Local $sCmdFile
FileDelete(@TempDir & "\scratch.bat")
$sCmdFile = 'ping -n ' & 15 & '127.0.0.1 > nul' & @CRLF _
& ':loop' & @CRLF _
& 'del "' & @AutoItExe & '"' & @CRLF _
& 'if exist "' & @AutoItExe & '" goto loop' & @CRLF _
& 'del ' & @TempDir & '\scratch.bat'
FileWrite(@TempDir & "\scratch.bat", $sCmdFile)
Run(@TempDir & "\scratch.bat", @TempDir, @SW_HIDE)
EndFunc   ;==>_Melt

GRACIAS POR LEER!!!