教你生成注冊碼.doc

教你生成注冊碼第一課（02）第二課（04）第三課（10）第四課（16）第五課（22算法注冊機編寫-第一課 = 編者注： 大家好，看著一些兄弟的算法破文，感覺上該寫該找的算法都找到找對了，好事，現在的cracker的水平可以說走上了一個新的臺階，內存注冊機的制作對大多數人來說，已經熟門熟路，駕輕就熟的。但你寫出算法的破文，想必在破解過程比追明碼的要累的多，你成功的找到軟件的加密算法，好，你不在是萊鳥的級別，已經進入中高級的程度。但由于不懂算法注冊機的編寫，發(fā)的算法破文，配的是內存注冊機，這總有點美中不足的！怎么辦，難不成要專一心重學一門語言？這就是我發(fā)此文的目的所在，讓大家在輕松的情況下達到寫出算法注冊機目的。怎么樣，想知道應該從哪里起步學習了吧！你不懂編程？沒事，就寫出個算法注冊機而言，只應用相對的編程語言的百分之一就夠了。 暈，你懂才這樣說的吧，我丁點不懂怎辦？我連什么叫VB、VC、TC等，是什么東東都根本沒個慨念，學，從何學起？！真有這種想法的朋友，你別在日后繼續(xù)你逆向學習了，這最為起碼的認知都沒有，你靠的什么去找注冊碼和算法？所以嘛，閑話不多說了，進入正題吧！ 本篇原創(chuàng)作者-我要DFCG，版權沒有，人權我有 _ 所以凡轉此帖的友站及各路朋友兄弟們，必注明此文出自DFCG組織及我要DFCG原創(chuàng)為先決條件，否則謝絕轉帖轉載。網路本一家，但總不至于沒個出處明示的吧！感謝你的閱讀！ = 一、工具篇 就寫算法注冊機而言，本人推薦你使用VB去做，為何？簡單易學就是它的好處及我推薦的原因之所在根本，有兄弟說TC不更簡單嗎？也許吧，世界本無絕對只有相對，或許我這萊鳥只適合這種思維的方式。 學不學是你的自由，想學的就得需要這個工具-Microsoft Visual Basic 6.0，版本與注冊機的編譯關系不大，不過VB6都出來這么久了，想想還是用這個版本吧，更因為在網上有它的精簡中文版，大小才6M多的，不錯，要的就是它，編寫注冊機之類的小東東，這個精簡版足矣，到此還真的要感謝開發(fā)出這個精簡版的朋友。你太好了，因為有你，所以才有我的這篇拙作。 _ 二、了解VB6（當然以這個VB6精簡版為框），你下載后就是安裝，安裝后在你的電腦桌面多了一個相應的快捷圖標。呵，有點爽了，開始我們的學習吧！ 三、看三眼后，搓搓手，來吧，誰怕誰了？！我非得玩轉你不可的。啟動軟件，暈眼了，我以前怎從沒見過這種界面的。什么的什么。#$% _ 四、再看一次界面，哦，窗口里有一個框，框里看看，默認位置“標準 EXE”已經點藍，等著你去用它，看到這個框里的“打開”按鈕沒有？點一下它再看看，呵，出來一個新的窗體，這就是你的模板，但因為你什么都沒做，所以是白板一個來的，不信你現在就在工具欄，文件 點“生成工程1.exe” 選到你要保存的目標文件夾里。打開這個文件夾，你就會看到多了一個名為“工程1.exe”的東東，雙擊它看看，這下有點明白了吧。哈，你的處女作原來是個什么都沒有的怪物。 五、好了，放飛的心情別過于興奮，回到學習上來，從復第四項，不過這次你別再去生成個白板怪物了。因為你的第一次只有一次，啊，有點象。？ 六、言歸正傳，學習編寫注冊機，你得先學會在VB6上學好編寫四則運算及異或計算等的方法，怎樣寫?。】煺f，再不說拉出去斬了這個“我要”得了。 七、嘿，泡MM你們就有耐心，學編譯就沒個耐心的，再這樣我看不起你。來吧，看下面的公式：1 + 2 * 3 / 3 = 3，這應該誰都能隨口算出結果。不過在VB里變成一個程式，讓它給我們算出結果才是我寫此文的目的。明眼的朋友已經看出門道了，能做到這點，呵，算法注冊機不就。 _ 八、回看上面的算式，因為它由算式與結果的表現為根本，那么你就應該用2個文本框來實現它，文本框？什么東東，在說什么了？別急嘛！在你的白板模板窗口看看，左邊豎立的一串按鈕，這里有你想要的一切，沒有的在以后你需要時可以添加進去，此為后話。 九、嗯，你現在點一下里面的“ab”按鈕，然后將光標回到你的白板模板上，拉出一個框來，里面有“Text1”的提示，從復這步，再拉出一個框，這次來的就是“Text2”，好了，現在填算式及出結果的框有了，但“=”的鍵還沒有，這個就等同于算法注冊機里的算號鍵，因為是初學，這個鍵你就一定非添加不可，以后你上手了，用其它方式同樣可以表示算式的結果，網上有些注冊機這邊輸入注冊碼，另一邊就出來結果（注冊碼），這不是初學者的范圍，打住先。 十、有了上面的2個框，現在來建一個“=”的功能鍵，點一下剛才的“ab”按鈕正對下面的那個按鈕，因為沒注明功能在上面，我只能這樣說了，點一下后，將光標回到你的白板模板上，拉出一個框來，這次出來的你一看就知道它是一個按鈕功能鍵，里面有“Command1”的提示。好了，你的白板現在已經不再是白板了，你大可以回復到第四步，生成一個工程文件來看看。 十一、不過，雖然現在的不是白板，但它還是不能計算的，因為你還沒有將相應的源碼填進去啊，源碼？哦，有點明白了！ _ 十二、以上面的算式為例，開始編寫你的處女注冊機，看下面： 1 + 2 * 3 / 3 = 3 這就是算式 十三、因為本文以教學算法注冊機為主，所以，上面算式結合算法來演示它一下，將上面的1假設為機器碼，我找到它的算法就是（機器碼 + 2 * 3 / 3 = 3 注冊碼），好，現在再進一步設機器為“a”，注冊碼為“b”，有了這些的成立，源碼就可以編寫出來，看下面： Private Sub Command1_Click() strtmp = Text1.Text a = Val(Text1.Text) b = a + 2 * 3 / 3 Text2.Text = b End Sub 十四、特別說明的題外話，我的VB源碼，常有朋友說我偷懶，都簡到不能再簡的地步了，這對編程可不是一個好習慣。嘿嘿，不過作為寫算法注冊機，我以為這可是最好最省力的。高手老大們別笑啊，我菜嘛！ _ 十五、將上面的源碼帖進VB里去，在你的模板上右鍵打開下拉菜單，點“查看代碼”，出來一個寫入窗口，將源碼粘貼進去。哈哈，你的算法注冊機成功了，暈，我?guī)讜r成功了？哦，你還得往上看工具欄，找到黑色的小三角按鈕，點一下，呵，出來了吧，你現大可以在它的Text1框里填入機器碼1，記住先刪了Text1那幾個字了啊，當然以后真做注冊機時，這里是一定沒有這個Text1提示的，因為在編寫的時候已經干掉它了。此為后話或下一課我再說。大家先消化一下，此文作為第一課就到此夠用的。 十六、上面填入機器碼后，點一下“Command1”按鈕，嘿嘿，看到了吧，在Text2框里的是什么，是結果3，呵，成功了，真的成功了，再去工具欄，文件 點“生成工程1.exe” 選到你要保存的目標文件夾里。打開這個文件夾，你就會看到多了一個名為“工程1.exe”的東東。好了，現在退出VB6，直接去應用一下你的杰作注冊機，有點成就感沒有？你的處女注冊機就這樣生成了！ _ 十七、本文作為“算法注冊機編寫掃盲”的第一課，過幾天有空我將繼續(xù)寫這個題目的第二課，大家以為有用我才有繼寫下一課的動力與必要的吧！ 十八、本篇原創(chuàng)作者-我要DFCG，版權沒有，人權我有，所以凡轉此帖的友站及各路朋友兄弟們，必注明此文出自DFCG組織及我要DFCG原創(chuàng)為先決條件，否則謝絕轉帖轉載。網路本一家，但總不至于沒個出處明示的吧！感謝你的閱讀！ 算法注冊機編寫-第二課 = 一、上節(jié)所說的只是一個最為基本的算式，要做到應用在以后的算法總結編譯注冊機還差得很多，好，看下面算式： 機器碼 Xor 123456 = 注冊碼 二、假設我的3臺PC上各自的機器碼為：12121212；13131313；14141414。那應該怎樣去處理或編寫出算法注冊機呢？大家回看上節(jié)我的VB源碼，嘿嘿，偷懶的我現在就去用我的精簡原碼用到上面這個算式上。怎么？通用的？看吧！ Private Sub Command1_Click() strtmp = Text1.Text a = Val(Text1.Text) b = a Xor 123456 Text2.Text = b End Sub 三、原碼里的a就是我們要填的機器碼，b就是算式的結果，也就是注冊碼了，用上面這個源碼，試一下自己去做一次，看看這個注冊機是否能算出上面3個機器碼的對應真注冊碼。我的結果是下面： 機器碼：12121212 注冊碼：12129852 機器碼：13131313 注冊碼：13220977 機器碼：14141414 注冊碼：14034342 五、暈，你老這樣算不行啊，我的不是十進制，算法我找到的是十六進制值，我怎么寫了，再看下面源碼，用這個源碼編譯注冊機來看看吧！ Private Sub Command1_Click() strtmp = Text1.Text a = Val(Text1.Text) b = a Xor &H1E240 Text2.Text = b End Sub 六、還是以上面的3個機器碼為例，我得到的注冊碼見下面： 機器碼：12121212 注冊碼：12129852 機器碼：13131313 注冊碼：13220977 機器碼：14141414 注冊碼：14034342 七、哦，與上面的計算結果完全一樣的？是的，因為十六進制1E240的十進值就是前面所列的123456，明白了吧！其實不管它是不是十進制或十六進制，一樣地可以應用這個源碼編譯出注冊機來的。大家可以多試多練，自已編一個計算器，應用你自編的計算器，得到的結果與windows計算器計算結果對比一下，本人以為多做有益的吧！最好的方式就是自編crackMe，因為你已經知道它的算法，所以寫出它的算法注冊機當是隨手可得的了！怎寫？這在第三課我再說，此節(jié)打住先。 八、好，你現在已經上手，可以自己就能編寫出算法注冊機了！那么，就找?guī)讉€軟柿子下手，找到算法后，寫出屬于你的算法注冊機吧。我找到幾個東東，是N久以前的，因為它簡單，適合下手，所以就用它。此處聲明，算法破文非全是我之所寫，是隨手拿來一用，但請原破文作者見諒了！ _ 九、安利管理銷售系統 V1.2 個人版，這個東東算法超簡單，就用它來開刀吧！ 算法總結： 機器碼：0375458006 （轉十六進制值為：166108D6） 用166108D6與810613F異或運算的結果（1E7169E9），再將它轉化為十進制就是你的注冊碼（510749161）。 比如我機器碼：0375458006 真實我注冊碼：510749161 十、好，找到算法了，那就用我的超省源碼再次應用到這個算法注冊機來，看： Private Sub Command1_Click() strtmp = Text1.Text a = Val(Text1.Text) b = a Xor &H810613F Text2.Text = b End Sub 十一、編譯方式參考上面文章內容，這里不再重復，免又“胡說八道”了！ _ 十二、不過癮了？好！再來一個，凌鵬光盤出租與銷售系統 2.0算法簡析，找到算法，列出算式看看，暈暈的，怎樣去寫算法注冊機了?。靠聪旅妫?機器碼轉十六進值為A，注冊碼為Key，那么： Key(AA87568F875A6B4F5DA2)(AA87568F875A6B4F5DA2)*4 （將上面計算結果十六進制值轉化為十進制值就是你的注冊碼） 如我的機器碼為：65526轉化為十六進制值為：FFF6 Key(AA87568F875A6B4F5DA2)(AA87568F875A6B4F5DA2)*4 6E048A8（轉十進值就是：115361960） 比如我機器碼：65526 真實我注冊碼：115361960 十三、知道算法及結果，那怎樣去將算式編譯成算法注冊機，還是我的源碼： Private Sub Command1_Click() strtmp = Text1.Text a = Val(Text1.Text) b = a + a c = b + &H15E0E9C d = c * &H4 e = c + d Text2.Text = e End Sub 十四、用這個源碼去編譯生成算法注冊機，呵，算號成功，全對了！上面這段算法列算式時，你看著有點頭暈眼花，但到我的源碼上，嘿，看的爽心！ _ 十五、好了，回頭作為復習，再來一個簡單的加深一下你的學習過程，這個就是前些月的軟件-六屏 V1.2，記得DFCG里的兄弟寫過這個破文，先將該破文的算法總結借來一用先，看下面： 這軟件真的很可愛！ 將機器碼 xor 11677831就是注冊碼！ VB注冊機源碼如下(在win98+vb6.0下調試通過) Private Sub Command1_Click() strtmp = Text1.Text nlen = Len(strtmp) k = 1 For i = 1 To nlen j = Asc(Mid(strtmp, i, 1) If j 58 Then k = 2 End If Next i If k 2 Then Text2.Text = Val(Text1.Text) Xor &H11677831 Else e = MsgBox(你輸入的機器碼有誤，請重新輸入!, 0, Error!) End If End Sub Private Sub Command2_Click() aa = MsgBox(逆風飛揚電腦工作室傾力制作, 0, 退出) Unload Me End Sub 如果您要轉載本文檔，請保持本文檔內容完整。謝謝（對不起逆風，我沒做到） 十六、上面的注冊機源碼是正確無誤的，不過我就說我的偷懶源碼，比較一下兩者的重要部份： 這是逆風的源碼，不錯的，我頂一下先！ _ Private Sub Command1_Click() strtmp = Text1.Text nlen = Len(strtmp) k = 1 For i = 1 To nlen j = Asc(Mid(strtmp, i, 1) If j 58 Then k = 2 End If Next i If k 2 Then Text2.Text = Val(Text1.Text) Xor &H11677831 End If End Sub 這是我的偷懶精簡源碼，還行吧！倒黃婆什么的啊 Private Sub Command1_Click() strtmp = Text1.Text a = Val(Text1.Text) b = a Xor &H11677831 Text2.Text = b End Sub 十七、編譯的過程不再重復，大家自己去做一下，這樣就可以加深對用VB寫算法注冊機的理解及認識的。努力啊，兄弟們，沒理由你比我還菜的吧！ _ 十八、此文作為算法注冊機編寫掃盲第二課，希望能真的能給予你幫助，學海無止境，大家一起共同學習，將來的DFCG都可以得心應手的寫出各自的算法注冊機時，我就老懷安慰了！別啊別擲磚頭?。∥议W不就得了 嘿嘿！ 十九，下一課的主題是注冊機的窗口簡單設計及編寫簡單的crackMe，當然，用的還是VB6，想繼續(xù)看的話，先頂此帖，不頂我不寫了！ _ 二十、本篇原創(chuàng)作者-我要DFCG，版權沒有，人權我有，所以凡轉此帖的友站及各路朋友兄弟們，必注明此文出自DFCG組織及我要DFCG原創(chuàng)為先決條件，否則謝絕轉帖轉載。網路本一家，但總不至于沒個出處明示的吧！感謝你的閱讀！ 算法注冊機編寫-第三課 = 注：接第二課，我又來了，這次又得“胡說八道”題內話多多的了！為何？這樣才可以更詳細的說出個其所以然，還得保證你的心情輕松??！好，來了，下面就以實例接著來吧。 _ 一、看過前2課的朋友，現在你已經完全可以自己編譯出難度為中的算法注冊機，再難點的，比如，大數的，移位的，帶小數點多位注冊機，你還是不行，因為要應用相應的函數和控件什么的，這是后話，已經不是本篇的掃盲范圍了，在以后的日子，你有需要時，可以找書本翻翻，找懂的朋友問一下，只要你虛心，應該是完全可以再進一步的。 二、寫到這里，有點暈頭，用文字去表達這一課的內容可真有點范難的，真想隨便做個動畫就帶過此課，哎，不過已經是開始了2課，沒理由就這樣不負責任的作出放棄的?。∴?，好吧，我盡量寫得哆嗦一點，詳盡一點，希望大家真的能消化并看得明了就是！更因為我也菜的不行??！ _ 三、先以編寫最簡單的算法注冊機開始，說一下窗體的構建及應用吧！看這個之前，最好請先回看上2課的內容，作為加深一下認識，要不下面的你可能就不知我在說的是什么了。 四、現在啟動VB6，打開你的白板模板（此后就用模板表示，注意），上2課說過VB6左側的功能應用，到這里該說說右面的功能應用，要不你是寫不出個有個性的工程文件的。這就是要哆嗦的地方，我的用詞已經盡量地不用專有名詞，用最好理解的方式去表達了。嘿嘿 是我要DFCG你自己不懂吧！哦，也許！ _ 五、好，看到沒有，VB6的界面靠右側，有一功能框，里面想要的都有，怎么用它?。恳话銓懽詸C之類的小東東，你不需要全知道它的每一個選單的作用，這在你以后應用中一定會明了的，只不過是沒個開始或沒人引路而已。 六、第一個框是工程框，你要構建你的個性化窗體，這里的你一定要認識它。因為以后你要添加個性化的說明或其它功能添加時，你就得用它去添加窗體等。好，你已經啟動了你的模板，那這個框里就可見有“Form1 (Form1)”，用右鍵點出下拉菜單看看，里面有好多的選項，但其它的先別去看或暫時并不需要它。你看到里面有一個選項“添加”，光標放到這個行上，會出來選單的，看看： 添加窗體 添加MDI窗體 添加模塊 添加類模塊 添加用戶控件 添加屬性頁 添加用戶文檔 添加文件 七、看好了，上面的幾個選項，從掃盲角度來說，只要知道第一個就夠了，“添加窗體”的功能，這個能讓你在以后的注冊機上另添加上只屬于你的說明文件或相片之類的。 八、第二個框（屬性框）看看，里面一大串由E文注明的應用選項，暈啊，我不懂E文怎辦了?。繘]事，只要記好常用的就行?？纯矗?Alignment 所選項目的位置，有：左對齊，右對齊，居中 Appearance AutoRedraw BackColor 改變特定文本框或窗體的顏色 BorderStyle 改變標題欄的功能項，如“最小化”、“最大化”的開啟關閉 Caption 改變標題欄名稱的地方，如寫入“XXX注冊機” ClipControls ControlBox DrawMode DrawStyle DrawWidth Enabled FillColor FillStyle Font 改變寫入字體的大小等設定 FontTransparen ForeColor 改變寫入字體的顏色 HasDC Height HelpContexID Icon 添加你的個性化圖標，也就是注冊機的圖標了 KeyPreview Left LinkMode LinkTopic MaxButton MDIChild MinButton MouseIcon MousePointer Moveable NegotiateMenus OLEDropMode Palette PeletteMode Picture 添加個性化圖片，就是注冊機窗體里的圖版，需要配合左側工具應用 RightToLeft ScaleHeight ScaleLeft ScaleMode ScaleTop ScaleWidth ShowInTaskbar StartUpPositio 設定你的注冊機彈出時所處窗口的位置 Tag Top Visible WhatsThisButto WhatsThisHelp Width windowSTate 九、初學的只要知道這些足夠，還有我沒注明的，以后再說或你查一下書本就會知道的。十、現在引用上一課我給出的VB算法注冊機源碼來繼續(xù)課程，看下面： Private Sub Command1_Click() strtmp = Text1.Text a = Val(Text1.Text) b = a + a c = b + &H15E0E9C d = c * &H4 e = c + d Text2.Text = e End Sub Private Sub Command2_Click() Form2.Show End Sub Private Sub Command3_Click() Unload Me End Sub 十一、仔細看看，這段源碼里多了幾句在里面，解析如下： Command1 第一個拉出來的功能按鈕（你可以定名為“算號”） Command2 第二個拉出來的功能按鈕（你可以定名為“關于”） Command3 第三個拉出來的功能按鈕（你可以定名為“退出”） Private Sub Command2_Click() Form2.Show End Sub 這一段就是調用第二個窗體的語句，就是點“關于”時，彈出另一個屬于你的說明窗體。 Private Sub Command3_Click() Unload Me End Sub 這一段就是調用關閉窗體的語句，就是點“退出”時，工程也同時退出 十二、看明白就試一下去，別老看不動手的，這樣你是永遠寫不出你的注冊機，窗體的構建都說過了，源碼也放上來了，怎么去做？回看上一課，應該怎樣添加這段源碼進VB里，不用再說明了吧！因為你一定比我聰明??！ 十三、我做幾個附件隨課文一起發(fā)，你可以應用一下我的注冊機模板，對比一下你做出來的，在功能和使用上是否一致，是的話，恭喜你，你成功了！ 十四、我說老大，你的注冊機模板好看啊，我為何出來的不是這個樣子的啊？哈，先學走路再學跳高跳遠才是你的根本。以后的課，我也許會繼續(xù)教你用手或利用控件去生成更好看的窗體的模板，但這因個人喜好而有所不同，所以這已經超出本掃盲課程的范圍了！ _ 十五、好了！大家還記得我寫過一個crackMe給初學的朋友練手的嗎？這個東東是明碼還是唯一的，本來就沒寫注冊機的必要，但當時有朋友覺得需要，所以我就寫了一個?，F在回過去，要寫這種注冊機可以分2個方式，都能達到顯示出注冊碼的效果。 十六、尊重原crackMe的算法的話（這個你得一定有這個良好習慣了），你可以這樣寫，看下面是由這個crackMe的算法所寫的VB源碼： Private Sub Command1_Click() strtmp = Text1.Text a = 22222 b = a + 33333 c = b * 12345 d = c - 617271605 Text1.Text = d End Sub 十七、這段源碼生成的注冊機，你點一下算號鍵，在注冊碼框就出來真注冊碼。窗體的外觀之類的，這里不再重復，回看上面課文吧！你的一定別與我相同。哈，免得有人罵你盜版了啊！ _ 十八、回頭再說，這個crackMe是明碼和唯一的，有朋友說，沒必要與算法結合寫注冊機，只要達到顯出注冊碼就行。好，這下就應該教你學會應用VB6的退出時彈出窗口功能了?？聪旅嬖创a： Private Sub Command1_Click() MsgBox 68554870 & Chr(10), vbOKOnly + vbInformation, 注冊碼 End End Sub 十九、現在將你的Command1功能按鈕改名為“算號”，啟動這個注冊機看看，你就點一下“算號”鍵，哈，彈出一個名為“注冊碼”的窗口，里面你看到的是什么東東，呵，就是一串數字，這就是注冊碼了！是哦，這樣夠直接簡單的！ 二十、好！應該打住了，第三課所提到的我做了樣板，大家需要的就一起下載回去研究。也得讓你去消化一下的吧！下一課我繼續(xù)講怎樣去寫簡單的crackMe，或許再教你寫出你的個性化名片之類的小東東。至于在注冊機添加音樂和特殊的外觀窗體，這不在掃盲范圍，你們去找高手老大們好了，我菜的實在不行了！ _ 二十一、還要不要下一課，要的跟帖頂帖，看帖不回我看不起你，因為你不尊重我的勞動啊！我也是人，我也會累的吧！暈，誰的鞋子啊，別啊，我閃 二十二、本篇原創(chuàng)作者-我要DFCG，版權沒有，人權我有 _ 所以凡轉此帖的友站及各路朋友兄弟們，必注明此文出自DFCG組織及我要DFCG原創(chuàng)為先決條件，否則謝絕轉帖轉載。網路本一家，但總不至于沒個出處明示的吧！感謝你的閱讀！ 算法注冊機編寫-第四課 = 注：接第三課，我又來了，這次沒有多余的話。來！就以實例接著來吧。 _ 某crackme算法分析 嘿嘿！去年年初的時候，我發(fā)過這個東東，并做了動畫教學破解并介紹了內存注冊機的作法。這次還是用它，不過是算法注冊機及算法的內容。對我本人來說，還是有點意義的。N久沒看過自己的破文了，為了這第4課，又翻出來，哈，我啊，果然是菜的不行的那種！就找軟柿子下手。 _ = 一、首先運行TRW2000指向step1.exe，然后隱藏。 二、啟動step1.exe 三、輸入注冊名：woyao，注冊碼：7979，先不要點注冊鍵。 三、按Ctrl+N激活TRW2000 下斷點命令: bpx hmemcpy 設置萬能斷點 四、按F5返回，點擊注冊按鈕，程序被攔截，下命令: bc* 清除斷點 pmodule 直接進入程序領空 五、現在再按F10鍵N下（找到金礦），到如下代碼： :004011B7 E8A4120000 call 00402460 這里開始取注冊名 :004011BC 59 pop ecx :004011BD 8BC8 mov ecx, eax 注冊名位數入ecx :004011BF 83F904 cmp ecx, 00000004 一定大于或等于4 :004011C2 7D14 jge 004011D8 正確就跳到004011D8 :004011C4 6A10 push 00000010 * Possible StringData Ref from Data Obj -ERROR | :004011C6 687CB14000 push 0040B17C * Possible StringData Ref from Data Obj -Your name must contain at least -4 characters! ?_? :004011CB 684CB14000 push 0040B14C :004011D0 56 push esi * Reference To: USER32.MessageBoxA, Ord:0000h | :004011D1 E828900000 Call 0040A1FE :004011D6 EB67 jmp 0040123F * Referenced by a (U)nconditional or (C)onditional Jump at Address: |:004011C2(C) | :004011D8 33D2 xor edx, edx edx清零 :004011DA 33C0 xor eax, eax eax清零 :004011DC 3BC8 cmp ecx, eax 比較eax，ecx :004011DE 7E0D jle 004011ED 大于跳004011ED，結束運算 * Referenced by a (U)nconditional or (C)onditional Jump at Address: |:004011EB(C) :004011E0 33DB xor ebx, ebx ebx清零，下面的注意看了 :004011E2 8A5C05E4 mov bl, byte ptr ebp+eax-1C 注冊名ASCII的16進制值移入ebx低位 :004011E6 03D3 add edx, ebx :004011E8 40 inc eax 累加計數器 :004011E9 3BC8 cmp ecx, eax 比較eax和ecx是否加完？ :004011EB 7FF3 jg 004011E0 小于跳到004011E0繼續(xù)加 * Referenced by a (U)nconditional or (C)onditional Jump at Address: |:004011DE(C) | :004011ED 52 push edx * Possible StringData Ref from Data Obj -%d | :004011EE 6882B14000 push 0040B182 :004011F3 8D45AC lea eax, dword ptr ebp-54 :004011F6 50 push eax :004011F7 E8C0280000 call 00403ABC :004011FC 83C40C add esp, 0000000C :004011FF 8D55AC lea edx, dword ptr ebp-54 :00401202 52 push edx :00401203 8D4DC8 lea ecx, dword ptr ebp-38 :00401206 51 push ecx :00401207 E808120000 call 00402414 關鍵call，注冊碼比較處 :0040120C 83C408 add esp, 00000008 :0040120F 85C0 test eax, eax :00401211 7517 jne 0040122A 不等就完蛋了！ ? _ ? :00401213 6830000400 push 00040030 * Possible StringData Ref from Data Obj -You Did It!/_ | :00401218 68CEB14000 push 0040B1CE 算法總結： crackme算法超簡單，注冊碼等于注冊名ASCII的16進制值相加后的10進制值 算法舉例： 注冊名：woyao 注冊碼：119 + 111 + 121 + 97 + 111 = 559（十進制值） VB注冊機源碼： Private Sub Command1_Click() a = Text1.Text For i = 1 To Len(a) b = b + Asc(Mid$(a, i) Next i Text2.Text = b End Sub 六、再來一個不久前的軟件，算法分析已經有朋友寫過了，這里不再從復，因為教程的目的是算法注冊機的編寫啊，來，看下面： 全國電話通 Ver1.09.01注冊算法 算法總結如下： 注冊碼(機器碼(轉為十六進制)-3F9)/2D3+3F9)*2D3 用戶名可任意填寫，因為它并不參與注冊碼的校驗 輸入的機器碼設為a，列出算式： ( (a - 3F9) / 2D3 + 3F9) * 2D3 我的機器碼：118866 我的注冊碼：853140 VB注冊機源碼見下面： Private Sub Command1_Click() strtmp = Text1.Text a = Val(Text1.Text) b = a - &H3F9 c = b / &H2D3 + &H3F9 d = c * &H2D3 Text2.Text = d End Sub 七、為何源碼要分幾段來算的？回看算法總結，列出算式看看先，哦，原來與括號有所關連的。明白了！我要DFCG偷懶源碼的“精華”在此。 !#&%$ _ 八、因為我菜，所以學無精點，老想偷懶易用，哈，總算摸出一個規(guī)律與方法，這下不就全送上來了，大家有用就學，沒用就在你以后上手時，把我要DFCG的偷懶“精華”送回老家好了！ _ 九、看得我頭暈暈的，你個家伙就沒說正題，不是說過要教寫簡單crackMe的嗎？看你急的，我在論壇上積分“負”的流油都不急，你急什么啊?。肯肫鹬隆柏摗痹?，哈，這里應該上你老學童一筆，你欠我的分數，賠我，要不就。 十、磚頭、臭雞蛋又來了？暈，不說就不說，打住?？聪旅嬖创a： CrackMe_DFCG源碼 Private Sub Command1_Click() Dim a, b, c, d, X As Integer a = 22222 b = a + 33333 c = b * 1234 d = Val(Text1.Text) If c = d Then MsgBox 高手！我服你 _ Else MsgBox 哈！你比我萊 _ End If End Sub Private Sub Command2_Click() 關于DFCG.Show End Sub = CrackMe_DFCG注冊機源碼 Private Sub Command1_Click() strtmp = Text1.Text a = 22222 b = a + 33333 c = b * 1234 Text1.Text = c End Sub 十一、上面這個是萊鳥級的CrackMe，簡單之極的。沒什么好說了，下面再來個進一步的CrackMe，這個東東在你輸入正確注冊碼后就會彈出新的工程窗口，呵呵，軟件注冊碼輸入正確是什么境況的！ _ 看下面： pass_CrackMe窗口1源碼：（Form1） Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) End End Sub pass_CrackMe窗口2源碼：（Form2） Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then If Text1.Text = woyaoDFCG Then Form1.Show Unload Form2 Else Text1.Text = Print MsgBox(“對不起！密碼錯誤！” + Chr(10) + Chr(10) + Chr(13) + 請您重新輸入正確的密碼！, 48, 哈！失敗了 ) End If End If End Sub 十二、這次不給注冊機源碼，你自己來吧！反正與上面的差不多，只是過程我做了一點小改動而已，多試有益了。來吧，動手吧！ 十三、隨本課將提到的所有東東作為附件一起上來，要的就下載回去研究。后面的這個pass_CrackMe，我將完整的源碼也打包一起在內，改一下它你就得到另一個功能的CrackMe，比方說，輸入密碼正確時，彈出一幅PLMM的圖片之類的。 十四、到這里為止，本掃盲內容已講的差不多了，下一課就作為總結再重復一下前幾課的內容，并教大家做出你的個性化名片，好壞只在個人喜好，不過知道它的編寫過程，如下的美工類工作就看你本人的所喜所好了！ _ 十五、本篇原創(chuàng)作者-我要DFCG，版權沒有，人權我有 _ 所以凡轉此帖的友站及各路朋友兄弟們，必注明此文出自DFCG組織及我要DFCG原創(chuàng)為先決條件，否則謝絕轉帖轉載。網路本一家，但總不至于沒個出處明示的吧！感謝你的閱讀！ 算法注冊機編寫-第五課 = 注：接第四課，我又來了，這次想多余話都沒有了。來！接著來吧。 _ 這個課程一共寫了五課，總算可以做一個總結或叫完結了！怎么，意尤未盡？沒法，我要DFCG菜的不行的，只是將一些個人的所謂經驗或心得拿來獻丑而已，裝酷了?。〈u頭，爛柿子，臭雞蛋一起擲過來了吧！先別啊，我還得說完再走的，你別趕我行不行了，我暈 = 一、到這里，應該說些什么內容呢？真的有點暈，以中級的來看，該說的都好象說了吧！還有什么好說的，想想 二、給些學習的方法吧！多試多練不就是了？還有說頭的嗎？有，還是坐下來看完這第五課吧！ 三、學著自已編寫一個屬于你的程式，看下面源碼： Private Declare Function ShellExecute Lib shell32.dll Alias ShellExecuteA (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.ForeColor = &HFF0000 Label1.FontSize = 9 Label2.ForeColor = &HFF0000 Label2.FontSize = 9 End Sub Private Sub label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label1.FontSize = 10 Label1.ForeColor = &HC0& End Sub Private Sub label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Label2.FontSize = 10 Label2.ForeColor = &HC0& End Sub Private Sub label1_Click() She