| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2201 人关注过本帖
标题:PB中的加密解密的方法
只看楼主 加入收藏
开心套餐
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2007-4-18
收藏
 问题点数:0 回复次数:1 
PB中的加密解密的方法
第一次来这里,如果在这里能交几个好友,我会很开心的,我是刚学PB的,闲着没事把PB中加密解密的方法研究了一个,看来PB中加密解密的方法还是不复杂的,就做了以下几个函数。发给大家共享一下。
我的QQ:307679136,QQ群号:30657445 。希望大家能多联系。共同提高。

/*******************************************************************
函数名称:f_decryptpbpassword()
参数: as_orginalpassword string 原始密码
返回值: string 解密后文本
功能描述:解密PB数据库连接描述密码
*******************************************************************/
string ls_temp,ls_return=''
integer i,li_count,li_ascii
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 =of_hextodecimal(ls_temp)
ls_temp = char(li_ascii)
ls_return = ls_return + ls_temp
next
return ls_return
/*******************************************************************
函数名称:f_encryptpbpassword()
参数: as_newpassword string 原始密码
返回值: string 解密后文本
功能描述:加密PB数据库连接描述密码
*******************************************************************/
string ls_temp,ls_return='00'
integer i,li_count,li_ascii
if len(as_newpassword)=0 or as_newpassword = '' then return '00'
as_newpassword = reverse(as_newpassword)
li_count = len(as_newpassword)
for i = 1 to li_count
li_ascii = asc(mid(as_newpassword,i,1))
ls_temp= of_decimaltohex(li_ascii)
ls_return =ls_temp+ls_return
next
return reverse(ls_return)
/*******************************************************************
函数名称:of_decimaltohex()
参数: as_decicmaldata unsignedlong 十进制数
返回值: string 十六进制数
功能描述:十进制转十六进制
*******************************************************************/
string ls_hex,li_hex[ 0 to 15]
unsignedlong lul_decimal
integer i
for i = 0 To 9
li_hex[i] = string(i)
next
for i = 10 To 15
li_hex[i] =char(55+i)
next
do while as_decicmaldata>0
lul_decimal=mod(as_decicmaldata,16)
as_decicmaldata=int(as_decicmaldata/16)
choose case lul_decimal
case 0 to 15
ls_hex=li_hex[lul_decimal]+ls_hex
case else
return lower(ls_hex)
end choose
loop
return lower(ls_hex)
/*******************************************************************
函数名称:of_hextodecimal()
参数: as_hexdata string 十六进制数
返回值: unsignedlong 十进制数
功能描述:十六进制转十进制
*******************************************************************/
char lch_char[]
unsignedlong lul_decimal=0
integer li_dec[48 to 70], i, li_len

for i = 48 To 57
li_dec[i] = i - 48
next

for i = 65 To 70
li_dec[i] = i - 55
next

as_hexdata = upper(as_hexdata)
lch_char = as_hexdata
li_len = len (as_hexdata)

for i = 1 to li_len
choose case lch_char[i]
case '0' to '9', 'A' to 'F'
lul_decimal = lul_decimal * 16 + li_dec[asc(lch_char[i])]
case else
return lul_decimal
end choose
next
return lul_decimal
搜索更多相关主题的帖子: PB中 数据库 解密 string 函数 
2007-04-18 23:17
huier
Rank: 2
等 级:新手上路
威 望:3
帖 子:17
专家分:0
注 册:2007-3-13
收藏
得分:0 
非常感谢!
2007-04-19 15:21
快速回复:PB中的加密解密的方法
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.043886 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved