?? 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 + -