軟體註冊保護與“多型變形混淆”技術淺述

軟體註冊保護與“多型變形混淆”技術淺述


導引

多型（Polymorphic），變形（Metamorphic）和混淆（Obfuscation, Jumble,Chaos）出現在病毒應用技術中已經不是什麼新鮮的話題了，變形技術在病毒中的不斷改進和發展，已經引起反毒專家的重視，這種變化趨勢的確對目前的反毒引擎，自動探測技術提出了更高的要求和挑戰。“變形病毒非常難於去分析，他們的隨機傳染和散佈機制帶給自動反毒系統大的挑戰”[Peter szor Virus Bulletin 2000]。

既然這些技術可以用於病毒，當然，放到軟體保護中來完全適合。的確，這樣的工作一直在進行和發展中。“變形技術是非常有前途的雖然它目前很少被應用於與軟體保護。變形技術在每次使用時，透過變換自身程式碼去阻止被破解，當前還沒有哪個保護軟體採用了全部的變形技術。[Pavol Cerven Crackproof Your Software 2002]。（此書作者已經在他本人發售的軟體保護系統：The Slovak Protector －SVKP中嘗試採用了變形技術，不知效果如何）


簡介

多型：既是完成同一功能採用了不同的方法。多型的特點是隨機性和變化性。例如一個檢查過程，呼叫了3個子過程完成全部安全檢查機制。應用多型技術，這個檢查過程在每次程式執行時，會隨機呼叫不同的子程式並以不同的呼叫次序來完成全部的安全檢查計劃。如此，破解者很難跟蹤，並做出通用破解補丁。這個隨機的初始化過程一般由一個初始化程式完成，這個程式通常稱為“多型引擎”。

變形：基於多型技術，它發展和提升了多型技術。它可以動態生成更復雜的檢查過程，包括對重要程式片斷的動態加密、解密，動態變換全部檢查過程的程式碼和資料，基於內建的各種不同加密、解密演算法。對目的碼段進行動態控制和編/解碼。這其中可能還包括程式碼混淆過程。使得跟蹤者迷惑於複雜的變換和還原過程，無法找到真正的檢查過程和解碼程式。如果其中包含複雜的加密演算法（比如多型加密演算法，參見後文中的連線地址）會使得整個安全檢查機制十分難於分析和最終的破解。“多型加密演算法屬於當今的強加密演算法之一，很可能是最強的”[CyProtect AG]

混淆：將一段程式碼變得非常難以理解，但功能完全相同。例如：

原始程式碼：
Mov ax, 01
Mov bx,34
Push ax
Call 123456

混淆後程式碼：
Mov ax,09
Mov bx,4
Shr bx,1
Sub ax,bx
Mov si, 123456
Nop
Xchg ax,bx
Push bx
Pop ax
Push 34
Pop bx
Call [si]

顯然，混淆後的程式碼更需要花費更多時間去分析。通常，混淆程式碼是由一個混淆發生器（Obfuscation generator）來自動生成的，它按照事先約定的特徵標識去使用哪些未被混淆過程中應用的暫存器去搞亂目標程式片斷，並且它可以控制生成程式碼片斷的長度和複雜性，以便於隨後的其他加、解密程式修改相應的特定程式片斷。當然，這個混淆發生器需要全配合整個程式中其他處理過程的，並非獨立的非關聯性子程式。

透過上述簡單的描述，大家可以看出，一套好的加密機制，需要非常嚴密的構造。高強度，隨機性，動態變換的基於多型，變形和混淆技術的加密系統，是完全可以實現的。在這個較新的領域，已經有了比較好的理論基礎，和一些實踐應用。


簡單應用分析

PE加密

通用的PE加密商用軟體產品的發展趨勢是逐漸融合外殼與被加密程式，使得普通脫殼後的程式根本無法正常執行。由於一部分原始程式碼已經被轉移到外殼中，所以整個程式執行期間，外殼與被加密程式已經是不可分割的一個整體，所以破解變得必須搞清更多的加密程式以及原始程式的細節。對於較大的軟體，這是一個非常困難的工作。

如果PE加密採用註冊方式（這幾乎也是最常見的方式），它可以在PE加密軟體中本身定義一個key空間，並依據個別計算機硬體特徵，動態生成一個範圍更小的有效key空間。當被加密軟體尚未被真正註冊時，每次執行它時動態產生一組有效key用於校驗過程，當然這組key不會出現在判斷過程，而是被執行時用於控制程式執行序列和呼叫程式入口產生。如此，跟蹤會變得很困難。

Pe加密程式可以定期更新自己的加、解密演算法和key空間資料庫從自家的主機上，來提高自身的加密強度和隨機性。當一個真正的使用者註冊了程式後，pe加密程式應該設定足夠的功能，使得產生的有效key僅僅依賴使用者的計算機，被註冊後的程式不能脫離本機執行，並且在一定的時間許可範圍內有效。這些技術相信已經廣泛被採用。這樣，避免了合法使用者非法散佈有效key提供給其他人註冊一個未註冊的程式版本。外殼程式好像是被加密軟體的一部分，一旦加裝，無法剝離。當然，這種有效融合技術，需要PE加密軟體的生產者具有很強的功力，並且加密機制是經過周全的研究而建立起來的。

一個簡單的加密檢查過程，可以採用動態程式地址生成技術，例如
Call 取得解密字
Mov ax,解密字1
Mov bx,解密字2
Mov cx,解密字3
Mov dx,解密字4
Mov si,地址表基地址指標
Call [si+ax]
Call [si+bx]
Call [si+cx]
Call [si+dx]

解密字可以是取自注冊號，註冊號可以採用單向hash演算法（例如md5）透過使用者輸入的使用者名稱和其他資訊（比如硬體資訊）算出。如此，如果程式中提供20解密子程式，呼叫次序的不同，在解密字不可知，解碼過程不確定的情況下，窮舉測試跟蹤和暴力攻擊變得幾乎難以進行。

有效的註冊碼包含有效的解碼字和解碼次序，這些解碼字以及執行次序被PE保護程式事先已經初始化，相關的檢查過程同樣已經被初始化，本地化，用於配合有效註冊碼。這一步，應該是被在使用者計算機上安裝被加密程式時進行的。如果破解者，這是跟蹤程式，由於演算法過程的複雜性，跟蹤者很難明白，程式安裝過程中的行為的意義。如此，一旦程式被安裝在使用者計算機中，有效的解碼字和解碼次序已經被包含在使用者計算機上生成的資料庫中。所以一個使用者擁有一個獨立的註冊生成器，它不能用於生成通用的註冊碼，它的有效性基於使用者的計算機，它可以包含本地的pe加密軟體中。

破解者無法找到一個通用的辦法去破解被保護軟體即使他已經是合法使用者。有關的簡化過程演示，小弟已經在一個簡單的crackme中完成，雖然，它僅僅表現了一個靜態的檢查過程，但可以把它看成是應用多型變形技術在一次執行過程中的靜態記憶體影像。真正應用多型變形技術，應該每次執行都有不同的檢查過程，這個過程還有可能動態改變。（crackme原始碼附後，請參考）。

有關該主題更多的資訊可以在INTERNET上查詢，這裡只給出幾個有關關聯，參看多型加密演算法“Introduction to the polymorphic encryption method http://english.cyprotect.com/main0110.php”，以及“Polymorphic Cipher Theory C.B. Roellgen, 2002) http://www.ciphers.de/downloads/roellgen02generalizedPMCmodel.pdf”


隨筆

關於花指令

一般的花指令僅僅是混淆技術的簡單化應用，它部分的實現混淆技術，但缺少隨機性，複雜性，動態性。因此，它容易被破解者編制一個小程式自動移除。當然，一個好的有一定強度的混淆器絕對是需要很多時間去除錯的，估計對於一個有經驗的程式設計師，這個工作需要幾個月的時間，這其中，可能包含一些基本的彙編指令編譯原理，如果加上針對不同型別CPU指令流的預取功能分析，對不同平臺的相容性，適應性研究，這個工作看起來就不大適合普通的程式設計人員了。因為需要很多基礎知識的運用。在程式保護技術中，混淆是一種很好的對付反向工程的措施。

關於保護強度

一個保護軟體的強度並不僅僅基於它採用的加密演算法的強度。往往數學和理論上的強加密演算法在應用過程中由於各種條件限制或者程式設計人員的疏忽，使得信賴它的採用者最終失去利益。這個世界上從來就沒有不可能，只有想不到。所以，有效的機制必須被建立在一個軟體保護產品規劃的初期，並被不斷的完善和發展。這其中綜合了好的加密演算法，反跟蹤技術，混淆技術，程式構造複雜性研究等等。

只有不斷的創新和發展，才是出路。因為技術是不斷髮展的，軟體保護者如果閉起他的眼睛，不再關注破解者的努力時，他的產品就已經過時了。

法律規定任何人在未經允許的情況下，不得進入你的房子，但你更願意給自己的房子加把鎖。1650位的RSA真的需要25年才可以攻破嗎？

====crackme source codes====


