📄 lesson1531.htm
字号:
<html>
<head>
<title>看雪学苑</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.p8 { font-size: 8pt}
.p9 { font-size: 9pt}
a:hover { color: #00FF00}
a { text-decoration: none}
.p12 { font-size: 12pt; font-weight: bold; color: #FF3333}
-->
</style>
</head>
<body bgcolor="#FFFFFF" link="#3366FF" vlink="#3366FF">
<table width="80%" border="1" cellspacing="0" cellpadding="0" align="center" bgcolor="#99CCFF" bordercolorlight="#99CCFF" bordercolordark="#99CCFF">
<tr>
<td width="72%" class="p9"><a href="javascript:if(confirm('http://toye.yeah.net/ \n\n这个文件不能通过 Teleport Pro 取回, 因为 它被访问于一个域或在它的起始地址边界外部的路径上. \n\n你想从服务器打开它吗?'))window.location='http://toye.yeah.net/'" tppabs="http://toye.yeah.net/">看雪教学</a></td>
<td width="10%" class="p9"> </td>
<td width="10%"><a href="index.htm" tppabs="http://toye.dihou.org/index.htm" class="p9">返回<br>
首页 <br>
</a></td>
<td width="8%"><a href="molu.htm" tppabs="http://toye.dihou.org/molu.htm" class="p9">返回<br>
目录 </a></td>
</tr>
</table>
<table width="80%" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor="#FFFF33">
<td>
<div align="center"><span class="p"><span class="p"><span class="p12">第十三课<font color="#FF3333">
<b>Visual Basic程序</b></font></span></span><span class="p12"></span></span></div>
</td>
</tr>
</table>
<table width="80%" cellspacing="0" align="center">
<tr class="p9">
<td width="25%" bgcolor="#CCFFFF">
<div align="center"><a href="lesson1510.htm" tppabs="http://toye.dihou.org/lesson1510.htm">解释语言介绍</a></div>
</td>
<td width="25%" bgcolor="#CCFFFF">
<div align="center"><a href="lesson1511.htm" tppabs="http://toye.dihou.org/lesson1511.htm">用SOFTICE</a></div>
</td>
<td width="25%" bgcolor="#CCFFFF">
<div align="center"><a href="lesson1521.htm" tppabs="http://toye.dihou.org/lesson1521.htm">用SmartCheck</a></div>
</td>
<td colspan="2" bgcolor="#FFFFFF" width="25%">
<div align="center">习题</div>
</td>
</tr>
</table>
<p align="center"><span class="p"><span class="p11"><font face="Times New Roman" color="#000000"><span class="p9"><b>Visual Basic程序CrackMe习题</b></span></font></span></span></p>
<p>
<script language="JavaScript1.2">
NS4 = (document.layers) ? 1 : 0;
IE4 = (document.all) ? 1 : 0;
ver4 = (NS4 || IE4) ? 1 : 0;
if (ver4) {
with (document) {
write("<STYLE TYPE='text/css'>");
if (NS4) {
write(".parent {position:absolute; visibility:visible}");
write(".child {position:absolute; visibility:visible}");
write(".regular {position:absolute; visibility:visible}")
}
else {
write(".child {display:none}")
}
write("</STYLE>");
}
}
function getIndex(el) {
ind = null;
for (i=0; i<document.layers.length; i++) {
whichEl = document.layers[i];
if (whichEl.id == el) {
ind = i;
break;
}
}
return ind;
}
function arrange() {
nextY = document.layers[firstInd].pageY +document.layers[firstInd].document.height;
for (i=firstInd+1; i<document.layers.length; i++) {
whichEl = document.layers[i];
if (whichEl.visibility != "hide") {
whichEl.pageY = nextY;
nextY += whichEl.document.height;
}
}
}
function initIt(){
if (!ver4) return;
if (NS4) {
for (i=0; i<document.layers.length; i++) {
whichEl = document.layers[i];
if (whichEl.id.indexOf("Child") != -1) whichEl.visibility = "hide";
}
arrange();
}
else {
divColl = document.all.tags("DIV");
for (i=0; i<divColl.length; i++) {
whichEl = divColl(i);
if (whichEl.className == "child") whichEl.style.display = "none";
}
}
}
function expandIt(el) {
if (!ver4) return;
if (IE4) {
whichEl = eval(el + "Child");
if (whichEl.style.display == "none") {
whichEl.style.display = "block";
}
else {
whichEl.style.display = "none";
}
}
else {
whichEl = eval("document." + el + "Child");
if (whichEl.visibility == "hide") {
whichEl.visibility = "show";
}
else {
whichEl.visibility = "hide";
}
arrange();
}
}
onload = initIt;
</script>
</p>
<div id="KB1Parent" class="parent">
<p align="left"><span class="p9"><b>习题一</b> <a href="javascript:if(confirm('http://toye.dihou.org/vb-exercises-01.zip \n\n这个文件不能通过 Teleport Pro 取回, 因为 没有遇到方案的文件类型说明. \n\n你想从服务器打开它吗?'))window.location='http://toye.dihou.org/vb-exercises-01.zip'" tppabs="http://toye.dihou.org/vb-exercises-01.zip">vb-exercises-01
</a>序列号保护；难度：易。</span></p>
<p align="left"><span class="p9"><a href="#" onClick="expandIt('KB1'); return false"><b>习题一</b>
我要看答案</a> </span></p>
</div>
<div id="KB1Child" class="child"> <span class="p9">
</span>
<table width="100%" align="center" bgcolor="#EFEFEF" cellspacing="0">
<tr bgcolor="#EFEFEF">
<td height="27">
<p><span class="p9">该程序是VB5程序，下面用两种方法简述一下。<br>
</span><font face="Times New Roman" color="#000000"><span class="p9">1</span></font>
<span class="p9"><font face="宋体" color="#000000">、用</font> <font face="Times New Roman" color="#000000">SmartCheck</font>
<font face="宋体" color="#000000">破解</font> <br>
</span><span class="p9"><font face="宋体" color="#000000">用</font> <font face="Times New Roman" color="#000000">SmartCheck</font>
<font face="宋体" color="#000000">装载该程序，输入任意序列号如</font> <font face="Times New Roman" color="#000000">9876543210</font>
<font face="宋体" color="#000000">，点击</font> <font face="Times New Roman" color="#000000">register</font>
<font face="宋体" color="#000000">，它会告诉你错误。此时不要点</font> <font face="Times New Roman" color="#000000">OK,</font>
<font face="宋体" color="#000000">在</font> <font face="Times New Roman" color="#000000">SmartCheck</font>
<font face="宋体" color="#000000">下按停止按钮（红色的那个），</font> <font face="Times New Roman" color="#000000">CrackMe</font>
<font face="宋体" color="#000000">停止退出。</font> <br>
</span><span class="p9"><font face="宋体" color="#000000">展开</font> <font face="Times New Roman" color="#000000">Reg_Click </font>
<font face="宋体" color="#000000">来到</font> <font face="Times New Roman" color="#000000">+ MsgBox</font>
<font face="宋体" color="#000000">这行，用</font> <font face="Times New Roman" color="#000000">"Show All Events"</font>
<font face="宋体" color="#000000">命令。你会看到：</font></span> <br>
<span class="p9"><font face="Times New Roman" color="#000000">+ _vbaFreeObjList</font>
<br>
</span><span class="p9"><font face="Times New Roman" color="#000000">+ SysFreeString <-- </font>
<font face="宋体" color="#000000">你输入的序列号</font> <br>
</span><span class="p9"><font face="Times New Roman" color="#000000">+ SysFreeString <-- </font>
<font face="宋体" color="#000000">正确的序列号，看右边：</font> <font face="Times New Roman" color="#000000">"rkh1oyie"</font>
<br>
</span><span class="p9"><font face="Times New Roman" color="#000000">.....</font>
<font face="宋体" color="#000000">省略一部分</font> <font face="Times New Roman" color="#000000">.........</font>
<br>
</span><span class="p9"><font face="Times New Roman" color="#000000">+ SysFreeString</font>
<br>
</span><span class="p9"><font face="Times New Roman" color="#000000">_vbaVarTstEq returns DWORD:0</font>
<br>
</span><span class="p9"><font face="Times New Roman" color="#000000">+ _vbaVarDup returns DWORD: 63F3AC</font>
<br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -