疾病与营养智能分析软件1.3 算法分析

ww-jack

【破文标题】疾病与营养智能分析软件1.3 算法分析
【破文作者】ww-jack
【作者邮箱】ww-jack@163.com
【作者主页】无
【破解工具】Pbkiller delphi 7
【破解平台】Win XP SP2
【软件名称】疾病与营养智能分析软件1.3
【软件大小】16,655,770 字节
【原版下载】http://www.jdx.com.cn/
【保护方式】无
【软件简介】列举各科近400多种疾病的详细症状,医学分析,治疗机理,中药处方,让使用者增加丰富的疾病知识.
从患者的身体表面症状入手,层层分析,即使您对医学知识一翘不通,你也可以对多达几百种疾病,了如指掌,无师自通.

【破解声明】学习之目的 请支持正版
------------------------------------------------------------------------
【破解过程】由于是 PowerBuilder9 写的所以用 PBKILLER 反编译 yys.dll
找到

1. 
   
2. dencrypt (string iptstring)  returns string
   
3. long i
   
4. string ls_sigle_number
   
5. string ls_result_char
   
6. string ls_sn_all
   
7. string ls_sn
   
8. if isnull(iptstring) or iptstring = "" then
   
9.         return ""
   
10. end if
    
11. 
    
12. ls_sn = "1D 2A 3B 4F 5C 6G 7E 8H 9J  0I"
    
13. 
    
14. for i = 1 to len(iptstring)
    
15.         ls_sigle_number = mid(iptstring,i,1)
    
16. 
    
17.         choose case ls_sigle_number
    
18.                 case "D"
    
19.                         ls_result_char = "1"
    
20.                 case "A"
    
21.                         ls_result_char = "2"
    
22.                 case "B"
    
23.                         ls_result_char = "3"
    
24.                 case "F"
    
25.                         ls_result_char = "4"
    
26.                 case "C"
    
27.                         ls_result_char = "5"
    
28.                 case "G"
    
29.                         ls_result_char = "6"
    
30.                 case "E"
    
31.                         ls_result_char = "7"
    
32.                 case "H"
    
33.                         ls_result_char = "8"
    
34.                 case "J"
    
35.                         ls_result_char = "9"
    
36.                 case "I"
    
37.                         ls_result_char = "0"
    
38.                 case else
    
39.                         ls_result_char = "#"
    
40.         end choose
    
41. 
    
42.         ls_sn_all = ls_sn_all + ls_result_char
    
43. next
    
44. 
    
45. return ls_sn_all
    
46. 还有
    
47. getresult (string iptstring)  returns string
    
48. long i
    
49. string ls_sigle_number
    
50. string ls_result_char
    
51. string ls_sn_all
    
52. string ls_sn
    
53. if isnull(iptstring) or iptstring = "" then
    
54.         return ""
    
55. end if
    
56. 
    
57. ls_sn = "1D 2A 3B 4F 5C 6G 7E 8H 9J  0I"
    
58. 
    
59. for i = 1 to len(iptstring)
    
60.         ls_sigle_number = mid(iptstring,i,1)
    
61. 
    
62.         choose case ls_sigle_number
    
63.                 case "1"
    
64.                         ls_result_char = "C"
    
65.                 case "2"
    
66.                         ls_result_char = "A"
    
67.                 case "3"
    
68.                         ls_result_char = "B"
    
69.                 case "4"
    
70.                         ls_result_char = "F"
    
71.                 case "5"
    
72.                         ls_result_char = "D"
    
73.                 case "6"
    
74.                         ls_result_char = "I"
    
75.                 case "7"
    
76.                         ls_result_char = "J"
    
77.                 case "8"
    
78.                         ls_result_char = "H"
    
79.                 case "9"
    
80.                         ls_result_char = "E"
    
81.                 case "0"
    
82.                         ls_result_char = "G"
    
83.                 case else
    
84.                         ls_result_char = "*"
    
85.         end choose
    
86. 
    
87.         ls_sn_all = ls_sn_all + ls_result_char
    
88. next
    
89. 
    
