lesson1521.htm

为所有对破解感兴趣的朋友准备的礼物。希望大家能够喜欢。

  <i>注意:你可能会看到正确序列号和你输入字符串比较。</i><br>
  returns DWORD:0 -- 在SOFTICE里，你将看到比较后， eax = 0 </span>
<p> 
<hr width="25%">
<p> <span class="p9"><b>__vbafreestr(LPBSTR:0063F3F0)</b> <br>
  点击上面 "+" 寻找<b>SysFreeString</b> <br>
  如. <b>SysFreeString(BSTR:<font color="#FF0000">00410584</font>)</b> </span>
<p> <span class="p9"><u>解释:</u> <br>
  字符串在内存00410584 被清除。</span>
<p> 
<hr width="25%">
<p> <span class="p9"><b>__vbaVarCopy(VARIANT:String:"<font color="#FF0000">12345</font>", 
  VARIANT:Empty) returns DWORD:63FA30</b> <br>
  点击前面的 "+" 号寻找<b>SysAllocStringByteLen</b> <br>
  如. <b>SysAllocStringByteLen(LPSTR:004023F0, DWORD:0000000C) returns LPVOID:<font color="#FF0000">4103CC</font></b> 
  </span>
<p> <span class="p9"><u>解释:</u> <br>
  "12345"被复制到内存 004103CC <br>
  <i>这类似 __vbaVarMove</i> </span>
<p> 
<hr width="25%">
<p> <span class="p9"><b>__vbaVarForInit(VARIANT:Empty, PTR:0063F920, PTR:0063F91.....)</b> 
  </span>
<p> <span class="p9"><u>解释:</u> <br>
  移动到上面，为了下一个循环<br>
  通常在它下面 <b>__vbaVarForNext</b> 用法与其一样. </span>
<p> 
<hr width="25%">
<p> <span class="p9"><b>Mid(VARIANT:String:"<font color="#FF0000">abcdefg</font>", 
  long:<font color="#FF0000">1</font>, VARIANT:Integet:<font color="#FF0000">1</font>)</b> 
  </span>
<p> <span class="p9"><u>解释:</u> <br>
  从位置1得到字符串"abcdefg"第一个字符。<br>
  点击上面的 "+"号寻找 <b>SysAllocStringByteLen</b> <br>
  如. <b>SysAllocStringByteLen(LPSTR:004103F0, DWORD:00000002) returns LPVOID:<font color="#FF0000">410434</font></b> 
  </span>
<p> <span class="p9"><u>解释:</u> <br>
  "a"将被复制到内存00410434 <br>
  它后面通常跟随 <b>__vbaStrVarVal(VARIATN:String"a") returns DWORD:<font color="#FF0000">410434</font></b> 
  </span>
<p> 
<hr width="25%">
<p> <span class="p9"><b>Asc(String:"<font color="#FF0000">T</font>") returns Integer:<font color="#FF0000">84</font></b> 
  </span>
<p> <span class="p9"><u>解释:</u> <br>
  得到“T”的ASCII码十进制 84 </span>
<p> 
<hr width="25%">
<p> <span class="p9"><b>SysFreeString(BSTR:<font color="#FF0000">004103F0</font>)</b> 
  </span>
<p> <span class="p9"><u>解释:</u> <br>
  释放内存位置：004103F0<br>
  这些对我们特别有用，因为当你点击它们，看右边窗口，你将看到被释放的字符串。此时正确的序列号和密码有可能在此。</span>
<p> 
<hr width="25%">
<p> <span class="p9"><b>__vbaVarCat(VARIANT:String:"<font color="#FF0000">aa</font>", 
  VARIANT:String:"<font color="#FF0000">bb</font>") returns DWORD:63F974</b> </span>
<p> <span class="p9"><u>解释:</u> <br>
  连接 "bb" 和"aa"形成"aabb" </span>
<p> 
<hr width="25%">
<p> <span class="p9"><b>__vbaFreeVar(VARIANT:String:"<font color="#FF0000">abcdefg</font>")</b> 
  <br>
  点击 "+"寻找<b>SysFreeString</b> <br>
  例. <b>SysFreeString(BSTR:<font color="#FF0000">0041035C</font>)</b> </span>
<p> <span class="p9"><u>解释:</u> <br>
  从内存 0041035C释放 "abcdefg" <br>
  <i>这儿，点击这行在右边有可能发现你所要的东西。</i></span>
<p> 
<hr width="25%">
<p> <span class="p9"><b>__vbaVarTstEq(VARIANT:****, VARIANT:****) returns DWORD:0</b> 
  </span>
<p> <span class="p9"><u>解释:</u> <br>
  __vbaVarTstEq 通常用来比较变量.如果它们不一样 , DWORD=0 (so eax=0) <br>
  如果它们一样, DWORD将为FFFFFFFF (so eax=FFFFFFFF) <br>
  <i>类似__vbaVarCmpEq</i> </span>
<p> 
<hr width="25%">
<p> <span class="p9"><b>Len(String:"Cracker") returns LONG:<font color="#FF0000">7</font></b> 
  </span>
<p> <span class="p9"><u>解释:</u> <br>
  得到字符串 "Cracker" 的长度为7 </span>
<p> 
<hr width="25%">
<p> <span class="p9"><b>****.Text &lt;-- "<font color="#FF0000">Wrong! Try Again!!</font>" 
  (String)</b> </span>
<p> <span class="p9"><u>解释:</u> <br>
  在文本框中显示g "Wrong! Try Again!!"</span>
<p> 
<hr width="25%">
<p> <span class="p9"><b>__vbaVarAdd(VARIANT:Integer:<font color="#FF0000">2</font>, 
  VARIANT:Integer:<font color="#FF0000">97</font>) returns .....</b> </span>
<p> <span class="p9"><u>解释:</u> <br>
  2+97=97,返回99<br>
  But if both are Strings instead of Integers, you will get 297 instead. </span>
<p> 
<hr width="25%">
<p> <span class="p9"><b>__vbaVarDiv(VARIANT:Integer:<font color="#FF0000">97</font>, 
  VARIANT:Long:<font color="#FF0000">1</font>) returns.....</b> </span>
<p> <span class="p9"><u>解释:</u> <br>
  97除以1 </span>
<p> 
<hr width="25%">
<p> <span class="p9"><b>__vbaVarMul(VARIANT:String:"<font color="#FF0000">1</font>", 
  VARIANT:String:"<font color="#FF0000">2</font>") returns ...</b> </span>
<p> <span class="p9"><u>Explanation:</u> <br>
  1乘2</span>
<p> 
<hr width="25%">
<p> <span class="p9"><b>__vbaVarSub(VARIANT:String:"<font color="#FF0000">2</font>", 
  VARIANT:String:"<font color="#FF0000">34</font>") returns ...</b> </span>
<p> <span class="p9"><u>解释:</u> <br>
  "34"-"2", 返回 32 </span> 
<p> 
<hr width="25%">
<p> <span class="p9"><b>MsgBox(VARIANT:String:"<font color="#FF0000">Nope! That's 
  not right</font>", Integer:0, VARIANT:String:"<font color="#FF0000">Wrong</font>",VARIANT.....)</b> 
  </span>
<p> <span class="p9"><u>解释:</u> <br>
  创建一个消息框，标题是 "Wrong" 内容为 "Nope! That's not right" </span>
<p><span class="p9"><font face="宋体" color="#000000"><span class="p8">看雪整理</span></font></span><span class="p8"><span class="p9"><font face="Times New Roman" color="#000000">于2000/2/27</font> 
  <br>
  </span> </span> <span class="p9"> </span> <span class="p9"> </span></p>
<table width="80%" border="1" cellspacing="0" cellpadding="0" align="center" bgcolor="#99CCFF" bordercolorlight="#99CCFF" bordercolordark="#99CCFF">
  <tr> 
    <td width="82%" class="p8" height="35">Copyright @看雪 2000 All rights reserved 
      　　<a href="mailto:[e-mail]">与我联系</a></td>
    <td width="10%" class="p9" height="35"><a href="index.htm" tppabs="http://toye.dihou.org/index.htm">返回<br>
      首页</a></td>
    <td width="8%" class="p8" height="35"><a href="molu.htm" tppabs="http://toye.dihou.org/molu.htm" class="p9">返回<br>
      目录</a></td>
  </tr>
</table>
<p> </p>
<p> </p>
</body>
</html>