;========================================================================
;                                                                       =
; Title: Poly-metamorphism algorithm Testing System                     =
;                                                                       =
; Version: 1.0.2                                                        =
;                                                                       =
; Author: Virtualspace                                                  =
;                                                                       =
; Description:                                                          =
;                                                                       =
;      This Testing System is designed for demonstrating                =
;      a simple implement based on Poly-metamorphism algorithm.         =
;      the algorithm is proposed by Virtualspace to improve             =
;      registration number protection technique with software           =
;      protection industry.                                             =
;                                                                       =
;                                                                       =
; Created Date  : 04,Aug,2003                                           =
; Modified Date : 19,Aug,2003                                           =
;                                                                       =
;                                                                       =
; Note:The Source code is designed in Assembly Language(Intel) for      =
;      suiting running qualifications under Windows/98/2000/XP/2003     =
;                                                                       =
;      default   user name : take me home                               =
;                       MD5: 4FA4E6AD4FE671273B49F08838ACC9D3           =
;                          : 4FA4-E6AD-4FE6-7127-3B49-F088-38AC-C9D3  =
;       Registration Number: 4FA4-E6AD-4FE6-7127-1884-1F20-1ABE-1AEC    =
;                       xor:                          efa8 2212 d33f    =
; 3 decryption is efa8 2212 d33f                                        =
;                  =
; magic number 1 :d33f xor 2212 xor efa8 = 1e85        =
; magic number 2 :d33f sub 2212 xor efa8 = 5e85        =
; magic number 2-1 (ah xchg al)= 40          =
; magic number 3 :efa8 sub 2212 xor d33f = 1ea9        =
;                  =
;                  =
; Comments:                =
;                  =
; This version of crackme is encrypted by        = 
; different encryption algorithms          =
;                  =
;                  =
;========================================================================


.386
.model flat,stdcall
option casemap:none


;************************************************************************
; Include files                                                         *
;************************************************************************

include    masm32includegdi32.inc
include    masm32includewindows.inc
include    masm32includeuser32.inc
include    masm32includekernel32.inc
includelib masm32libuser32.lib
includelib masm32libkernel32.lib
includelib masm32libgdi32.lib

;************************************************************************
; Function prototypes                                                   *
;************************************************************************

Dialog_Main          PROTO :DWORD,:DWORD,:DWORD,:DWORD
Dialog_Process       PROTO :HWND,:UINT,:WPARAM,:LPARAM
Dialog_About_Process   PROTO :HWND,:UINT,:WPARAM,:LPARAM
Dlalog_Success       PROTO :DWORD,:DWORD,:DWORD,:DWORD
MessageBox              PROTO :DWORD,:DWORD,:DWORD,:DWORD 

MD5HASH_Process         PROTO :DWORD,:DWORD,:DWORD
HEX2ASCII               PROTO :DWORD,:DWORD,:DWORD

Decryption_Word_Process PROTO
Decryption_Process      PROTO :DWORD,:DWORD,:DWORD,:DWORD
Encryption_Process      PROTO :DWORD,:DWORD,:DWORD,:DWORD

Judge_Process           PROTO :HWND,:DWORD,:DWORD,:DWORD,:DWORD
Check_Process           PROTO :DWORD,:DWORD,:DWORD

Block_Encrypt_Process   PROTO 
Block_Decrypt_Process   PROTO 

Tea_Encrypt_Process    PROTO
Tea_Decrypt_Process    PROTO


Function_Jmp_Next_Process  proto




;************************************************************************
; Macros                                                                *
;************************************************************************

RGB macro red,green,blue
    xor eax,eax
    mov ah,blue
    shl eax,8
    mov ah,green
    mov al,red
endm


;************************************************************************
; Initialize constant                                                   *
;************************************************************************

INITIALIZE_ENCRYPTION_INFORMATION equ 0



;*************************************************************************
; Defined constants                                                      *
;*************************************************************************
.const

IDD_DIALOG_MAIN          equ            1000

IDC_EDIT_USER_NAME            equ                     1004
IDC_EDIT_EMAIL                equ                     1005
IDC_EDIT_REGISTRATION_NUMBER    equ                     1006
IDC_BUTTON_SUBMIT             equ                     1007
IDC_BUTTON_CLEAR              equ                     1008
IDC_BUTTON_EXIT               equ                     1009
IDC_BUTTON_ABOUT              equ                     1010

IDD_DIALOG_ABOUT        equ            2000
IDC_BUTTON_ABOUT_OK        equ            2001


dtBufferLength equ 64

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; ENCRYPT TABLE
;
; Ensure all values are different
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~


FUNCTION_1_ENCRYPT_VALUE_1 equ  04f9ah
FUNCTION_1_ENCRYPT_VALUE_2 equ  023cdh
FUNCTION_1_ENCRYPT_VALUE_3 equ  06685h
FUNCTION_1_ENCRYPT_VALUE_4 equ  02a73h

FUNCTION_2_ENCRYPT_VALUE_1 equ  0efa8h
FUNCTION_2_ENCRYPT_VALUE_2 equ  045c3h
FUNCTION_2_ENCRYPT_VALUE_3 equ  03cdeh
FUNCTION_2_ENCRYPT_VALUE_4 equ  06679h

FUNCTION_3_ENCRYPT_VALUE_1 equ  02212h
FUNCTION_3_ENCRYPT_VALUE_2 equ  011a1h
FUNCTION_3_ENCRYPT_VALUE_3 equ  02133h
FUNCTION_3_ENCRYPT_VALUE_4 equ  03344h

FUNCTION_4_ENCRYPT_VALUE_1 equ  0d33fh
FUNCTION_4_ENCRYPT_VALUE_2 equ  0a0e6h
FUNCTION_4_ENCRYPT_VALUE_3 equ  0f89ah
FUNCTION_4_ENCRYPT_VALUE_4 equ  00d44h


;ENCRYPT TABLE END
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
; VALID ADDRESS MARK
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

FUNCTION_1_VALID_ADDRESS_MARK_1    equ 044558765h
FUNCTION_2_VALID_ADDRESS_MARK_2    equ 041243434h
FUNCTION_3_VALID_ADDRESS_MARK_3    equ 04df52342h
FUNCTION_4_VALID_ADDRESS_MARK_4    equ 04e7f12eah


; VALID ADDRESS MARK END
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

FUNCTION_MAX_VALID_ADDRESS_AMOUNT equ 5

;************************************************************************
; Initialized data                                                      *
;************************************************************************

.data
Dialog_Main_Name    db "IDD_DIALOG_MAIN",0
Dialog_Success_Name db "Dialog_Success",0

Error_Name          db "  Error",0
Error_Name_Empty    db "       ",0
ErrorString         db "You have entered an invalid password.",0
SuccessString       db "Congratulation! You did it! You are successful!",0
Error_String        db "You have entered an invalid password.",0

Success_String      db "Congratulation! You did it! You are successful!",0

Success_Info_Address dd Success_Info1

                     db 056h,21h,0f5h,0a3h,0beh,08dh    ;invalid chaos codes

Success_Decryption_Word dw 0dfbh                        ;0dfbh is an invalid full code 

                     db 0,1,0
Success_Info_Status  db 0,1,1,1
                     db "sldfm12!4jhghdTYKJ NB(*("      ;invalid chaos codes
;Success_Info        equ $
;                    db "You are the most welcome!"
;                    db "This program is a Demo, "
;                    db "If you have any suggestion,"
;                    db "Please send email to me ",0


 
;encrypted Success_Info 
;
;Success_Info1-4 encryption word are  FUNCTION_1_ENCRYPT_VALUE_1 equ  0173fh
;                                     FUNCTION_1_ENCRYPT_VALUE_2 equ  025e6h
;                                     FUNCTION_1_ENCRYPT_VALUE_3 equ  0369ah
;                                     FUNCTION_1_ENCRYPT_VALUE_4 equ  0477fh
;

Success_Info1   db 020h,0C3h,06Fh,0EFh,03Dh,0FBh,06Fh,0FFh,027h,0EEh,06Fh,0FFh,020h,0F7h,03Bh,0E9h  
        db 038h,0BAh,023h,0FFh,020h,0F9h,02Ah,0F7h,01Bh,0BBh,026h,0F2h,06Fh,0E9h,03Dh,0EAh  
        db 028h,0F5h,02Eh,0E8h,06Fh,0F7h,03Ch,0F3h,02Eh,0BAh,00Bh,0BAh,022h,0FFh,063h,0F5h  
        db 006h,0BAh,06Fh,0FCh,020h,0E3h,06Fh,0EFh,02Eh,0F2h,02Ah,0ECh,02Eh,0BAh,036h,0F4h  
        db 03Ch,0BAh,028h,0EFh,02Ah,0FDh,03Bh,0E9h,020h,0F3h,063h,0F4h,023h,0CAh,02Eh,0FFh  
        db 02Ah,0E9h,03Ch,0BAh,021h,0FFh,06Fh,0FEh,022h,0FFh,026h,0FBh,06Fh,0F6h,020h,0EEh  
        db 020h,06Dh,065h,020h,00h                                                          
                                                                                    
Success_Info2  db 04Ch,094h,003h,0B8h,051h,0ACh,003h,0A8h,04Bh,0B9h,003h,0A8h,04Ch,0A0h,057h,0BEh  
        db 054h,0EDh,04Fh,0A8h,04Ch,0AEh,046h,0A0h,077h,0ECh,04Ah,0A5h,003h,0BEh,051h,0BDh  
        db 044h,0A2h,042h,0BFh,003h,0A0h,050h,0A4h,042h,0EDh,067h,0EDh,04Eh,0A8h,00Fh,0A2h  
        db 06Ah,0EDh,003h,0ABh,04Ch,0B4h,003h,0B8h,042h,0A5h,046h,0BBh,042h,0EDh,05Ah,0A3h  
        db 050h,0EDh,044h,0B8h,046h,0AAh,057h,0BEh,04Ch,0A4h,00Fh,0A3h,04Fh,09Dh,042h,0A8h  
        db 046h,0BEh,050h,0EDh,04Dh,0A8h,003h,0A9h,04Eh,0A8h,04Ah,0ACh,003h,0A1h,04Ch,0B9h  
        db 020h,06Dh,065h,020h,00h                                                          
                                                                                            
Success_Info3  db 009h,0DCh,046h,0F0h,014h,0E4h,046h,0E0h,00Eh,0F1h,046h,0E0h,009h,0E8h,012h,0F6h  
        db 011h,0A5h,00Ah,0E0h,009h,0E6h,003h,0E8h,032h,0A4h,00Fh,0EDh,046h,0F6h,014h,0F5h  
        db 001h,0EAh,007h,0F7h,046h,0E8h,015h,0ECh,007h,0A5h,022h,0A5h,00Bh,0E0h,04Ah,0EAh  
        db 02Fh,0A5h,046h,0E3h,009h,0FCh,046h,0F0h,007h,0EDh,003h,0F3h,007h,0A5h,01Fh,0EBh  
        db 015h,0A5h,001h,0F0h,003h,0E2h,012h,0F6h,009h,0ECh,04Ah,0EBh,00Ah,0D5h,007h,0E0h  
        db 003h,0F6h,015h,0A5h,008h,0E0h,046h,0E1h,00Bh,0E0h,00Fh,0E4h,046h,0E9h,009h,0F1h  
        db 020h,06Dh,065h,020h,00h                                                          
                                                                                            
                                                                                            
Success_Info4   db 045h,02Ah,00Ah,006h,058h,012h,00Ah,016h,042h,007h,00Ah,016h,045h,01Eh,05Eh,000h  
        db 05Dh,053h,046h,016h,045h,010h,04Fh,01Eh,07Eh,052h,043h,01Bh,00Ah,000h,058h,003h  
        db 04Dh,01Ch,04Bh,001h,00Ah,01Eh,059h,01Ah,04Bh,053h,06Eh,053h,047h,016h,006h,01Ch  
        db 063h,053h,00Ah,015h,045h,00Ah,00Ah,006h,04Bh,01Bh,04Fh,005h,04Bh,053h,053h,01Dh  
        db 059h,053h,04Dh,006h,04Fh,014h,05Eh,000h,045h,01Ah,006h,01Dh,046h,023h,04Bh,016h  
        db 04Fh,000h,059h,053h,044h,016h,00Ah,017h,047h,016h,043h,012h,00Ah,01Fh,045h,007h  
        db 020h,06Dh,065h,020h,00h                                                          

Success_Info_Length equ ($-Success_Info4)/8
                    db 0,0,0
                    db "fd&*314e5fgfghkl986734w34zxzvcnlvc fdg^",0
                
Test_Success_Info   db "You are the most welcome!"

Chaos_Char          db "435$%3sdfwq$%7f",0,"4gH98sSDG^$%",0,05h,076h,24h,04h
                    db "fd&tyutyutyutyghnbm bvkjhkN34345gnvG!&^",0
                    db "fd&*314e56^$&4567**^(&45;'klkl;k;'k;lJQK",0

IF INITIALIZE_ENCRYPTION_INFORMATION

Finial_Success_Info db "Congratulation!",0ah,0dh,0ah,0dh
              db "You did, You are an cracking master !",0ah,0dh,0ah,0dh
          db "This crackme is designed for "
          db "validating the Poly-metamorphism algorithm, "
                    db "which is proposed by author, "
                    db "Any more useful information,Please contact with me by email,"
                    db "Thanks a lot",0

ELSE

;encrypted success info

Finial_Success_Info db 0A3h,0D7h,07Ah,08Fh,04Eh,019h,052h,016h,0E8h,05Dh,0FFh,089h,05Ah,0E5h,029h,0ABh,009h,01Dh,009h,028h,0BAh,014h,063h,0A2h,0E5h,058h,048h,0C1h,059h,0F3h,013h,01Fh
          db 0A0h,0F1h,0C1h,080h,041h,06Ah,064h,0A2h,0E8h,047h,0FDh,09Ah,05Ah,0E3h,013h,06Dh,0B1h,0FDh,06Dh,0B2h,0BDh,06Eh,026h,0A2h,0BCh,0FFh,05Ch,023h,060h,0C8h,040h,013h
          db 0B0h,032h,000h,0B3h,044h,068h,062h,06Dh,0E0h,091h,048h,08Ah,063h,0F8h,04Ah,019h,0A4h,0FBh,07Dh,080h,049h,0ABh,055h,013h,0D3h,091h,0FCh,094h,064h,0E3h,0BFh,06Bh
          db 0A4h,0F9h,0C1h,086h,047h,01Fh,027h,065h,0DAh,0A1h,0EFh,081h,05Ch,027h,0BFh,06Fh,0A5h,0F1h,06Fh,08Eh,047h,01Bh,054h,069h,0A9h,05Ch,0FCh,094h,059h,0FDh,04Ah,01Ah
          db 0AAh,0E6h,035h,088h,0B8h,0ABh,05Eh,06Ah,0E1h,056h,0FFh,0D5h,028h,0E9h,041h,014h,0A2h,0E3h,06Eh,08Eh,04Bh,06Eh,065h,0A2h,0A9h,048h,0F3h,094h,060h,0E8h,041h,015h
          db 073h,03Eh,073h,0FCh,00Fh,002h,058h,06Dh,0E4h,047h,0F3h,0D5h,063h,0E9h,0BEh,06Eh,072h,0FEh,073h,084h,040h,06Dh,05Ah,010h,0D5h,050h,0F9h,09Ch,01Ch,0E6h,047h,074h
          db 0B1h,0F5h,07Ch,0B2h,04Ch,0ABh,059h,013h,0E8h,045h,0F4h,09Ah,052h,034h,0BFh,013h,072h,0FAh,07Ch,088h,04Dh,0ABh,027h,019h,0DCh,054h,0FFh,094h,01Ch,0E0h,04Bh,078h
          db 0A4h,0F1h,06Eh,08Ah,04Eh,0ABh,05Bh,0A2h,0D5h,042h,000

ENDIF


Decryption_Block_Length    equ $-Finial_Success_Info
          db 05h,0edh,013h,04fh,0deh,038h,01ah,099h,0b7h,08ah,09bh,043h
          db 12h,02eh,02bh,04fh,01eh,02ah,01ah,004h,0b7h,04bh,09dh,0aah
          db 05h,0dfh,04ch,05eh,044h,032h,02fh,043h,087h,02ah,023h,0aeh
          db 32h,022h,023h,04fh,0deh,037h,05ah,099h,007h,081h,0fdh,067h
            db "4Rdf5*&etretN34try3ty45gnvG!&^",0
                    db "fd&*314e5klyuo55678^(&34432LJfgEgnvG!77",0

 dw 08945h
                    
Decryption_Word1    dw 03462h       ; invalid value
Decryption_Word2    dw 075fdh       ; invalid value
Decryption_Word3    dw 05c54h       ; invalid value
Decryption_Word4    dw 0ea39h       ; invalid value

Current_Decrypt_Word dw 056f2h      ; invalid full value

                    db "fd&56j4l5 ^$&45rt rdt 4yt NLJd65   G!&^",0

IF INITIALIZE_ENCRYPTION_INFORMATION

FUNCTION_1_ENCRYPT_VALUE_1_ADDRESS dw FUNCTION_1_ENCRYPT_VALUE_1
FUNCTION_1_ENCRYPT_VALUE_2_ADDRESS dw FUNCTION_1_ENCRYPT_VALUE_2
FUNCTION_1_ENCRYPT_VALUE_3_ADDRESS dw FUNCTION_1_ENCRYPT_VALUE_3
FUNCTION_1_ENCRYPT_VALUE_4_ADDRESS dw FUNCTION_1_ENCRYPT_VALUE_4


Show_Info1          db "You are the most welcome!"
                    db "This program is a Demo, "
                    db "If you have any suggestion,"
                    db "Please send email to me ",0
                    db "1-end"

Show_Info2          db "You are the most welcome!"
                    db "This program is a Demo, "
                    db "If you have any suggestion,"
                    db "Please send email to me ",0
                    db "2-end"

Show_Info3          db "You are the most welcome!"
                    db "This program is a Demo, "
                    db "If you have any suggestion,"
                    db "Please send email to me ",0
                    db "3-end"

Show_Info4          db "You are the most welcome!"
                    db "This program is a Demo, "
                    db "If you have any suggestion,"
                    db "Please send email to me ",0
                    db "4-end"



ENDIF
                                        
TitleText           db "Poly-metamorphism algorithm: CrackMe 1.02"
                    db 0

FontName            db "NewRoman",0
FontNameSmall       db "Script",0


Mark                db 00
Hello_String        db "Hello" 
Error_Input_String  db "Invalid length of String inputted"
                    db "(at least 5 characters)",0

Password_Name       db "Password",0
Password_Value      db 64 dup(0)
                    db "&&&"
Password_String     db 64 dup(0)

EMail               db "Newcastlecity@hotmail.com",0

                 db "                === Welcome ===         ",0dh,0ah,0dh,0ah
                 db "Please attempt to crack this program version 1.0.2",0dh,0ah
               db "with your favourite debugger/disassembler.",0dh,0ah
                   db "There's a tutorial available for this CrackMe.",0dh,0ah
                   db "If you have any question or suggestion",0dh,0ah

Dialog_Main_Welcome_String db 0ah,0dh

                db "                === Welcome ===         ",0dh,0ah,0dh,0ah
                db "This program is a testing system        ",0dh,0ah,0
                db "Version 1.02 Author: Michael Z    2003  ",0dh,0ah,0
                db "University of Northumbria  2003         ",0dh,0ah,0
                db "Newcastle City upon Tyne in United Kinkdom ",0dh,0ah,0
                db "Please send email to me for help. thanks",0dh,0ah,0dh,0ah
                db "Email Address: Newcastlecity@hotmail.com",0dh,0ah,0

StringBufferSize equ $-Dialog_Main_Welcome_String

StringBuffer    db 0ah,0dh
                db "                === Welcome ===         ",0dh,0ah,0dh,0ah
                db "This program is a testing system        ",0dh,0ah,0
                db "Version 1.02 Author: Michael Z    2003  ",0dh,0ah,0
                db "University of Northumbria  2003         ",0dh,0ah,0
                db "Newcastle City upon Tyne in United Kinkdom ",0dh,0ah,0
                db "Please send email to me for help. thanks",0dh,0ah,0dh,0ah
                db "Email Address: Newcastlecity@hotmail.com",0dh,0ah,0

db 00h,0EAh,0A6h,05Eh,080h,0e2h,040h,000h,021h,055h,02Dh,06Ah,0F6h,000h,000h,000h,000

Jump_Address_Matrix dd offset Dialog_Process
            dw 034feh,0409ah
          dd offset Block_Encrypt_Process+10h
          dd offset Block_Encrypt_Process+5
          dd offset Block_Decrypt_Process
          db 01,02,03,04

Exit_Address equ $-Jump_Address_Matrix  ; Jump_Exit_Process
          
          dd offset Function_Jump_Exit_Address ; point to exit process
          dd offset xTea_Encrypt_Process
          dd offset Block_Encrypt_Process+10dh
          dd offset Block_Decrypt_Process
            dd offset xBlock_Decrypt_Process          
          dd offset Tea_Decrypt_Process
          dd offset Tea_Encrypt_Process+15h
          db 05,06,07,08
          
Tea_Encrypt_Address equ $-Jump_Address_Matrix          
          dd offset Tea_Encrypt_Process
          dd offset Block_Decrypt_Process+2dh
          dd offset Block_Decrypt_Process
          dd offset xTea_Decrypt_Process
            dd offset xBlock_Encrypt_Process          
          dd offset Block_Decrypt_Process-340dh
          dd offset Block_Encrypt_Process
          db 09h,0ah,0bh,0ch
          
Block_Decrypt_Address equ $-Jump_Address_Matrix        
          dd offset Block_Decrypt_Process
          
db 032h,0A4h,068h,04Eh,080h,0DCh,02Ah,06Ah,0F6h,028h,008h,01Dh,081h,090h,0FAh,0DFh,0FFh
db 089h,0h,046h,002h,000h,000h,068h,062h,04Eh,080h,088h,007h,01Dh,081h,03Ch,02Bh,06Ah,0F6h
          
MD5_String      db 32 dup(0)                ;show
                db 3  dup(0)
                db 16 dup("*")
                
Hexctr          db 0,0,'$'
                db 32 dup("$")
Xlatab          db 30h,31h,32h,33h,34h,35h,36h,37h,38h,39h
                db 41h,42h,43h,44h,45h,46h
                db "What"
Charx           db 0,0
                db "^^^"

Current_Time SYSTEMTIME <>  ; Current   " 
       
                db "Time"

; Tiny Encryption Algorithm data area
; keep 093eah and replace other 3 word with
; 3 decryption word 4-2  deef 2212 efa8 
;
Decryption_Block_Password equ Tea_Data
Decryption_Block_Cipher   equ Tea_Key

;correct values : 0d33fh, 02212h, 0efa8h, 007afh... address:00404a64
Tea_Key       dw 04efdh, 03216h, 09adfh, 007afh
Tea_Data      dw 00e54h, 02acch, 032afh, 049cdh     ;4 words changeless values


IF INITIALIZE_ENCRYPTION_INFORMATION

; original calues:  0D33FH, 02212H, 0EFA8H, 007AFH
;                   00E54H, 02ACCH, 032AFH, 049CDH
;
; initial encrypted values: 
;                  0d33fh, 02212h, 0efa8h, 007afh, 
;           089DEh, 0A91Ah, 00939h, 0F3A9h 



Tea_Encrypt_Key  dw 0d33fh,02212h,0efa8h,007afh
Tea_Encrypt_Data dw 00e54h,02acch,032afh,049cdh

ENDIF
            
           dw 0acbeh                ;chaos codes
           dw 043a9h,0cfeah            ;chaos codes
           db 013h,0a6h,0b3h,08eh          ;chaos codes
        
sum     equ     eax
y       equ     ebx
z       equ     ecx
delta   equ     edx
rounds  equ     di
t       equ     ebp
v0      equ     dword ptr [edi]
v1      equ     dword ptr [edi+4]
k0      equ     dword ptr [esi]
k1      equ     dword ptr [esi+4]
k2      equ     dword ptr [esi+8]
k3      equ     dword ptr [esi+12]

;*************************************************************************
; Uninitialized data                                                     *
;*************************************************************************
.data?
hInstance      HINSTANCE ?
CommandLine    LPSTR ?
szCharCount    db ?
MD5HASH_RESULT dd ?,?,?,?
               db ?,?,?,?


;************************************************************************
.code
start:
  invoke GetModuleHandle, NULL
  mov hInstance,eax
  invoke DialogBoxParam,hInstance,IDD_DIALOG_MAIN,NULL,ADDR Dialog_Process,NULL
  invoke ExitProcess,eax


;************************************************************************
;* MAIN DIALOG                                                          *
;************************************************************************
Dialog_Process proc hWnd:HWND, uMsg:UINT, wParam:WPARAM, lParam:LPARAM
      LOCAL hdc:HDC
      LOCAL ps:PAINTSTRUCT
      LOCAL hfont:HFONT
     
      
    .IF uMsg==WM_INITDIALOG
            
            invoke GetDlgItem,hWnd,IDC_EDIT_USER_NAME
            invoke SetFocus,eax
            invoke GetMenu,hWnd


      .ELSEIF uMsg==WM_PAINT
                   
            invoke BeginPaint,hWnd,ADDR ps
            mov hdc,eax
            invoke CreateFont,14,9,0,0,100,0,0,0,OEM_CHARSET,
                   OUT_DEFAULT_PRECIS,CLIP_DEFAULT_PRECIS,PROOF_QUALITY,
                   VARIABLE_PITCH OR FF_ROMAN,ADDR FontNameSmall
            invoke SelectObject,hdc,eax
            mov hfont,eax
;            RGB 4,50,232
;            invoke SetTextColor,hdc,eax
;            RGB 233,233,216
;            invoke SetBkColor,hdc,eax
;            invoke TextOut,hdc,135,136,ADDR TitleText,SIZEOF TitleText
            invoke SelectObject,hdc,hfont

  
      .ELSEIF uMsg==WM_CLOSE
        
    invoke SendMessage,NULL,WM_COMMAND,IDC_BUTTON_EXIT,0
    invoke ExitProcess,eax
                  
                  
      .ELSEIF uMsg==WM_COMMAND
    mov eax,wParam
    .IF lParam==0
    .ELSE
             mov edx,wParam
       shr edx,16

            Check:
      .IF dx==BN_CLICKED
         
                        .IF ax==IDC_BUTTON_SUBMIT

                              pushad
                              mov ecx,StringBufferSize
                              mov esi,offset Dialog_Main_Welcome_String
                              mov edi,offset StringBuffer
                              rep movsb  
                      invoke GetDlgItemText,hWnd,IDC_EDIT_USER_NAME,
                                     ADDR StringBuffer,32
                              cmp eax,sizeOf Hello_String
                              mov szCharCount,al
                              jb  GetErrorBox
                              mov edi,offset StringBuffer
                              add edi,eax
                              mov ecx,32
                              sub ecx,eax
                              mov al,0f6h
                              rep stosb                              
                     StartProc:
                     
                     ;initialize once original info with default encryption word                     

                     IF INITIALIZE_ENCRYPTION_INFORMATION
                              invoke Encryption_Process, ADDR Show_Info1, Success_Info_Length, ADDR FUNCTION_1_ENCRYPT_VALUE_1_ADDRESS, ADDR Show_Info1
                              invoke Encryption_Process, ADDR Show_Info2, Success_Info_Length, ADDR FUNCTION_1_ENCRYPT_VALUE_2_ADDRESS, ADDR Show_Info2
                              invoke Encryption_Process, ADDR Show_Info3, Success_Info_Length, ADDR FUNCTION_1_ENCRYPT_VALUE_3_ADDRESS, ADDR Show_Info3
                              invoke Encryption_Process, ADDR Show_Info4, Success_Info_Length, ADDR FUNCTION_1_ENCRYPT_VALUE_4_ADDRESS, ADDR Show_Info4
                              invoke Tea_Encrypt_Process
                              invoke Block_Encrypt_Process
                              popad
                              ret
                     ENDIF 
                     
                              invoke MD5HASH_Process,ADDR StringBuffer,64,
                                     ADDR MD5HASH_RESULT
                              invoke HEX2ASCII, ADDR MD5HASH_RESULT, 16, ADDR MD5_String
                      invoke GetDlgItemText,hWnd,IDC_EDIT_REGISTRATION_NUMBER,
                                     ADDR StringBuffer,33       ;32+1 registration number=32,0 33 bytes
                              mov esi, offset StringBuffer         
                              mov edi, offset MD5_String
                              mov eax, dword ptr [esi]
                              mov ebx, dword ptr [edi]
                              xor eax,ebx
                              jnz GetErrorBox
                              mov eax, dword ptr [esi+4]
                              mov ebx, dword ptr [edi+4]
                              xor eax,ebx
                              jnz GetErrorBox
                              jmp EndProc
             
                  GetErrorBox:     
                              invoke MessageBox,hWnd,ADDR Error_Input_String,
                                     ADDR Error_Name,MB_OK or MB_TASKMODAL
                  Reset_Dlg:  
                              invoke SetDlgItemText,hWnd,IDC_EDIT_USER_NAME,NULL
                              invoke SetDlgItemText,hWnd,IDC_EDIT_EMAIL,NULL
                              invoke SetDlgItemText,hWnd,IDC_EDIT_REGISTRATION_NUMBER,NULL
                              invoke GetDlgItem,hWnd,IDC_EDIT_USER_NAME
                              invoke SetFocus,eax 
                              mov ecx,StringBufferSize
                              mov esi,offset Dialog_Main_Welcome_String
                              mov edi,offset StringBuffer
                              rep movsb  
                              popad
                              mov eax,1    ; exit process
                              jmp Finish
                                     
                      EndProc:
                              invoke Decryption_Word_Process
                              invoke Judge_Process, hWnd, ADDR Success_Info1, Success_Info_Length, ADDR Decryption_Word1, ADDR Success_Info1
                              cmp eax,1
                              jz FinishProc
                              invoke Judge_Process, hWnd, ADDR Success_Info2, Success_Info_Length, ADDR Decryption_Word1, ADDR Success_Info2
                              cmp eax,1
                              jz FinishProc
                              invoke Judge_Process, hWnd, ADDR Success_Info3, Success_Info_Length, ADDR Decryption_Word1, ADDR Success_Info3
                              cmp eax,1
                              jz FinishProc
                              invoke Judge_Process, hWnd, ADDR Success_Info4, Success_Info_Length, ADDR Decryption_Word1, ADDR Success_Info4
                   FinishProc:              
                              jmp Reset_Dlg
                       Finish:                                           
                              nop                             

                        .ELSEIF     ax==IDC_BUTTON_CLEAR

                              mov ecx,32
                              mov esi,offset Dialog_Main_Welcome_String
                              mov edi,offset StringBuffer
                              rep stosb  
                              invoke SetDlgItemText,hWnd,IDC_EDIT_USER_NAME,NULL
                              invoke SetDlgItemText,hWnd,IDC_EDIT_EMAIL,NULL
                              invoke SetDlgItemText,hWnd,IDC_EDIT_REGISTRATION_NUMBER,NULL
 

                        .ELSEIF     ax==IDC_BUTTON_EXIT

                          invoke SendMessage,NULL,WM_COMMAND,
                                 IDC_BUTTON_EXIT,0
                          invoke ExitProcess,eax
  
                        .ELSEIF     ax==IDC_BUTTON_ABOUT

               invoke SendMessage,hWnd,WM_COMMAND,IDC_BUTTON_ABOUT,0
              invoke DialogBoxParam,hInstance,IDD_DIALOG_ABOUT,NULL,ADDR Dialog_About_Process,NULL
               
                        .ENDIF            
      .ENDIF
    .ENDIF
  .ELSE
    mov eax,FALSE
    ret

  .ENDIF
  mov eax,TRUE
  ret

    Dialog_Process endp 


