📄 01_4_13_3.asp.html
字号:
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">foreach (@FILE) {<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR"><span style="mso-tab-count:1">
</span>if ($_ =~/</span><span style="font-size:9.0pt;mso-bidi-font-size:12.0pt;
font-family:宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
"Times New Roman";mso-ansi-language:FR">程序编译后的部分代码</span><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:12.0pt;mso-ansi-language:FR">/){<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR"><span style="mso-tab-count:1">
</span>}else {exit ;}<o:p>
</o:p>
</span></p>
<span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:12.0pt;font-family:
"Times New Roman";mso-fareast-font-family:宋体;mso-font-kerning:1.0pt;mso-ansi-language:
FR;mso-fareast-language:ZH-CN;mso-bidi-language:AR-SA">}</span></td>
</tr>
</table>
</td></tr></table><table align=center width=620><tr><td class=a14>
首先把程序进行bytecode编译，然后截取部分独特的其它程序没有的代码，放入其中，来检查引入程序是否正确合法。</td></tr></table><table align=center width=620><tr><td class=a14>
你可以把bytecode的程序改名成.dll等，这样其它人就不知道是怎么回事啦。</td></tr></table><table align=center width=620><tr><td class=a14>
<b><font size="4">结束语</font></b></td></tr></table><table align=center width=620><tr><td class=a14>
Perl是一个强大的而且是最早的解析性程序语言，它的编译程序是B模块，大家可以详细常见，它有多种编译方式，都是采用反向编译（BackEnd）不同于反编译。所以经本上是不可能被反编译。我认为本文对所有的Perl程序员都有很大的帮助。</td></tr></table><table align=center width=620><tr><td class=a14>
Perl还有很多其它方式的编译、加密方法，但是我觉得本文介绍的几种方式都是最好的（兼容性和运行效率），有一些人，把写的程序进行部分字符乱码或者是取消缩近的书写格式（把所有程序写在一行上），我认为这些方法是“愚蠢的”，所以建议大家不要花那么多时间去研究这些“无谓”的东西。</td></tr></table><table align=center width=620><tr><td class=a14>
<table border="1" width="100%">
<tr>
<td width="100%" colspan="2" bgcolor="#C0C0C0"><span style="font-size:9.0pt;mso-bidi-font-size:12.0pt;
font-family:宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
"Times New Roman";mso-bidi-font-family:"Times New Roman";mso-font-kerning:1.0pt;
mso-ansi-language:FR;mso-fareast-language:ZH-CN;mso-bidi-language:AR-SA">部分字符编码例子——原本：</span></td>
</tr>
<tr>
<td width="20%">
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">L.1<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">2<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">3<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">4<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">5<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">6<o:p>
</o:p>
</span></p>
<span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:12.0pt;font-family:
"Times New Roman";mso-fareast-font-family:宋体;mso-font-kerning:1.0pt;mso-ansi-language:
FR;mso-fareast-language:ZH-CN;mso-bidi-language:AR-SA">7</span></td>
<td width="80%">
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR"># !perl<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">sub Hello {<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR"><span style="mso-spacerun: yes">
</span>$hello=abc ;<o:p>
</o:p>
</span></p>
<p class="MsoNormal" style="text-indent:27.0pt"><span lang="FR" style="font-size:
9.0pt;mso-bidi-font-size:12.0pt;mso-ansi-language:FR">print $hello ;<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">}<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR"> <o:p>
</o:p>
</span></p>
<span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:12.0pt;font-family:
"Times New Roman";mso-fareast-font-family:宋体;mso-font-kerning:1.0pt;mso-ansi-language:
FR;mso-fareast-language:ZH-CN;mso-bidi-language:AR-SA">&hello ;</span></td>
</tr>
<tr>
<td width="100%" colspan="2" bgcolor="#C0C0C0"><span style="font-size:9.0pt;mso-bidi-font-size:12.0pt;
font-family:宋体;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:
"Times New Roman";mso-bidi-font-family:"Times New Roman";mso-font-kerning:1.0pt;
mso-ansi-language:FR;mso-fareast-language:ZH-CN;mso-bidi-language:AR-SA">部分字符编码例子——编码后</span></td>
</tr>
<tr>
<td width="20%">
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">L.1<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">2<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">3<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">4<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">5<o:p>
</o:p>
</span></p>
<span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:12.0pt;font-family:
"Times New Roman";mso-fareast-font-family:宋体;mso-font-kerning:1.0pt;mso-ansi-language:
FR;mso-fareast-language:ZH-CN;mso-bidi-language:AR-SA">6</span></td>
<td width="80%">
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR"># !perl<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">sub adfjierei123489dkajd_dfefnkdj {<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">$iernvmdnvcjnaldffgh=abc;<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">print $iernvmdnvcjnaldffgh;<o:p>
</o:p>
</span></p>
<p class="MsoNormal"><span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:
12.0pt;mso-ansi-language:FR">}<o:p>
</o:p>
</span></p>
<span lang="FR" style="font-size:9.0pt;mso-bidi-font-size:12.0pt;font-family:
"Times New Roman";mso-fareast-font-family:宋体;mso-font-kerning:1.0pt;mso-ansi-language:
FR;mso-fareast-language:ZH-CN;mso-bidi-language:AR-SA">&adfjierei123489dkajd_dfefnkdj;</span></td>
</tr>
</table>
</td></tr></table><table align=center width=620><tr><td class=a14>
我希望通过本文促使Perl在国内的商业发展，也同样加快了Perl技术在国内的发展速度。但是我仍然希望大家可以写更多的公开源代码的程序出来，这样可以让初学者有较快的提高速度。</td></tr></table><table align=center width=620><tr><td class=a14>
如果你有任何问题和想法都可以通过电子邮件(<a href="mailto:tanshuai@BIGFOOT.COM"><font color="#0000FF">tanshuai@BIGFOOT.COM</font></a>,
<a href="mailto:tanshuai@163.COM"><font color="#0000FF">tanshuai@163.COM</font></a>,
<a href="mailto:tanshuai@TANSHUAI.NET"><font color="#0000FF"> tanshuai@TANSHUAI.NET</font></a>)或者ICQ：25856530
OICQ：66552联络我，其它资料可以到我的网站查询<a href="http://www.tanshuai.net/"><font color="#0000FF">http://www.tanshuai.net</font></a> <a href="http://www2.tanshuai.net/"><font color="#0000FF">http://www2.tanshuai.net</font></a><font color="#0000FF"> </font><font color="#000000">（全文完）</font></td></tr>
<tr><td class=a14>
<p align="right"><a href="http://www.ccw.com.cn/htm/app/aprog/01_4_13_2.asp"><font color="#0000FF"><< 上一讲</font></a></td></tr>
</table><br>
<table align=center width=620><tr><td align=right>（网页编辑：<a href='mailto:app@ccw.com.cn'>徐向阳</a>）</td></tr></table><br>
<br><table align=center width=620><tr><td class=a14>相关文章</td></tr><tr><td><ul>
<li><a href='http://www.ccw.com.cn/htm/app/aprog/01_4_13_2.asp'>Perl 语言全面编译（六）</a></li>
<li><a href='http://www.ccw.com.cn/htm/app/aprog/01_4_12_3.asp'>Perl 语言全面编译（五）</a></li>
<li><a href='http://www.ccw.com.cn/htm/app/aprog/01_4_12_2.asp'>Perl 语言全面编译（四）</a></li>
<li><a href='http://www.ccw.com.cn/htm/app/aprog/01_4_11_6.asp'>Perl 语言全面编译（三）</a></li>
<li><a href='http://www.ccw.com.cn/htm/app/aprog/01_4_11_5.asp'>Perl 语言全面编译（二）</a></li>
</ul></td></tr></table>
<table align=center width=620><tr><td align=right>
<form method=post action='/pub/subMail.asp' onsubmit='JavaScript: return chkField(this)'>
<INPUT type='hidden' name='rec' value='10484'>
您的姓名：<INPUT type="text" name=myName size=10>
您朋友的E-mail：<INPUT type="text" name=friendMail size=10>
<INPUT type="submit" value="推荐给好友">
</form>
</td></tr>
<tr><td align=right>
<b>[<a href="javascript:window.close()">关闭窗口</a>]</b>
</td></tr>
</table>
<script language="javascript">function chkField(fmObj)
{if (!fmObj.friendMail.value){
alert("请输入您朋友的E-mail！");
fmObj.friendMail.focus();
return false;
}
return true;
}
</script>
<table align=center width=680>
<tr><td><hr size=1 width=660 color=#f46240></td></tr>
</table><br>
<p align=center>Copyright(C) ccw.com.cn,All rights reserved</p>
<p align=center><b>中国计算机世界出版服务公司版权所有</b></p><!-- This document saved from http://www.ccw.com.cn/htm/app/aprog/01_4_13_3.asp -->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -