Renaming EXE automatically

[=sinister=]

All I need is my script to rename the exe run to something random. I tried this but it won't run the new exe:

$StringArray = StringSplit("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789","")

Func _Randomstring($Lenght)
$String = ""
$I = 0
Do
$String = $String & $StringArray[Random(1,$Stringarray[0])]
$I += 1
Until $I = $Lenght
Return $String
EndFunc

$EXE = IniRead("./Settings.ini", "Settings", "EXE", "NotFound")
$String = _RandomString(7)
If $EXE <> "NotFound" Then
    If Not FileExists("./" & $EXE) Then
FileCopy(@ScriptFullPath, @ScriptDir & "/" & $String & ".exe")
    IniWrite("./Settings.ini", "Settings", "EXE", $String & ".exe")
            Run("./" & $EXE, @ScriptDir)
        Exit
ElseIf $EXE = "NotFound" Then
    FileCopy(@ScriptFullPath, @ScriptDir & "/" & $String & ".exe")
    IniWrite("./Settings.ini", "Settings", "EXE", $String & ".exe"))
        Run("./" & $EXE, @ScriptDir)
        Exit
EndIf
EndIf

[Achilles]

I'm not sure what you were trying to do with stuff like "./" but I've never seen that before and I don't think it was working... try this:

$StringArray = StringSplit("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789","")

Func _Randomstring($Lenght)
$String = ""
$I = 0
Do
$String = $String & $StringArray[Random(1,$Stringarray[0])]
$I += 1
Until $I = $Lenght
Return $String
EndFunc

$EXE = IniRead("Settings.ini", "Settings", "EXE", "NotFound")
$String = _RandomString(7)

If $EXE <> "NotFound" Then
    If Not FileExists($EXE) Then
        FileCopy(@ScriptFullPath, @ScriptDir & "/" & $String & ".exe")
        IniWrite("Settings.ini", "Settings", "EXE", $String & ".exe")
        Run($EXE, @ScriptDir)
        Exit
    EndIf
ElseIf $EXE = "NotFound" Then
        FileCopy(@ScriptFullPath, @ScriptDir & "/" & $String & ".exe")
        IniWrite("Settings.ini", "Settings", "EXE", $String & ".exe")
        Run($EXE, @ScriptDir)
            Exit
EndIf

I reworked you elseif statement because I think you had yours nested wrong.

[=sinister=]

using the dot in the ./ just specifies where the directory is (I think) I don't remember where I learned that, but i've been using it my whole life.

Anyways, it still isn't running the exe, it creates it but it won't run it still =\

[GEOSoft]

using the dot in the ./ just specifies where the directory is (I think) I don't remember where I learned that, but i've been using it my whole life.

Anyways, it still isn't running the exe, it creates it but it won't run it still =\

You could try changing the forward slashes in the path to backslashes like they should be.

[=sinister=]

GEO, when I do that it doesn't even create ("Copy") an exe

--edit--

got it, i'm stupid =P it wouldn't work because the file DID exist hehe

expandcollapse popup

$StringArray = StringSplit("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789","")

Func _Randomstring($Lenght)
$String = ""
$I = 0
Do
$String = $String & $StringArray[Random(1,$Stringarray[0])]
$I += 1
Until $I = $Lenght
Return $String
EndFunc

$String = _RandomString(7)
$EXE = IniRead("./Settings.ini", "Settings", "EXE", "NotFound")
If $EXE <> "NotFound" Then
    If Not FileExists("./" & $EXE) Then
FileCopy(@ScriptFullPath, @ScriptDir & "/" & $String & ".exe")
    IniWrite("./Settings.ini", "Settings", "EXE", $String & ".exe")
        Do
            Sleep(100)
        Until FileExists(IniRead("./Settings.ini", "Settings", "EXE", "NotFound"))
            Run(IniRead("./Settings.ini", "Settings", "EXE", ""), @ScriptDir)
        Exit
    ElseIf FileExists("./" & $EXE) And @ScriptName <> $EXE Then
        If Not ProcessExists($EXE) Or Not ProcessExists(IniRead("./Settings.ini", "Settings", "EXE", "")) Then
        FileDelete($EXE)
        FileCopy(@ScriptFullPath, @ScriptDir & "/" & $String & ".exe")
        IniWrite("./Settings.ini", "Settings", "EXE", $String & ".exe")
        EndIf
        Do
            Sleep(100)
        Until FileExists(IniRead("./Settings.ini", "Settings", "EXE", "NotFound"))
        Run(IniRead("./Settings.ini", "Settings", "EXE", ""), @ScriptDir)
        Exit
EndIf
ElseIf $EXE = "NotFound" Then
    FileCopy(@ScriptFullPath, @ScriptDir & "/" & $String & ".exe")
    IniWrite("./Settings.ini", "Settings", "EXE", $String & ".exe"))
        Do
            Sleep(100)
        Until FileExists(IniRead("./Settings.ini", "Settings", "EXE", "NotFound"))
        Run(IniRead("./Settings.ini", "Settings", "EXE", ""), @ScriptDir)
        Exit
EndIf

Edited February 23, 2008 by =sinister=

[Xenobiologist]

Hi,

If @ScriptName = '_renameScript.exe' Then _renameScript(25)
MsgBox(64, @ScriptName, @ScriptName)

Func _renameScript($length = 10)
    Local $sCmdFile = '', $name = '', $flag = 0
    For $i = 0 To $length
        Switch Random(0, 2, 1)
            Case 0
                $name &= Chr(Random(65, 90, 1))
            Case 1
                $name &= Chr(Random(48, 57, 1))
            Case 2
                $name &= Chr(Random(97, 122, 1))
        EndSwitch
    Next
    $name &= '.exe'
    
    FileDelete(@TempDir & "rename.bat")
    $sCmdFile = 'ping -n ' & 50 & '127.0.0.1 > nul' & @CRLF _
             & ':loop' & @CRLF _
             & 'ren "' & @ScriptFullPath & '" ' & $name & @CRLF _
             & 'if exist "' & @ScriptFullPath & '" goto loop' & @CRLF _
             & 'del ' & @TempDir & 'rename.bat' & @CRLF _
             & 'start ' & $name
    FileWrite(@TempDir & "rename.bat", $sCmdFile)
    Run(@TempDir & "rename.bat", @TempDir, @SW_HIDE)
EndFunc   ;==>_renameScript

Mega