疾病与营养智能分析软件1.3 算法分析
【破文标题】疾病与营养智能分析软件1.3 算法分析【破文作者】ww-jack
【作者邮箱】[email protected]
【作者主页】无
【破解工具】Pbkiller delphi 7
【破解平台】Win XP SP2
【软件名称】疾病与营养智能分析软件1.3
【软件大小】16,655,770 字节
【原版下载】http://www.jdx.com.cn/
【保护方式】无
【软件简介】列举各科近400多种疾病的详细症状,医学分析,治疗机理,中药处方,让使用者增加丰富的疾病知识.
从患者的身体表面症状入手,层层分析,即使您对医学知识一翘不通,你也可以对多达几百种疾病,了如指掌,无师自通.
【破解声明】学习之目的 请支持正版
------------------------------------------------------------------------
【破解过程】由于是 PowerBuilder9 写的所以用 PBKILLER 反编译 yys.dll
找到
dencrypt (string iptstring)returns string
long i
string ls_sigle_number
string ls_result_char
string ls_sn_all
string ls_sn
if isnull(iptstring) or iptstring = "" then
return ""
end if
ls_sn = "1D 2A 3B 4F 5C 6G 7E 8H 9J0I"
for i = 1 to len(iptstring)
ls_sigle_number = mid(iptstring,i,1)
choose case ls_sigle_number
case "D"
ls_result_char = "1"
case "A"
ls_result_char = "2"
case "B"
ls_result_char = "3"
case "F"
ls_result_char = "4"
case "C"
ls_result_char = "5"
case "G"
ls_result_char = "6"
case "E"
ls_result_char = "7"
case "H"
ls_result_char = "8"
case "J"
ls_result_char = "9"
case "I"
ls_result_char = "0"
case else
ls_result_char = "#"
end choose
ls_sn_all = ls_sn_all + ls_result_char
next
return ls_sn_all
还有
getresult (string iptstring)returns string
long i
string ls_sigle_number
string ls_result_char
string ls_sn_all
string ls_sn
if isnull(iptstring) or iptstring = "" then
return ""
end if
ls_sn = "1D 2A 3B 4F 5C 6G 7E 8H 9J0I"
for i = 1 to len(iptstring)
ls_sigle_number = mid(iptstring,i,1)
choose case ls_sigle_number
case "1"
ls_result_char = "C"
case "2"
ls_result_char = "A"
case "3"
ls_result_char = "B"
case "4"
ls_result_char = "F"
case "5"
ls_result_char = "D"
case "6"
ls_result_char = "I"
case "7"
ls_result_char = "J"
case "8"
ls_result_char = "H"
case "9"
ls_result_char = "E"
case "0"
ls_result_char = "G"
case else
ls_result_char = "*"
end choose
ls_sn_all = ls_sn_all + ls_result_char
next
return ls_sn_all
是源代码所以没什么分析的大家看的懂就可以了
delphi 源码
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
function encrypt ( iptstring:string): string;
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TForm1.encrypt(iptstring: string): string;
var
i:integer ;
ls_result_char,e1,e2:string;
begin
e1:='';
for i:=1 to Length(iptstring) do
begin
case iptstring of
'D':
ls_result_char := '1';
'A':
ls_result_char := '2';
'B':
ls_result_char := '3' ;
'F':
ls_result_char := '4';
'C':
ls_result_char := '5';
'G':
ls_result_char := '6' ;
'E':
ls_result_char := '7';
'H':
ls_result_char := '8';
'J':
ls_result_char := '9';
'I':
ls_result_char := '0' ;
else
ls_result_char := '#' ;
end;
e1:=e1+ls_result_char;
end;
for i:=1 to Length(e1) do
begin
case e1 of
'1' :
ls_result_char := 'C';
'2':
ls_result_char := 'A';
'3' :
ls_result_char := 'B' ;
'4' :
ls_result_char := 'F' ;
'5' :
ls_result_char := 'D' ;
'6' :
ls_result_char := 'I' ;
'7':
ls_result_char := 'J';
'8':
ls_result_char := 'H' ;
'9' :
ls_result_char := 'E' ;
'0':
ls_result_char := 'G' ;
else
ls_result_char := '*';
end;
e2:=e2+ls_result_char;
end;
Result:= e2;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text:=encrypt(Edit1.Text);
end;
end.
------------------------------------------------------------------------
【破解总结】
个人认为！~
能被反编译的程序语言始终是不成功的编程语言
------------------------------------------------------------------------
【版权声明】 学习中……支持！！！！ 很少见的关于pb的文章
我给个精二级 鼓励 还没完全看懂算法,最好最后再总结一下算法. 老实说不懂～ 精典~~~~~~~ 试一下，看看！ 这个软件好用不 很不错的软件，试一下。 学习了，谢谢分享你的东东。
页:
[1]