File To VBS

Всем привет. Я решил поделиться очередной прогой собственного изготовления.
Ее назначение: создать VBS скрипт из любого файла.
Для этого достаточно перетащить его на прогу.

Предоставляется в двух вариантах:
1. VBS просто распаковывает файл рядом с собой http://zalil.ru/32717979
2. То же самое, но файл запускается после распаковки http://zalil.ru/32717981

В помощью этой проги удобно создавать переносимые файлы. Допустим передавать через буфер обмена на дедик без использования файлообменников или прятать файлы от антивируса (но при распаковке файл всеравно спалится)

Обо всех найденных багах пишите в этой теме.

Upd! Перезалил, выложил исходник

 

Перезалей?

Перезалей?...Плизз...очень надо!
ато эти ссылки неработают\наверно устарели\или удалили их!

 

Перезалил (см. первый пост)
Исходник to_vbs_and_run (Power Basic)

Code:

#Compile Exe
#Dim All

Function PBMain () As Long
  Local fin&, fout&, file_name$, tmp$, OutBuf$, a As Byte, c&, i&
  i = 1
  Do
    file_name = Command$(i)
    If Left$(file_name, 1) = $Dq Then file_name = Right$(file_name, Len(file_name) - 1)
    If Right$(file_name, 1) = $Dq Then file_name = Left$(file_name, Len(file_name) - 1)
    If Not IsFile(file_name) Then Exit Do

    fin = FreeFile
    Open file_name For Binary Access Read Lock Write As #fin
    fout = FreeFile
    Open file_name & ".vbs" For Output Access Write Lock Write As #fout
    file_name = PathName$(Namex, file_name)
     Print #fout, "n=" & $Dq & file_name & $Dq & ":b=_" & $CrLf & $Dq;

    Do Until Eof(fin)
      Get #fin,, a
      If a < 16 Then OutBuf & = "0"
      OutBuf & = Hex$(a)
      If Len(OutBuf) = 200 Then
        Print #fout, OutBuf & $Dq & "&_" & $CrLf & $Dq;
        OutBuf = ""
      End If
    Loop
    Print #fout, OutBuf & $Dq & ":c=len(b):for x=1 to c:ch=asc(mid(b,x,1)):if ch>=65 and ch<=70 then ch=ch-55 else ch=ch-48:end if:if x mod 2=1 then d=ch*16 else o=o&chr(d+ch):d=0:end if:next:" & _
      "set fso=createobject(""Scripting.FileSystemObject""):fso.createtextfile n,1,True:set f=fso.getfile(n):set fs=f.OpenAsTextStream(2,0):fs.write left(o,len(o)-1):fs.close:set s=CreateObject(""WScript.Shell""):s.run(n)"
'      "set fso=createobject(""Scripting.FileSystemObject""):fso.createtextfile n,1,True:set f=fso.getfile(n):set fs=f.OpenAsTextStream(2,0):fs.write left(o,len(o)-1):fs.close"

    Close #fin
    Close #fout
    ! inc i
  Loop
  MsgBox "OK"
End Function