add small feature to VBScript and compile into EXE

this VB script uploads to ftp server wehn dragging files on. convert to .exe so you cant decompile it and see the user/pass/server. root_path need to be set by GUI prompt. Option Explicit Dim WshShell Dim oExec Dim fso, ftpscrfile Dim arg, scriptsrc, ext, tempAry Dim username, password, server, rootdir, isBin, ftpscrfilename const BINARY_FILE = "bin" Const TEXT_FILE = "asc" username = "" password = "" server = "" rootdir = "" scriptsrc = "open " & server & vbCrLf & _ username & vbCrLf & _ password & vbcrLf & _ "cd " & rootdir & vbCrLf & _ "hash" & vbCrLf Set WshShell = [login to view URL]("[login to view URL]") Set fso = [login to view URL]("[login to view URL]") for each arg in [login to view URL] tempAry = split(arg, ".") ext = tempAry(ubound(tempAry)) if right(ext, 1) = chr(34) then ext = left(arg, len(arg) -1) isBin = true select case ext case "html", "htm", "txt", "asp", "php", "aspx", "css", "inc", "js", "vbs", "reg" isBin = false case else isBin = true end select select case isBin case true scriptsrc = scriptsrc & BINARY_FILE & vbCrLf case false scriptsrc = scriptsrc & TEXT_FILE & vbCrLf end select scriptsrc = scriptsrc & "put """ & arg & """" & vbCrLf next scriptsrc = scriptsrc & "bye" & vbCrLf ftpscrfilename = [login to view URL]("%Temp%") & "\[login to view URL]" set ftpscrfile = [login to view URL](ftpscrfilename, True) [login to view URL] scriptsrc [login to view URL] ftpscript Set oExec = [login to view URL]("cmd /c start /WAIT /MIN ftp -s:""" & ftpscrfilename & """") Do While [login to view URL] = 0 [login to view URL] 100 Loop [login to view URL] 100 [login to view URL] ftpscrfilename, true set oExec = nothing set ftpscrfile = nothing set fso = nothing set WshShell = nothing ## Deliverables 1) exe file that will be unable to decompile 2) working exe demo required for bidding - use your own ftp settings to show demo ## Platform windows XP