[转帖]PB数据库连接描述文件的密码加密和解密原理

ehxz

免费乐捐，感谢支持

阐述PB开发环境下数据库连接描述文件的密码加密和解密原理。加密原理：首先将原字符串反转(reverse)，逐个字符取ASCII并由10进制转为16进制值，然后转为小写，最后末尾加'00'作为结束符。解密原理：去掉末尾'00'，将原字符串反转(reverse)，每2个字符由16进制转为10进制值，即ASCII值，根据ASCII取字符，累积到一个字符串，这就是真正的登录密码。

    在PB开发环境下要连接数据库必须预先创建一个描述文件，该描述文件的条目写在注册表HKEY_CURRENT_USER\Software\Sybase\PowerBuilder\9.0\DatabaseProfiles\PowerBuilder下（不同的PB版本不同的键路径），每个描述文件对应一个注册表项目，描述文件的内容如用户名称和密码作为注册键存储在对应注册表项目下。除了数据库密码和登录密码外，数据未加密。经过简单的摸索，发现PB在对登录密码的加密、解密方面其实很简单。

    其加密原理可以这样描述。首先将原字符串反转(reverse)，逐个字符取ASCII并由10进制转为16进制值，然后转为小写，最后末尾加'00'作为结束符。

    了解了其加密原理后，就很容易推断其解密原理，其解密原理可以这样描述。去掉末尾'00'，将原字符串反转(reverse)，每2个字符由16进制转为10进制值，即ASCII值，根据ASCII取字符，累积到一个字符串，这就是真正的登录密码。

    附后的函数可以作为解密的参考代码（开发环境：PB9）。你可以调用该函数在PB开发环境下不输入用户名称或（和）密码直接进入系统，避免复杂的密码记忆，方便开发人员运行、测试系统。

    另外，jaguar服务器描述文件的密码也采用相同的加密和解密机制，只是存放的注册表路径不一样而已。

    最后提醒读者，不要将代码用于非法用途，由此带来的后果或法律纠纷本人概不负责。

    附：解密源代码

/*******************************************************************

函数名称：f_decryptpbpassword()

参数:     as_orginalpassword string 原始密码

返回值： string 解密后文本

功能描述：解密PB数据库连接描述密码

创建人：  康剑民

创建日期：2006-04-27

版本号： V1.0

*******************************************************************/

string ls_temp,ls_return=''

integer i,li_count,li_ascii

nvo_numerical lnv_numerical

 

if len(as_orginalpassword) < 2 or as_orginalpassword = '00' then return ''

 

as_orginalpassword = left(reverse(as_orginalpassword),len(as_orginalpassword) - 2)

li_count = ceiling(len(as_orginalpassword) / 2)

for i = 1 to li_count

       ls_temp = mid(as_orginalpassword,(i - 1) * 2 + 1,2)

       li_ascii = lnv_numerical.of_hextodecimal(ls_temp)

       ls_temp = char(li_ascii)      

       ls_return = ls_return + ls_temp

next

 

return ls_return

 

/*******************************************************************

函数名称：of_hextodecimal()

参数:     as_hexdata string 16进制数据

返回值： unsignedlong 10进制数据

功能描述：16进制数据转为10进制数据

创建人：  康剑民

创建日期：2006-04-27

版本号：V1.0

*******************************************************************/

char        lch_char[]

unsignedlong       lul_decimal=0

integer li_dec[48 to 70], i, li_len

 

for i = 48 To 57

       li_dec = i - 48

next

 

for i = 65 To 70

       li_dec = i - 55

next

 

as_hexdata = lower(as_hexdata)

lch_char = as_hexdata

li_len = len (as_hexdata)

 

for i = 1 to li_len

       choose case lch_char

       case '0' to '9', 'a' to 'f'

              lul_decimal = lul_decimal * 16 + li_dec[asc(lch_char)]

       case else

              return lul_decimal

       end choose   

next

return lul_decimal

写作日期：2006-05-15

http://dev.csdn.net/author/pbdesigner/cb9ed886a13d44289c4467e4272f5a96.html