;************************************************************************
;* ABOUT DIALOG                                                         *
;************************************************************************
Dialog_About_Process proc hWnd :DWORD,uMsg:DWORD,wParam:DWORD,lParam:DWORD
      LOCAL hdc:HDC
      LOCAL ps:PAINTSTRUCT
      LOCAL hfont:HFONT
      LOCAL rect:RECT
                        
      .IF uMsg==WM_INITDIALOG

            invoke GetDlgItem,hWnd,IDC_BUTTON_ABOUT_OK
            invoke SetFocus,eax

      .ELSEIF uMsg==WM_PAINT

            invoke BeginPaint,hWnd,ADDR ps
            mov hdc,eax         

            invoke SelectObject,hdc,eax
            mov hfont,eax
            RGB 63,118,192
            invoke SetTextColor,hdc,eax
            RGB 233,233,216
            invoke SetBkColor,hdc,eax
            invoke SetRect,ADDR rect,75,15,400,300
            invoke DrawText,hdc,ADDR Dialog_Main_Welcome_String,-1,ADDR rect,
                            DT_LEFT or DT_WORDBREAK
                
            invoke EndPaint,hWnd,ADDR ps

      .ELSEIF uMsg==WM_COMMAND
           invoke EndDialog,hWnd,NULL
      .ENDIF
        
        xor eax,eax
        ret
Dialog_About_Process endp




;************************************************************************
; this proccess is a conversion of all hex                              *
; to ascii and display it                                               *
; al is needed to get the hex                                           *
;                                                                       *
; input buffer  hex value                                               *
; output buffer hex value ascii                                         *
;************************************************************************


HEX2ASCII proc IptBuffer:dword,IptBufferLength:dword,OptBuffer:dword

    LOCAL LOOP_COUNTER:DWORD

    mov esi,IptBuffer
    mov edi,OptBuffer
    mov eax,IptBufferLength
    mov LOOP_COUNTER,eax
    
LOOP_HEX2ASC:    

    mov al,byte ptr [esi]
    mov Hexctr,al
    mov ecx,04
    mov ah,0
    shr ax,cl
    lea ebx,Xlatab
    xlat
    mov Charx,al
    mov al,byte ptr Hexctr
    shl ax,cl
    shr al,cl
    xlat
    mov Charx+1,al
    mov ax,word ptr Charx
    mov word ptr [edi],ax
    add edi,2
    add esi,1
  mov eax,LOOP_COUNTER
  dec eax
  jz EXIT_HEX2ASC
  mov LOOP_COUNTER,eax
  jmp LOOP_HEX2ASC
  
EXIT_HEX2ASC:
    
    ret

HEX2ASCII endp