90. return ls_sn_all
    
91. 
    
92. 是源代码所以没什么分析的大家看的懂就可以了
    
93. delphi 源码
    
94. unit Unit1;
    
95. 
    
96. interface
    
97. 
    
98. uses
    
99.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    
100.   Dialogs, StdCtrls;
     
101. 
     
102. type
     
103.   TForm1 = class(TForm)
     
104.     Edit1: TEdit;
     
105.     Edit2: TEdit;
     
106.     Button1: TButton;
     
107.     procedure Button1Click(Sender: TObject);
     
108.   private
     
109.     { Private declarations }
     
110.   public
     
111.    function encrypt ( iptstring:string): string;
     
112.     { Public declarations }
     
113.   end;
     
114. 
     
115. var
     
116.   Form1: TForm1;
     
117. 
     
118. implementation
     
119. 
     
120. {$R *.dfm}
     
121. 
     
122. function TForm1.encrypt(iptstring: string): string;
     
123. var
     
124.   i:integer ;
     
125.   ls_result_char,e1,e2:string;
     
126. begin
     
127.   e1:='';
     
128.   for i:=1 to Length(iptstring) do
     
129.   begin
     
130.     case iptstring[i] of
     
131.      'D':
     
132.                         ls_result_char := '1';
     
133.                  'A':
     
134.                         ls_result_char := '2';
     
135.                  'B':
     
136.                         ls_result_char := '3' ;
     
137.                  'F':
     
138.                         ls_result_char := '4'  ;
     
139.                  'C':
     
140.                         ls_result_char := '5'  ;
     
141.                  'G':
     
142.                         ls_result_char := '6' ;
     
143.                  'E':
     
144.                         ls_result_char := '7'  ;
     
145.                  'H':
     
146.                         ls_result_char := '8'  ;
     
147.                  'J':
     
148.                         ls_result_char := '9'  ;
     
149.                  'I':
     
150.                         ls_result_char := '0'   ;
     
151.                  else
     
152.                         ls_result_char := '#'   ;
     
153.      end;
     
154.      e1:=e1+ls_result_char;
     
155. end;
     
156. 
     
157.    for i:=1 to Length(e1) do
     
158.    begin
     
159.      case e1[i] of
     
160.       '1' :
     
161.                         ls_result_char := 'C';
     
162.                  '2':
     
163.                         ls_result_char := 'A';
     
164.                  '3' :
     
165.                         ls_result_char := 'B' ;
     
166.                  '4' :
     
167.                         ls_result_char := 'F' ;
     
168.                  '5' :
     
169.                         ls_result_char := 'D' ;
     
170.                  '6' :
     
171.                         ls_result_char := 'I' ;
     
172.                  '7':
     
173.                         ls_result_char := 'J'  ;
     
174.                  '8'  :
     
175.                         ls_result_char := 'H' ;
     
176.                  '9' :
     
177.                         ls_result_char := 'E' ;
     
178.                  '0'  :
     
179.                         ls_result_char := 'G' ;
     
180.                  else
     
181.                         ls_result_char := '*'  ;
     
182.      end;
     
183.      e2:=e2+  ls_result_char;
     
184.    end;
     
185. Result:= e2;
     
186. 
     
187. end;
     
188. 
     
189. procedure TForm1.Button1Click(Sender: TObject);
     
190. begin
     
191. Edit2.Text:=encrypt(Edit1.Text);
     
192. end;
     
193. 
     
194. end.
     

复制代码

------------------------------------------------------------------------
【破解总结】
个人认为！~
能被反编译的程序语言始终是不成功的编程语言

------------------------------------------------------------------------
【版权声明】

ZHOU2X

学习中……支持！！！！

风飘雪

很少见的关于pb的文章
我给个精二级 鼓励

yunfeng

还没完全看懂算法,最好最后再总结一下算法.

avel

老实说  不懂～

glts

精典~~~~~~~

xuhw

试一下，看看！

杜杜哎哟

这个软件好用不

yang15363

很不错的软件，试一下。

zsl01

学习了，谢谢分享你的东东。