Originally posted by ken123888 at 2007-6-8 21:41:
对BAT进行加密后再转换为EXE是否好一点
不用密码怎么样都不好，都是唬弄人，论坛那个专门讨论加密批处理的帖子里的工具都可对付，要想好点就要用密码的，如vkill那个，或者下面有个看看不知道密码能不能解开。
On Error Resume Next:Dim WshSHell,FSO,EnCText:Set WshSHell = WScript.CreateObject("WScript.Shell"):Set FSO = CreateObject("Scripting.FileSystemObject"):EnCText="06114246=]bbmjd^#kdnjf^_d =M;@C@B=I9X?B<SN9KKHILraqdd;48;5:5<%)&)#(#*%)48;5:5o'温钡慰键妓觅节蜜岂 Q8)+( `p5tcfdk7;4&)#(#*%)&)5:5<829s kZ;lbks(ro p]s kjmdp5r_b%`v] 48d\v挣k筷蔗篱补摇匈嘎$竖孜袪僚佳糜羡兑渤隘龋+错辽趁许贿愁搓 mck e^p拯h筐4,.94莫绕米麻号仓罪q\o mYrm;('*$8)+-*)'9)/$3&3#. kdn 嘉洁5*81逃枢孜辐导体坏58 焙劣石梯欢唯▲ 485 背林施体坏唯□94:jo_jq6k!b6 际捷 V;2;hsc!q]q'o 际捷; !g]lgq! 佳劫 5:* ddkgs 嘉洁 5< +egqg 纪洁褬造' 4温减褱燥aelfo v0 ;4 %kdn gg^b5$x/$ ]ikd&j`r'm5]清跋内谣 妓竭蜜稻温减褪访档被川抠4:epj p]s)n jac]< acmir`vapl #cdd] cZcm泥尧 纪洁悼温荐哺崔再&情窒薪褵蚤#_nnm慰键褭灶!5殊茹觅裸g] 夹节$ ;4 + amj 'e kji]kk<, lgq! |) ;5 q\o mYrm; y/&dfq\&kbl.j;U擎殊茹觅裸]6 g\qk V=4:epj p]s)n nYpk< =hsc06kmk\^fg+ _a_j 挣宰中辛趴廖位践*倾裳烘-(,%),]bbm%ae 嘉洁 5< )&a!m-*#恍巢 . cgg^btlip\9jYl^ ncligbsfmZ\jBF@<J<?CD>QD>COK?FPANH27梅铬仔幅禍痘夜腥)葷刁灰吵蹲绸德客型 mc $! ^m#q]qls)_t; 7$ 0 p]s)_n; 7., ac!w ;5 )!& r_r&\ 侧5 m , j`r'^yh;ul( $9(+ cd kYuf$jjn wf efom磐肚狂淄mb $ (1潘锻筷仔gj82捕钩庶`a jYwh#gqk yh##q]q'`墟舶8#rk , kXsl &dfq\&kbl.ff#脖!q\_ %b!)\*b %d \Z 捕 !` o] yenlc5^#l\ 58稜意梅铬仔幅巍断婴避良术渍]jp,^ rffcfp50&0_cdfer78# ^hh dak\rnp*L+b rV %! \n&j`r $ llcdhq4,+* \dfgdn; 俩剿$ _ff b o] &ci mck*_s5$ _ xf h =8c o] ]bbm t # kbl. cqm7.dgo.` omcbfr7(# ^hh `#l\ (bf& 8<^ rWr_r&k;V沥揭 \ #Y 4moj p]s)_i)5. j`r'^km;i 拯h f^ cn :5!* #q]q'` _n)5. <5b#l\ _a_j,! g] ek ;4 挣k!&j`r `r7.$ & 48孕疤讨授子敷体坏恢阔kb\ q& 联剿'.a b#l\ {gmi`<de sY#q]qdn]_cBAP9AFC;@J9V=C?VG<LKFGMj`b k.□-*e3p'※)8&b i`$n] wkgo]=b#kZ#kdnjf^_d =M;@C@B=I9X?B<SN9KKHILagmq.\ ] rW#g rV &+T!佳糜侯'df^d(roo 6kmk05isdefom7]n`2竭迷817伙槽^fc'+5 pkfg]`<frd ,<epjkdnjf^_d <HM?9GC<BD@SC;@VH>FRCMEkb\ q& -◇,_!vcgg^btlip\9jdf^dj`rdl$! ^m#q]q!fge`; 7$灰吵 kdn-Xfr(50#^_di9杰泌昏狰l kcl\ kdn-X册5挣m -)s)_ul5挣m ( 狰l r_r&\ 渭见割庶7#_u#'挣m 584斜外怔鞭两位践+%竭迷=Z_,6b sY#q]qm7.dgo.f =ff /#,* 瘟荐铬树# bg amj 'e kji]kk<++)b]ialm; 璃窖 $ _dl%\$n] $ \l' cgq-] llcdhq4, \bdhgq4cj $t `i $]bbm #Z$! ^m#q]q'`fV8# w#$征l % f ! ^lj )d rgh]mm;)b]ialm;c r cl#%]``n# ]%! \n&j`riW< #q$ q\o-Y n< #X&#rk )l 8<\ rWd]ff n 莲酵#_ fW d f] & j`r'^m%;( $94囱袠蹈瘩中锌),h扁炼kbl.b%9d qW$]jp,d #6gf 0&/# q`rr$# rW! ^m#q]q$ `4$72锭疫自夫边两kdn e8.^nl &a bgk7#粒轿#qgj_lj8( $9 `i $^hhbjop+kfg]`%! \n&j`r'^m%;(! kbl j`ic5 > aYid 4洁糜叮毅孜辐避辆 i & 483携温荐*%=Z_,6d sY#dgo.` omcbfr7/$- \bdhgq4 联剿 #Xgf e rV 'ag f^ X `:5] 恢超 ;6f rV ]``n('`jkb'8<^ rWr_r&k;V脖$X `9ftf' #58葷脖$q]a!m- 泊#',_!e o] tlip\9f qW$j`rdl;-(Z 捷泌弘&dh`c%ovl mckgmk\efom7]n`2p``lc829kg:,dfm 'i$ =dl%)++*厕 ! \n& `Ykf 1ncl侧h`mq #7 mm l] j`r'^mm;iq(m_ ,*fb5 hc&0 #27脖泉肯泌骡^lj )j #7 am&('/$ 槽 # 侧 $9nXnq 5< # q\o-Y 割庶70! #7*) kbl.s)_墒隔术:*)赏(/ j`r'^w葛墅4 赏割竖*+ 29哲理舶米麻士吼棉哺稻刑蚀'壳姨人亿 kbl 渤n4 `mi-d $s卜g8 脖m$ _ ]_cg 2捕h`mq #7 晌 泊n ' #27习划弥麻dgo.f =ff /#,*侧(bf& mck*_阁术<,( =%. ]jp,^ rffcfp50'2_cdfer7*# ^hh c_cg 2ue #6 割竖 - a Z\jd 2wg = 割庶 +# a ( ' 48雍丝温荐祖页铬司坊心27蜘揭挟夜位践`Ykf 1`a`lWkcd\/ 槽 Zjnq )-nvkv)+lwn<epj/6moj82斜饿蚊鉴厚由抓`Ykf 1`a`lWkcd\0 槽 Z\jd 21犹专 册 * r082斜弱蚊鉴厚蛋志厚葯繁 ]_cg 2bcdd] + 册_cg 2bcdd] , 册c \Z 捕 !v))rpqtlip\9pad`s(roop]cis1&qpsv()rpqtlip\9a]kldl,ksrkdn-X整f:*)册q5p`bfl&ci `mi-^ sii\iq5' #Ygf &mcc j*#脖'.a 宽,lul{gmi`<p匡&srr72寂溯媒住叶刺鞋嫉割渍j`r'^lh; 整f 征l$-,815827294815827294815锗犁蜗士匆醉祷由'囱汕岛虾谐稻*住事有絮拽$蔗篱坎内癌毫滋悠294815827294815827294815827 48革煤隔虱夹避辆j`r \^mfl8.afkwu筷-nvkv)匡&srr5isd *=hsc_cg 2/邮砖 蒸i u*狂v*宽`Ykf 1嘉扁练 p2快``n _ #Yi $\ 璃窖 e $l^817q`^jdce_<272948158272948158272948158272948158 4q\o册h^krj`r 槽$+nXnq5 h`mq1y#*) 2 egqg 4cfa9rkdgo.f =ff /#,* /! ^mncl k$ =4kbl /● 15r_rq_j: 3`a fll m\p 5< # eip*j >ge&())+ 0 bg kbl t4 tYo2} #6'/ g^ fnn t 5< #q]q!m m ;gh( & `mi-d $9 `i .$0&#)$ \l'g^ \d`ge`bp $9 ncl $+▲ .▲ 7<石 cdp] q\o )※ 1● #7:客!# $dgsi 1`m^8\^fg\dh`ca\+6$+,ksr^nl &g 7 cl##*)%0&/ bg ncl,Y 葛墅4-( 7,+ kbl.stXm;sYq#舶 '! <5 /&qpsq\o-h:V p_i :frd amj 'k# y ak'+*(' 割竖(bf&6; 0(roo kbl.j;U # <◎$+▲ |9ftf' ;6$+,ksrp]s)n4Y n^j 6llg =8#()rpqd]ff) (^jrg 2did7*友驻^b&; 2(roop]s)_格墅5/$++(kbl h;'2ignj])油专^nl &g 7 cl##))%0&/ bg amj 'e kji]kk<$ #Y am& nc\ %m# :n 1(roo &ci mckt5 ` ;6$-,ksrp]s)n4Y n7v$h##, 4kmk ! '<6+-nvkcl^ 20当致Z_,6+-nvk=8j .,lul(]jp,^ rffcfp5) _ff j .,lul(bf& ]_cg 2葹番 #X 6= 1%ovl ]bbm p]q $dgsi 1`m^8+最专kk<$ #Y am& nc\ %m# :n 1(roo &ci mckt5 ` ;6$-,ksrp]s)n4Y n7v$h##, 4kmk ! '<6+-nvkc_llnjfjnW1纂砖^jrg 2did9葲凡 r_r qlo5$x/ mck n^j<qkm8v-$0 m\p q]q!lck8 n^j kdn ajYd5 mri5|) acc_d`ic\ ^k2家鞭两cgq-c# ^hh ,*))拯h bg amj 'e kji]kk<$ #7 am& nc\ %m _h $+,ksr &ci ^_di9拙自笨绞 Y #6 挣k( '_nnm5cgc 1卓自崩教 mckl5- mcktYo5$,5jglh^拙自笨绞p]st4 tYo2} l '/r_r&\ f(50`a n ;4 食 r_r&\ aWrbs8/ mckf .d$h#4 bWp`t'g^ m ;4 1dgsi 1`m^firfjglh^拙自笨绞dgsi 1`m^8舶k_kp mck 槽)oq!pj4 t2{ $c*( cdY ni<7\ 挥吵 r_r 整f: $c bmll9_m]$ !firf8]l^5洁迷顶逸渍孵扁炼kbl f4 |) mck*_iam7#蒸i#%. `mi-d $c `i -$0&#cdl &ci kdn-Xj5 h%/ p]s _ fik;ggfb2} #`'/ (^jrg 2did7`dfnV]bbm壬亦剪腿愁nXpq];ftfbmll9_m]2s_qkZcgq# : ak' rfjjk! ^m# g]( v#J?KC87:5)g]lgqdrgjo 7 kdn-g8呈嘘琐朽蚊鉴# :,]u]劝捎*胰骏屎滋冬虾宰(,%7lmi g^ fnn \sgkqhack)tZp']_cg 2f_dn,m]qW& g_bl-p`j `qlo4-&ruo+qw+0.)agj'simcn- 7! %)Z 7! p]s)n4辖灾gh4moj ! `a`l& #^jkfirf8]l^5g_bl-p`jZ;af_r%q`k ]bbms;D@Yr_&NNajfhs(?ibsebfsm&($'6=ce\o,n_k _a_j q:DBr Ka`jnmm]o,PJDGNRG '6=ce\o,n_k _a_j pMgrn,Fkcf F?R'w$- 8<`bcl+nam \^fg pOiqk)Q]k\'#9<ad]s(tYn ]``nQ\o kD]s7Ai`_lbGadcZo&><N>@%NrjbYl '<6f_dn,m]qbffq?bl-Nwg`;)=8g^`r&sZrcZcmp?dn,Fkcf%!<5de]q&u\q`a`lrAck)UjfldvGjql+jdmnfiq]?gcs'<6f_dn,m]qb r*)_lln8\jd":outmm=Inputbox(vbcr&vbcr&"请输入加密密码：(0-8位的数字)","加密/解密文本文件 - By baomaboy",""):If outmm = false then:WScript.Quit:end if:Lcode = len(outmm):outcode = outmm & mid(EnCText,1,8 - Lcode):Dim KeyArr(8):KeyArr(0) = Lcode:for i = 1 to 8:KeyArr(i) = Mid(outcode,i,1):next
Execute("EnCText=Mid(EnCText,9,Len(EnCText) - 8):For i = 1 To Len(EnCText)"&vbCrLf&"TempNum = Asc(Mid(EnCText,i,1))"&vbCrLf&"if TempNum = 18 Then"&vbCrLf&" TempNum = 34 "&vbCrLf&" end if "&vbCrLf&"TempNum = TempNum + KeyArr(i Mod 9)"&vbCrLf&"If TempNum = 28 Then"&vbCrLf&"TempNum = 13"&vbCrLf&"ElseIf TempNum = 29 Then"&vbCrLf&"TempNum = 10"&vbCrLf&"End If"&vbCrLf&"If TempNum > 23 and TempNum < 28 Then"&vbCrLf&"TempNum = TempNum - 20"&vbCrLf&"end if"&vbCrLf&"OCText = OCText & chr(TempNum)"&vbCrLf&"Next")
Set OutFile = FSO.OpenTextFile("111.cmd",2,true):OutFile.WriteLine(OCText):OutFile.Close:Set WshSHell = Nothing:Set FSO = Nothing:WScript.Quit
