Защита скриптов
Модератор: Модераторы
Сообщений: 7
• Страница 1 из 1
lda » 27 май 2005, 18:39
Доброго времени суток.
У меня такой вопрос:
Возможно ли каким-то образом защитить код скрипта от посторонних, например переделать скрипт VBS в exe файл?
Если можно, то подскажите как или дайте ссылку на документацию.
Заранее огромное спасибо.
У меня такой вопрос:
Возможно ли каким-то образом защитить код скрипта от посторонних, например переделать скрипт VBS в exe файл?
Если можно, то подскажите как или дайте ссылку на документацию.
Заранее огромное спасибо.
- Stratofortress
- хм...
-
- Сообщения: 611
- Зарегистрирован: 07 апр 2004, 17:10
- Откуда: ссср
Stratofortress » 27 май 2005, 18:45
lda
) а как мне защитить .bat (.cmd) файлы? конверт их в .exe?
да не пишите вы скриптов. пишите на vb (vb.net).)
) а как мне защитить .bat (.cmd) файлы? конверт их в .exe?
да не пишите вы скриптов. пишите на vb (vb.net).
)нет времени разбираться — наймите того, кто знает.
- Stratofortress
- хм...
-
- Сообщения: 611
- Зарегистрирован: 07 апр 2004, 17:10
- Откуда: ссср
Stratofortress » 27 май 2005, 20:10
http://msdn.microsoft.com/library/defau ... syntax.asp
http://www.soft32.com/download_22881.html
и на всякий случай http://www.interclasse.com/scripts/decovbe.php
http://www.soft32.com/download_22881.html
и на всякий случай http://www.interclasse.com/scripts/decovbe.php
нет времени разбираться — наймите того, кто знает.
- Stratofortress
- хм...
-
- Сообщения: 611
- Зарегистрирован: 07 апр 2004, 17:10
- Откуда: ссср
Stratofortress » 27 май 2005, 20:24
и ещё… http://www.hide-folder.com/overview/hf_7.html
но если посмотреть внимательно на результат, то… в общем, смешно это.
но если посмотреть внимательно на результат, то… в общем, смешно это.
нет времени разбираться — наймите того, кто знает.
lda » 27 май 2005, 21:34
Спасибо за оперативную помощь. 
Согласен, что мой подход несовсем правильный.
Буду думать...
Согласен, что мой подход несовсем правильный.
Буду думать...
xgmann » 01 июн 2005, 13:50
Защитить можно и не надо никаких exec'ов. Прочитать то, что получиться практически никто не сможет. Применять нужно кодирование файла vbs или js, также можно кодировать встроенные скрипты в html- страницы.
Для кодировки файла, загружаем прогу sce10en.exe с узла "мелкомягких":
http://www.microsoft.com/downloads/deta ... laylang=en
Устанавливаем её, устанавливается она в program files/windows script encoder,
затем можно прописать переменную среду, где указать путь к этой папке или просто в коммандной строке перейти туды и написать screnc path1/file.vbs path2/file.vbe (или тоже vbs), где path1 - путь к файлу скрипта, path2 - путь к будущему закодированному файлу. Запускается он также, как и обычные скрипты. :-)
Пример:
#@~^hQEAAA==~@#@&~,PU+Y,W(%jk+.P{P!nDr4NnmD`JqrU1:)Jz)A])t?61 |UzC[skxrdDDCYK.r~~!/D#@#@&,~PUk[P{PG8Nj/.RV+YvEG4N+1Yjq9E*@#@&P,~/::2~{PJE@#@&P~PwGMPa,',jAKE [`Uk[#,YG~`AW!UNv?k9bR&,?D+2PRq,P@#@&,~P,P~8,'P)d1AcHb[~`j&fBP6,_,q#*P~P,P~~,PP,~P,PP,@#@&P,P,P~/PhaPxPkP:aP'~_+6c8,-~F+b,[~_+X`4,b [P8*bP,@#@&~,P1aY@#@&P,~]k9P{P/VULvJ'Cr~[,/Pha#P~~,P~P,~,P~,P,PP,P,~P,@#@&P,P d1DkaORAmtK~]k9@#@&@#@&P~~@#@&HVoAAA==^#~@
Для кодировки файла, загружаем прогу sce10en.exe с узла "мелкомягких":
http://www.microsoft.com/downloads/deta ... laylang=en
Устанавливаем её, устанавливается она в program files/windows script encoder,
затем можно прописать переменную среду, где указать путь к этой папке или просто в коммандной строке перейти туды и написать screnc path1/file.vbs path2/file.vbe (или тоже vbs), где path1 - путь к файлу скрипта, path2 - путь к будущему закодированному файлу. Запускается он также, как и обычные скрипты. :-)
Пример:
#@~^hQEAAA==~@#@&~,PU+Y,W(%jk+.P{P!nDr4NnmD`JqrU1:)Jz)A])t?61 |UzC[skxrdDDCYK.r~~!/D#@#@&,~PUk[P{PG8Nj/.RV+YvEG4N+1Yjq9E*@#@&P,~/::2~{PJE@#@&P~PwGMPa,',jAKE [`Uk[#,YG~`AW!UNv?k9bR&,?D+2PRq,P@#@&,~P,P~8,'P)d1AcHb[~`j&fBP6,_,q#*P~P,P~~,PP,~P,PP,@#@&P,P,P~/PhaPxPkP:aP'~_+6c8,-~F+b,[~_+X`4,b [P8*bP,@#@&~,P1aY@#@&P,~]k9P{P/VULvJ'Cr~[,/Pha#P~~,P~P,~,P~,P,PP,P,~P,@#@&P,P d1DkaORAmtK~]k9@#@&@#@&P~~@#@&HVoAAA==^#~@
- Stratofortress
- хм...
-
- Сообщения: 611
- Зарегистрирован: 07 апр 2004, 17:10
- Откуда: ссср
Stratofortress » 01 июн 2005, 15:28
Recognized file extensions are .js and .vbs, which are changed to .jse and .vbe, respectively, after encoding.
НО! разве ЭТО защита?))
НО! разве ЭТО защита?
))
| Код |
| 'VBE decoder
' 'Decode all files encoded with screnc.exe 'This script give you a decoded listing from an encoded file. 'Supports *,je, ,vbe, .asp, .hta, .htm, .html: 'If used under cscript, puts the result to stdout. 'The file can be multi-encoded (many scripts in the file, for ex. in an html file) 'Used under wscript, pops up the decoded file in a message box. ' 'File Name : decovbe.vbs option explicit Dim oArgs, NomFichier 'Optional argument : the encoded filename NomFichier="" Set oArgs = WScript.Arguments Select Case oArgs.Count Case 0 'No Arg, popup a dialog box to choose the file NomFichier=BrowseForFolder("Choose an encoded file", &H4031, &H0011) Case 1 If Instr(oArgs(0),"?")=0 Then '-? ou /? => aide NomFichier=oArgs(0) End If Case Else WScript.Echo "Too many parameters" End Select Set oArgs = Nothing If NomFichier<>"" Then Dim fso Set fso=WScript.CreateObject("Scripting.FileSystemObject") If fso.FileExists(NomFichier) Then Dim fic,contenu Set fic = fso.OpenTextFile(NomFichier, 1) Contenu=fic.readAll fic.close Set fic=Nothing Const TagInit="#@~^" '#@~^awQAAA== Const TagFin="==^#~@" '& chr(0) Dim DebutCode, FinCode Do FinCode=0 DebutCode=Instr(Contenu,TagInit) If DebutCode>0 Then If (Instr(DebutCode,Contenu,"==")-DebutCode)=10 Then 'If "==" follows the tag FinCode=Instr(DebutCode,Contenu,TagFin) If FinCode>0 Then Contenu=Left(Contenu,DebutCode-1) & _ Decode(Mid(Contenu,DebutCode+12,FinCode-DebutCode-12-6)) & _ Mid(Contenu,FinCode+6) End If End If End If Loop Until FinCode=0 WScript.Echo Contenu Else WScript.Echo Nomfichier & " not found" End If Set fso=Nothing Else WScript.Echo "Please give a filename" WScript.Echo "Usage : " & wscript.fullname & " " & WScript.ScriptFullName & " <filename>" End If Function Decode(Chaine) Dim se,i,c,j,index,ChaineTemp Dim tDecode(127) Const Combinaison="1231232332321323132311233213233211323231311231321323112331123132" Set se=WSCript.CreateObject("Scripting.Encoder") For i=9 to 127 tDecode(i)="JLA" Next For i=9 to 127 ChaineTemp=Mid(se.EncodeScriptFile(".vbs",string(3,i),0,""),13,3) For j=1 to 3 c=Asc(Mid(ChaineTemp,j,1)) tDecode(c)=Left(tDecode(c),j-1) & chr(i) & Mid(tDecode(c),j+1) Next Next 'Next line we correct a bug, otherwise a ")" could be decoded to a ">" tDecode(42)=Left(tDecode(42),1) & ")" & Right(tDecode(42),1) Set se=Nothing Chaine=Replace(Replace(Chaine,"@&",chr(10)),"@#",chr(13)) Chaine=Replace(Replace(Chaine,"@*",">"),"@!","<") Chaine=Replace(Chaine,"@$","@") index=-1 For i=1 to Len(Chaine) c=asc(Mid(Chaine,i,1)) If c<128 Then index=index+1 If (c=9) or ((c>31) and (c<128)) Then If (c<>60) and (c<>62) and (c<>64) Then Chaine=Left(Chaine,i-1) & Mid(tDecode(c),Mid(Combinaison,(index mod 64)+1,1),1) & Mid(Chaine,i+1) End If End If Next Decode=Chaine End Function Function BrowseForFolder(ByVal pstrPrompt, ByVal pintBrowseType, ByVal pintLocation) Dim ShellObject, pstrTempFolder, x Set ShellObject=WScript.CreateObject("Shell.Application") On Error Resume Next Set pstrTempFolder=ShellObject.BrowseForFolder(&H0,pstrPrompt,pintBrowseType,pintLocation) BrowseForFolder=pstrTempFolder.ParentFolder.ParseName(pstrTempFolder.Title).Path If Err.Number<>0 Then BrowseForFolder="" Set pstrTempFolder=Nothing Set ShellObject=Nothing End Function [/code] в общем, смех один, честное слово. "ну, прямо как дети…" © )
нет времени разбираться — наймите того, кто знает.
Сообщений: 7
• Страница 1 из 1
Кто сейчас на конференцииСейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0 |