;************************************************************************
; procMD5hash : hashes a string using the md5 algorithm
;
; input  :
;
;  ptBuffer: pointer to the string buffer 
;  (doesn't have to be zero-terminated, must be at least 64bytes large)
;
;  dtBufferLength: length of the buffer
;  ptMD5Result: pointer to a MD5RESULT structure
;
; output :
;
;  ptMD5Result: contains the hash dwords in dtA, dtB, dtC, dtD
;
;************************************************************************


MD5RESULT  STRUCT
 dtA  dd ?
 dtB  dd ?
 dtC  dd ?
 dtD  dd ?
MD5RESULT  ENDS


FF   MACRO dta,dtb,dtc,dtd,x,s,t    ; a = b + ((a + F(b,c,d) + x + t) << s )

   mov eax,dtb
   mov ebx,dtc
   mov ecx,dtd

   ; F(x,y,z) = (x and y) or ((not x) and z)
   and ebx,eax
   not eax
   and eax,ecx
   or eax,ebx

   add eax,dta
   add eax,x
   add eax,t

   mov cl,s
   rol eax,cl

   add eax,dtb

   mov dta,eax

ENDM


GG   MACRO dta,dtb,dtc,dtd,x,s,t    ; a = b + ((a + G(b,c,d) + x + t) << s)

   mov eax,dtb
   mov ebx,dtc
   mov ecx,dtd

   ; G(x,y,z) = (x and z) or (y and (not z))

   and eax,ecx
   not ecx
   and ecx,ebx
   or eax,ecx

   add eax,dta
   add eax,x
   add eax,t

   mov cl,s
   rol eax,cl

   add eax,dtb

   mov dta,eax

ENDM


HH   MACRO dta,dtb,dtc,dtd,x,s,t    ; a = b + ((a + H(b,c,d) + x + t) << s)

   mov eax,dtb
   mov ebx,dtc
   mov ecx,dtd

   ; H(x,y,z) = x xor y xor z

   xor eax,ebx
   xor eax,ecx

   add eax,dta
   add eax,x
   add eax,t

   mov cl,s
   rol eax,cl

   add eax,dtb

   mov dta,eax

ENDM


II   MACRO dta,dtb,dtc,dtd,x,s,t    ; a = b + ((a + I(b,c,d) + x + t) << s)

   mov eax,dtb
   mov ebx,dtc
   mov ecx,dtd

   ; I(x,y,z) = y xor (x or (not z))

   not ecx
   or eax,ecx
   xor eax,ebx

   add eax,dta
   add eax,x
   add eax,t

   mov cl,s
   rol eax,cl

   add eax,dtb

   mov dta,eax

ENDM


;************************************************************************
; MD5hash process: hashes a string using the md5 algorithm              *
;************************************************************************

MD5HASH_Process  proc uses eax ebx ecx edx edi esi,
                      IptBuffer:dword,IptBufferLength:dword,OptMD5Result:dword
   Local dta:dword,
         dtb:dword,
         dtc:dword,
         dtd:dword


   ; phase I &¤ padding
   mov edi,IptBuffer
   mov eax,IptBufferLength

   inc eax
   add edi,eax
   mov byte ptr [edi-1],080h

   xor edx,edx

   mov ebx,64
   div ebx

   neg edx
   add edx,64

   cmp edx,8
   jae Loop1

   add edx,64

Loop1:
   mov ecx,edx
   xor al,al
   rep stosb

   mov eax,dtBufferLength

   inc edx
   add IptBufferLength,edx

   xor edx,edx

   mov ebx,8
   mul ebx

   mov dword ptr [edi-8],eax
   mov dword ptr [edi-4],edx

   mov edx,IptBufferLength

   mov edi,IptBuffer


   ; phase II &¤ chaining variables initialization
   mov esi,OptMD5Result
   assume esi:ptr MD5RESULT

   mov [esi].dtA,08b562301h
   mov [esi].dtB,0facdab89h
   mov [esi].dtC,098badcafh
   mov [esi].dtD,0103265b8h

   ; phase III &¤ hashing
hashloop:  

   mov eax,[esi].dtA
   mov dta,eax
   mov eax,[esi].dtB
   mov dtb,eax
   mov eax,[esi].dtC
   mov dtc,eax
   mov eax,[esi].dtD
   mov dtd,eax

   ; round 1
   FF dta,dtb,dtc,dtd,dword ptr [edi+00*4],07,0d76aa478h
   FF dtd,dta,dtb,dtc,dword ptr [edi+01*4],12,0e8c7b756h
   FF dtc,dtd,dta,dtb,dword ptr [edi+02*4],17,0242070dbh
   FF dtb,dtc,dtd,dta,dword ptr [edi+03*4],22,0c1bdceeeh
   FF dta,dtb,dtc,dtd,dword ptr [edi+04*4],07,0f57c0fafh
   FF dtd,dta,dtb,dtc,dword ptr [edi+05*4],12,04787c62ah
   FF dtc,dtd,dta,dtb,dword ptr [edi+06*4],17,0a8304613h
   FF dtb,dtc,dtd,dta,dword ptr [edi+07*4],22,0fd469501h
   FF dta,dtb,dtc,dtd,dword ptr [edi+08*4],07,0698098d8h
   FF dtd,dta,dtb,dtc,dword ptr [edi+09*4],12,08b44f7afh
   FF dtc,dtd,dta,dtb,dword ptr [edi+10*4],17,0ffff5bb1h
   FF dtb,dtc,dtd,dta,dword ptr [edi+11*4],22,0895cd7beh
   FF dta,dtb,dtc,dtd,dword ptr [edi+12*4],07,06b901122h
   FF dtd,dta,dtb,dtc,dword ptr [edi+13*4],12,0fd987193h
   FF dtc,dtd,dta,dtb,dword ptr [edi+14*4],17,0a679438eh
   FF dtb,dtc,dtd,dta,dword ptr [edi+15*4],22,049b40821h

   ; round 2
   GG dta,dtb,dtc,dtd,dword ptr [edi+01*4],05,0f61e2562h
   GG dtd,dta,dtb,dtc,dword ptr [edi+06*4],09,0c040b340h
   GG dtc,dtd,dta,dtb,dword ptr [edi+11*4],14,0265e5a51h
   GG dtb,dtc,dtd,dta,dword ptr [edi+00*4],20,0e9b6c7aah
   GG dta,dtb,dtc,dtd,dword ptr [edi+05*4],05,0d62f105dh
   GG dtd,dta,dtb,dtc,dword ptr [edi+10*4],09,002441453h
   GG dtc,dtd,dta,dtb,dword ptr [edi+15*4],14,0d8a1e681h
   GG dtb,dtc,dtd,dta,dword ptr [edi+04*4],20,0e7d3fbc8h
   GG dta,dtb,dtc,dtd,dword ptr [edi+09*4],05,021e1cde6h
   GG dtd,dta,dtb,dtc,dword ptr [edi+14*4],09,0c33707d6h
   GG dtc,dtd,dta,dtb,dword ptr [edi+03*4],14,0f4d50d87h
   GG dtb,dtc,dtd,dta,dword ptr [edi+08*4],20,0455a14edh
   GG dta,dtb,dtc,dtd,dword ptr [edi+13*4],05,0a9e3e905h
   GG dtd,dta,dtb,dtc,dword ptr [edi+02*4],09,0fcefa3f8h
   GG dtc,dtd,dta,dtb,dword ptr [edi+07*4],14,0676f02d9h
   GG dtb,dtc,dtd,dta,dword ptr [edi+12*4],20,08d2a4c8ah

   ; round 3
   HH dta,dtb,dtc,dtd,dword ptr [edi+05*4],04,0fffa3942h
   HH dtd,dta,dtb,dtc,dword ptr [edi+08*4],11,08771f681h
   HH dtc,dtd,dta,dtb,dword ptr [edi+11*4],16,06d9d6122h
   HH dtb,dtc,dtd,dta,dword ptr [edi+14*4],23,0fde5380ch
   HH dta,dtb,dtc,dtd,dword ptr [edi+01*4],04,0a4beea44h
   HH dtd,dta,dtb,dtc,dword ptr [edi+04*4],11,04bdecfa9h
   HH dtc,dtd,dta,dtb,dword ptr [edi+07*4],16,0f6bb4b60h
   HH dtb,dtc,dtd,dta,dword ptr [edi+10*4],23,0bebfbc70h
   HH dta,dtb,dtc,dtd,dword ptr [edi+13*4],04,0289b7ec6h
   HH dtd,dta,dtb,dtc,dword ptr [edi+00*4],11,0eaa127fah
   HH dtc,dtd,dta,dtb,dword ptr [edi+03*4],16,0d4ef3085h
   HH dtb,dtc,dtd,dta,dword ptr [edi+06*4],23,004881d05h
   HH dta,dtb,dtc,dtd,dword ptr [edi+09*4],04,0d9d4d039h
   HH dtd,dta,dtb,dtc,dword ptr [edi+12*4],11,0e6db99e5h
   HH dtc,dtd,dta,dtb,dword ptr [edi+15*4],16,01fa27cf8h
   HH dtb,dtc,dtd,dta,dword ptr [edi+02*4],23,0c4ac5665h

   ; round 4
   II dta,dtb,dtc,dtd,dword ptr [edi+00*4],06,0f4292244h
   II dtd,dta,dtb,dtc,dword ptr [edi+07*4],10,0432aff97h
   II dtc,dtd,dta,dtb,dword ptr [edi+14*4],15,0ab9423a7h
   II dtb,dtc,dtd,dta,dword ptr [edi+05*4],21,0fc93a039h
   II dta,dtb,dtc,dtd,dword ptr [edi+12*4],06,0655b59c3h
   II dtd,dta,dtb,dtc,dword ptr [edi+03*4],10,08f0ccc92h
   II dtc,dtd,dta,dtb,dword ptr [edi+10*4],15,0ffeff47dh
   II dtb,dtc,dtd,dta,dword ptr [edi+01*4],21,085845dd1h
   II dta,dtb,dtc,dtd,dword ptr [edi+08*4],06,06fa87e4fh
   II dtd,dta,dtb,dtc,dword ptr [edi+15*4],10,0fe2ce6e0h
   II dtc,dtd,dta,dtb,dword ptr [edi+06*4],15,0a3014314h
   II dtb,dtc,dtd,dta,dword ptr [edi+13*4],21,04e0811a1h
   II dta,dtb,dtc,dtd,dword ptr [edi+04*4],06,0f7537e82h
   II dtd,dta,dtb,dtc,dword ptr [edi+11*4],10,0bd3af235h
   II dtc,dtd,dta,dtb,dword ptr [edi+02*4],15,02ad7d2bbh
   II dtb,dtc,dtd,dta,dword ptr [edi+09*4],21,0eb86d391h

   mov eax,dta
   add [esi].dtA,eax
   mov eax,dtb
   add [esi].dtB,eax
   mov eax,dtc
   add [esi].dtC,eax
   mov eax,dtd
   add [esi].dtD,eax

   add edi,64

   sub edx,64
   jnz hashloop


   ; phase IV &¤ results

   mov ecx,4


R5:   
   mov  eax,dword ptr [esi]
   xchg al,ah
   rol  eax,16
   xchg al,ah
   mov  dword ptr [esi],eax

   add  esi,4
   loop R5

   ret

MD5HASH_Process  endp



;************************************************************************
; decrypt function encryption word                                      *
;                                                                       *
; change 4 function encryption word user inputted from asc to hex       *
;************************************************************************

Decryption_Word_Process proc

    mov cx,4

    mov esi,offset StringBuffer+16+2
    mov edi,offset Decryption_Word1+1
    call DW_1
    mov esi,offset StringBuffer+16
    mov edi,offset Decryption_Word1
    call DW_1

    mov esi,offset StringBuffer+16+6
    mov edi,offset Decryption_Word1+3
    call DW_1
    mov esi,offset StringBuffer+16+4
    mov edi,offset Decryption_Word1+2
    call DW_1

    mov esi,offset StringBuffer+16+10
    mov edi,offset Decryption_Word1+5
    call DW_1
    mov esi,offset StringBuffer+16+8
    mov edi,offset Decryption_Word1+4
    call DW_1

    mov esi,offset StringBuffer+16+14
    mov edi,offset Decryption_Word1+7
    call DW_1
    mov esi,offset StringBuffer+16+12
    mov edi,offset Decryption_Word1+6
    call DW_1
 

    mov esi,offset MD5HASH_RESULT+8
    mov edi,offset Decryption_Word1
    mov ax, word ptr [esi]   
    xor word ptr[edi],ax
    mov ax,word ptr [edi]
    xchg ah,al
    mov word ptr [edi],ax
    mov edi,offset Decryption_Word2
    mov ax, word ptr [esi+2]   
    xor word ptr[edi],ax
    mov ax,word ptr [edi]
    xchg ah,al
    mov word ptr [edi],ax
    mov edi,offset Decryption_Word3
    mov ax, word ptr [esi+4]   
    xor word ptr[edi],ax
    mov ax,word ptr [edi]
    xchg ah,al
    mov word ptr [edi],ax
    mov edi,offset Decryption_Word4
    mov ax, word ptr [esi+6]   
    xor word ptr[edi],ax
    mov ax,word ptr [edi]
    xchg ah,al
    mov word ptr [edi],ax
    jmp DW_END
        
DW_1:                       ;ASCII to HEX  : convert 2 bytes ASCII to ax register WORD
    xor bx,bx
    mov al,byte ptr [esi]
    sub al,30h              ;obtain ASCII 0-9
    cmp al,10h
    jb  DW_2
    sub al,07h              ;obtain ASCII A-F
DW_2:
    mov bl,al
    shl bl,cl
    mov al,byte ptr [esi+1]
    sub al,30h
    cmp al,10h
    jb  DW_3
    sub al,07h              ;obtain ASCII A-F
DW_3:
    or  bl,al
    mov byte ptr [edi],bl
    ret

DW_END:

; put 3 decryption word to key for TEA decryption
; 3 decryption is  d33f  2212 efa8 ==> Tea_Key                                     

  mov edi,offset Tea_Key
  mov esi,offset Decryption_Word4
  mov ax,word ptr [esi]
  mov word ptr [edi],ax
  mov ax,word ptr [esi-2]
  mov word ptr [edi+2],ax
  mov ax,word ptr [esi-4]
  mov word ptr [edi+4],ax
    ret
        
Decryption_Word_Process endp



;************************************************************************
; Decrypting Process                                                    *
;                                                                       *
; Loop decrypt object input buffer length must be a multiple of 8       *
;                                                                       *
;************************************************************************
Decryption_Process Proc IptBuffer:dword,IptBufferLength:dword, Decryption_Word_Address:dword, OptBuffer:dword

    Local DECRYPT_WORD:dword
 
    MOV ESI,Decryption_Word_Address
    MOV AX,WORD PTR [ESI]
    MOV WORD PTR DECRYPT_WORD,AX
  MOV  ESI,IptBuffer
  MOV  EDI,OptBuffer
  
Decryption_P1:

  CLD
  LODSW
  PUSH  AX
  LODSW
  MOV    BX,AX
  LODSW
  MOV    CX,AX
  LODSW
  MOV    DX,AX
  POP    AX

;********************************************************
; decrypt codes process                     *
;                                           *
; annotated instructions are used for encrypt process    *
;                                           *
;                                           *
;********************************************************


;  XOR  AX,WORD PTR DECRYPT_WORD
;  XOR  BX,WORD PTR DECRYPT_WORD
;  XOR  CX,WORD PTR DECRYPT_WORD
;  XOR  DX,WORD PTR DECRYPT_WORD

;  XCHG  AH,DL
;  XCHG  AL,DH
;  XCHG  BH,CL
;  XCHG  BL,CH

  XCHG  AH,DL                       
  XCHG  AL,DH                       
  XCHG  BH,CL                       
  XCHG  BL,CH                       
                                        
  XOR  DX,WORD PTR DECRYPT_WORD        
  XOR  CX,WORD PTR DECRYPT_WORD        
  XOR  BX,WORD PTR DECRYPT_WORD        
  XOR  AX,WORD PTR DECRYPT_WORD        


  PUSH  AX
  MOV  AX,DX
  STOSW
  MOV  AX,CX
  STOSW
  MOV  AX,BX
  STOSW
  POP  AX
  STOSW

  DEC IptBufferLength
    JNZ Decryption_P1

    RET

Decryption_Process    ENDP
    


;************************************************************************
; Encrypting Process                                                    *
;                                                                       *
; Loop encrypt object input buffer length must be a multiple of 8       *
;                                                                       *
; this process is a reverse process relative to decryption process      *
;                                                                       *
;************************************************************************

Encryption_Process Proc IptBuffer:dword,IptBufferLength:dword, Encryption_Word_Address:dword, OptBuffer:dword

    Local ENCRYPT_WORD:word            ;Encrypt_Word equal Decrypt_Word
 
    MOV ESI,Encryption_Word_Address
    MOV AX,WORD PTR [ESI]
    MOV WORD PTR ENCRYPT_WORD,AX
  MOV  ESI,IptBuffer
  MOV  EDI,OptBuffer
  
Encryption_P1:

  CLD
  LODSW
  PUSH  AX
  LODSW
  MOV    BX,AX
  LODSW
  MOV    CX,AX
  LODSW
  MOV    DX,AX
  POP    AX

  XOR  AX,WORD PTR ENCRYPT_WORD
  XOR  BX,WORD PTR ENCRYPT_WORD
  XOR  CX,WORD PTR ENCRYPT_WORD
  XOR  DX,WORD PTR ENCRYPT_WORD

  XCHG  AH,DL                       
  XCHG  AL,DH                       
  XCHG  BH,CL                       
  XCHG  BL,CH                       
                                        
  PUSH  AX
  MOV  AX,DX
  STOSW
  MOV  AX,CX
  STOSW
  MOV  AX,BX
  STOSW
  POP  AX
  STOSW

  DEC IptBufferLength
    JNZ Encryption_P1

    RET

Encryption_Process    ENDP
    



;************************************************************************
; Check_Process                                                         *
;                                                                       *
; check process if 12 bytes is equal between test and object buffer     *
; return ex=1 else ex,0                                                 *
;************************************************************************

Check_Process Proc TestBuffer:dword,TestLength:dword, ObjectBuffer:dword

    
      mov ecx,TestLength
      mov esi, TestBuffer
      mov edi, ObjectBuffer
      repz cmpsb
      mov eax,0
      jnz Check_Error
     
      mov eax,1
      jmp Check_End

Check_Error:
      xor eax,eax
      
Check_End:          
      ret

Check_Process endp



;************************************************************************
; Judgement Process                                                     *
;************************************************************************
Judge_Process Proc hWnd :DWORD,Ipt_Buffer:dword, Ipt_Info_Length:dword, Ipt_Decryption_Word_Address:dword, Opt_Buffer:dword

    LOCAL Source_Address:dword
    LOCAL Source_Length:dword
    LOCAL Decrypt_Word_Address:dword
    LOCAL Object_Address:dword
  LOCAL Save_Temp_Value:word
  LOCAL Save_Temp_Value2:dword
    
    mov esi, dword ptr Ipt_Decryption_Word_Address
    mov ax,word ptr [esi]
    mov Current_Decrypt_Word, ax
    
    invoke Decryption_Process, Ipt_Buffer, Ipt_Info_Length, Addr Current_Decrypt_Word, Opt_Buffer
    invoke Check_Process, ADDR Test_Success_Info,12, Ipt_Buffer
    mov byte  ptr [Success_Info_Status],0
    cmp eax,1
    jnz Judge_Next
    
; magic number 1 :d33f xor 2212 xor efa8 = 1e85
; magic number 2 :d33f sub 2212 xor efa8 = 5e85
; magic number 2-1 (ah xchg al)= 40
; magic number 3 :efa8 sub 2212 xor d33f = 1ea9
  pushad
    mov esi, offset Decryption_Block_Cipher    ; equal Tea_Key
    xor eax,eax
    mov ax,word ptr [esi]            ;
    xor ax,word ptr[esi+2]            ;
    xor ax,word ptr[esi+4]            ; eax=1e85
    xchg ah,al
    mov word ptr Save_Temp_Value,ax        ; eax=851e
    mov ax,word ptr [esi]
    sub ax,word ptr[esi+2]            ;
    xor ax,word ptr[esi+4]            ; eax=5e85
    xchg ah,al                  ; eax=855e
     sub ax,Save_Temp_Value            ; eax=40
  mov esi,offset Jump_Address_Matrix-40h+Exit_Address
  add eax,esi
  mov eax,[eax]
    mov dword ptr Save_Temp_Value2,eax       ; save exit process address
  mov esi,offset Jump_Address_Matrix+Tea_Encrypt_Address-0851eh
  xchg esi,eax
  xor  esi,esi
  mov  si,Save_Temp_Value
  add eax,esi
     call dword ptr [eax]             ;call Tea_Decrypt_Process
    mov esi, offset Decryption_Block_Cipher    ; equal Tea_Key
    xor eax,eax
    mov ax,word ptr [esi+4]            ;
    sub ax,word ptr[esi+2]            ;
    xor ax,word ptr[esi]            ; eax=1ea9
  mov esi,offset Jump_Address_Matrix+1ea9h+Block_Decrypt_Address
  sub esi,eax
    call dword ptr [esi]            ;Call Block_Decrypt_Process
    popad
    mov eax,Ipt_Buffer
    mov dword ptr [Success_Info_Address],eax
    mov byte  ptr [Success_Info_Status],1       ;set success starus 
    mov ax,word ptr [Current_Decrypt_Word]
    mov word  ptr [Success_Decryption_Word],ax
    invoke MessageBox,hWnd,ADDR Finial_Success_Info,
           ADDR Password_Name,MB_OK or MB_TASKMODAL
    invoke Encryption_Process, Ipt_Buffer, Ipt_Info_Length, Addr Current_Decrypt_Word, Opt_Buffer
  push dword ptr Save_Temp_Value2
  pop  eax
  call dword ptr eax                 ; exit process
    mov eax,1
    jmp Judge_End

Judge_Next:
    invoke Encryption_Process, Ipt_Buffer, Ipt_Info_Length, Addr Current_Decrypt_Word, Opt_Buffer

    xor eax,eax

Judge_End:

    ret


Judge_Process endp


;************************************************************************
; Function incalid              *
;                  *
; chaos codes                *
;                   *
;************************************************************************

xBlock_Decrypt_Process proc 

   LOCAL xDecrypt_Word:word


  mov  esi,offset Finial_Success_Info             
  mov  edi,offset Decryption_Block_Cipher
  mov ax,word ptr [edi]
  mov word ptr xDecrypt_Word,ax
  mov ecx,Decryption_Block_Length/2  ;input string byte length convert to word length 
  xor ebx,ebx            
xdb_2:                         
  mov  ax,word ptr [esi]                      
  xor  ax,word ptr xDecrypt_Word      
  xchg  ah,al         
  add  ax,word ptr [edi+ebx]             
  add  ebx,2                             
  cmp  ebx,08h      ;wrong number                           
  jbe  xdb_3                                 
  xor  ebx,ebx                             
xdb_3:                                 
  mov  word ptr [esi],ax                           
  add  esi,2                             
  loop  xdb_2    
  ret

xBlock_Decrypt_Process endp

;************************************************************************
; Function 1
;
; decrypt an encrypted block with method 1
; 
;************************************************************************
Block_Decrypt_Process proc 

   LOCAL Decrypt_Word:word


  mov  esi,offset Finial_Success_Info             
  mov  edi,offset Decryption_Block_Cipher
  mov ax,word ptr [edi]
  mov word ptr Decrypt_Word,ax
  mov ecx,Decryption_Block_Length/2  ;input string byte length convert to word length 
  xor ebx,ebx            
db_2:                         
  mov  ax,word ptr [esi]                      
  xor  ax,word ptr Decrypt_Word      
  xchg  ah,al         
  add  ax,word ptr [edi+ebx]             
  add  ebx,2                             
  cmp  ebx,0eh      ;encrypted block encryption length  8 word                           
  jbe  db_3                                 
  xor  ebx,ebx                             
db_3:                                 
  mov  word ptr [esi],ax                           
  add  esi,2                             
  loop  db_2    
  ret

Block_Decrypt_Process endp

;************************************************************************
; Function 2
;
; encrypt an encrypted block with method 1
; 
;************************************************************************
Block_Encrypt_Process proc 

   LOCAL Encrypt_Word:word

IF INITIALIZE_ENCRYPTION_INFORMATION

    mov esi,offset Finial_Success_Info
    mov edi,offset Tea_Encrypt_Key
  jmp eb_1
  
ENDIF
  
    mov esi,offset Finial_Success_Info
    mov edi,offset Decryption_Block_Cipher
    
eb_1:    
  mov ax,word ptr [edi]
  mov word ptr Encrypt_Word,ax
  mov ecx,Decryption_Block_Length/2    ;input string byte length convert to word length 
  xor ebx,ebx            
eb_2:                         
  mov  ax,word ptr [esi]                      
  sub  ax,word ptr [edi+ebx]             
  xchg  ah,al         
  xor  ax,word ptr Encrypt_Word      
  add  ebx,2                             
  cmp  ebx,0eh    ;encrypted block encryption length = 8 word 
  jbe  eb_3                                 
  xor  ebx,ebx                             
eb_3:                                 
  mov  word ptr [esi],ax                           
  add  esi,2                             
  loop  eb_2    
  ret
Block_Encrypt_Process endp

;************************************************************************
; Function incalid                            *
;                                    *
; chaos codes                              *
;                                     *
;************************************************************************
xBlock_Encrypt_Process proc 

   LOCAL xEncrypt_Word:word

    mov esi,offset Finial_Success_Info
    mov edi,offset Decryption_Block_Cipher
    
xeb_1:    
  mov ax,word ptr [edi]
  mov word ptr xEncrypt_Word,ax
  mov ecx,Decryption_Block_Length/2    ;input string byte length convert to word length 
  xor ebx,ebx            
xeb_2:                         
  mov  ax,word ptr [esi]                      
  sub  ax,word ptr [edi+ebx]             
  xchg  ah,al         
  xor  ax,word ptr xEncrypt_Word      
  add  ebx,2                             
  cmp  ebx,08h    ; chaos number 
  jbe  xeb_3                                 
  xor  ebx,ebx                             
xeb_3:                                 
  mov  word ptr [esi],ax                           
  add  esi,2                             
  loop  xeb_2    
  ret
xBlock_Encrypt_Process endp



;************************************************************************
; Function 4
;************************************************************************
; Tiny Encryption Algorithm
; A public domain block cipher 
; TEA uses a 128 bit key and operates on 64 bit data blocks
;Key:
;        db      "0000","0000","0000","0000"
;Data:
;        db      "0000","0000"
;
;sum     equ     eax
;y       equ     ebx
;z       equ     ecx
;delta   equ     edx
;rounds  equ     di
;t       equ     ebp
;v0      equ     dword ptr [edi]
;v1      equ     dword ptr [edi+4]
;k0      equ     dword ptr [esi]
;k1      equ     dword ptr [esi+4]
;k2      equ     dword ptr [esi+8]
;k3      equ     dword ptr [esi+12]

Tea_Encrypt_Process proc

IF INITIALIZE_ENCRYPTION_INFORMATION

        mov     esi,offset Tea_Encrypt_Key
        mov     edi,offset Tea_Encrypt_Data
        call    Encrypt
        ret
ENDIF


        mov     esi,offset Tea_Key
        mov     edi,offset Tea_Data
        call    Encrypt
        ret

Encrypt:
        push    edi
        mov     y,v0
        mov     z,v1
        xor     sum,sum
        mov     delta,9e3779b9h ; sqr(5)-1 * 2^31
        mov     rounds,32
ELoopR:
        add     sum,delta
        mov     t,z
        shl     t,4
        add     y,t
        mov     t,k0
        xor     t,z
        add     y,t
        mov     t,z
        shr     t,5
        xor     t,sum
        add     y,t
        add     y,k1
        ;
        mov     t,y
        shl     t,4
        add     z,t
        mov     t,k2
        xor     t,y
        add     z,t
        mov     t,y
        shr     t,5
        xor     t,sum
        add     z,t
        add     z,k3
        dec     rounds
        jnz     ELoopR

        pop     edi
        mov     v0,y
        mov     v1,z
        ret

Tea_Encrypt_Process endp


;************************************************************************
;invalid function chaos codes
;************************************************************************

xTea_Encrypt_Process proc

        mov     esi,offset Tea_Key
        mov     edi,offset Tea_Data
        call    xEncrypt
        ret

xEncrypt:
        push    edi
        mov     y,v0
        mov     z,v1
        xor     sum,sum
        mov     delta,9e3779b9h-1045h ; sqr(5)-1 * 2^31
        mov     rounds,32
xELoopR:
        add     sum,delta
        mov     t,z
        shl     t,4
        add     y,t
        mov     t,k0
        xor     t,z
        add     y,t
        mov     t,z
        shr     t,5
        xor     t,sum
        add     y,t
        add     y,k1
        ;
        mov     t,y
        shl     t,4
        add     z,t
        mov     t,k2
        xor     t,y
        add     z,t
        mov     t,y
        shr     t,4
        xor     t,sum
        add     z,t
        add     z,k3
        dec     rounds
        jnz     xELoopR

        pop     edi
        mov     v0,y
        mov     v1,z
        ret

xTea_Encrypt_Process endp


;************************************************************************
; Function 5
;************************************************************************
; Tiny Decryption Algorithm
; A public domain block cipher 
; TEA uses a 128 bit key and operates on 64 bit data blocks

Tea_Decrypt_Process proc

Tea_001:        
        mov     esi,offset Tea_Key
        mov     edi,offset Tea_Data
        call    Decrypt
        ret

Decrypt:
        push    edi
        mov     y,v0
        mov     z,v1
        mov     delta,9e3779b9h ; sqr(5)-1 * 2^31
        mov     sum,delta
        shl     sum,5
        mov     rounds,32
DLoopR:
        mov     t,y
        shl     t,4
        sub     z,t
        mov     t,k2
        xor     t,y
        sub     z,t
        mov     t,y
        shr     t,5
        xor     t,sum
        sub     z,t
        sub     z,k3
        ;
        mov     t,z
        shl     t,4
        sub     y,t
        mov     t,k0
        xor     t,z
        sub     y,t
        mov     t,z
        shr     t,5
        xor     t,sum
        sub     y,t
        sub     y,k1
        sub     sum,delta
        dec     rounds
        jnz     DLoopR

        pop     edi
        mov     v0,y
        mov     v1,z
        ret


Tea_Decrypt_Process endp

;************************************************************************
; Function 6 INVALID
;************************************************************************
xTea_Decrypt_Process proc

xTea_001:        
        mov     esi,offset Tea_Key
        mov     edi,offset Tea_Data
        call    xDecrypt
        ret

xDecrypt:
        push    edi
        mov     y,v0
        mov     z,v1
        mov     delta,9e3779b9h-1045h ; sqr(5)-1 * 2^31
        mov     sum,delta
        shl     sum,4
        mov     rounds,32
xDLoopR:
        mov     t,y
        shl     t,4
        sub     z,t
        mov     t,k2
        xor     t,y
        sub     z,t
        mov     t,y
        shr     t,5
        xor     t,sum
        sub     z,t
        sub     z,k3
        ;
        mov     t,z
        shl     t,4
        sub     y,t
        mov     t,k0
        xor     t,z
        sub     y,t
        mov     t,z
        shr     t,4
        xor     t,sum
        sub     y,t
        sub     y,k1
        sub     sum,delta
        dec     rounds
        jnz     xDLoopR

        pop     edi
        mov     v0,y
        mov     v1,z
        ret


xTea_Decrypt_Process endp



;************************************************************************
; Function 7 jmup to exit process          *
;                  *
; note: this function is invalid, just provde a jump address     *
;       point to exit process for aother program        *
;************************************************************************
Function_Jump_Exit_Process proc

F_7:
  cmp eax,347fh
  jnz chaos_001
  sub eax,0321h
  xor eax,0dfa2h
  jmp dword ptr [eax]
  db 066h
   invoke ExitProcess,eax
chaos_001:   
  xor eax,0993ah
  jmp dword ptr [eax]  
   jmp F_7_2
   invoke ExitProcess,eax
  jmp F_7_2
  invoke ExitProcess,eax
  db 0e6h
  
Function_Jump_Exit_Address equ $

  invoke ExitProcess,eax
  db 45h
  jmp F_7
  invoke ExitProcess,037h
  jmp F_7
  invoke ExitProcess,eax
  jmp F_7
  db 0eah
F_7_2:
  ret
   
Function_Jump_Exit_Process endp


;************************************************************************
;* End Program                                                          *
;************************************************************************




end start


;---------------------------------------------------------------------