PB MD5

最新推荐文章于 2022-05-31 11:13:27 发布
置顶 最新推荐文章于 2022-05-31 11:13:27 发布
阅读量5.9k 收藏 1
点赞数 4
分类专栏： 我的收藏 文章标签： PB md5 DLL winapi powerbuilder
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/xiajinxian/article/details/46627527
版权

适用环境:powerbuilder 10.0以后的版本  window server2003以后的测试可用

PB也可以调用系统自带的DLL 实现MD5

其中md5file对大附件的处理速度也比第三方组件快一些


这里可以去下载附件


//调用样例:
u_derek_md5 lu_md5
lu_md5=create u_derek_md5
string ls_text="123"
string ls_result,ls_ret
string ls_filepath="C:\1.txt"

//对字符串进行md5
lu_md5.uf_md5string(ls_text,ref ls_result)
messagebox('',ls_result)

//对文件进行md5,大附件的处理速度也比第三方组件快
ls_ret=lu_md5.uf_md5file(ls_filepath,ref ls_result)
if ls_ret<>'' then //返回非空为失败
     messagebox('',ls_ret)
else
      messagebox('',ls_result)
end if

destroy lu_md5



forward
global type u_derek_md5 from nonvisualobject
end type
type md5_ctx from structure within u_derek_md5
end type
end forward

type md5_ctx from structure
	byte		a[8]
	byte		b[16]
	byte		c[64]
	byte		d[16]
end type

shared variables

end variables
global type u_derek_md5 from nonvisualobject
end type
global u_derek_md5 u_derek_md5

type prototypes

FUNCTION long OpenProcess(long dwDesiredAccess,long bInheritHandle,long dwProcessId) LIBRARY "kernel32.dll" ALIAS FOR "OpenProcess;ansi"
Function boolean CloseHandle (long hObject )  Library "kernel32" Alias for "CloseHandle;ansi" 

FUNCTION ulong CreateFile(ref string lpFileName,ulong dwDesiredAccess,ulong dwShareMode,ref ulong lpSecurityAttributes[3],ulong dwCreationDisposition,ulong dwFlagsAndAttributes,ulong hTemplateFile) LIBRARY "kernel32.dll" ALIAS FOR "CreateFileA;ansi" 
Function ulong CreateFileMapping (ulong hFile ,ulong lpFileMappigAttributes[3], ulong flProtect , ulong dwMaximumSizeHigh , ulong dwMaximumSizeLow ,ref String lpName ) Library "kernel32" Alias for "CreateFileMappingA;ansi" 
Function ulong OpenFileMapping(ulong dwDesiredAccess , boolean bInheritHandle ,ref string lpName)  Library "kernel32" Alias for "OpenFileMappingA;ansi" 
Function ulong  MapViewOfFile  (ulong hFileMappingObject , ulong dwDesiredAccess , ulong dwFileOffsetHigh , ulong dwFileOffsetLow , ulong dwNumberOfBytesToMap ) Library "kernel32"Alias for "MapViewOfFile" 
SUBROUTINE UnmapViewOfFile (ulong lpBaseAddress ) Library "kernel32" alias for "UnmapViewOfFile;ansi"

SUBROUTINE MD5Init  (ref md5_ctx lpContext ) Library "cryptdll.dll" alias for "MD5Init;ansi"
SUBROUTINE MD5Final (ref md5_ctx lpContext ) Library "cryptdll.dll" alias for "MD5Final;ansi"
SUBROUTINE MD5Update (ref md5_ctx lpContext ,ulong lpBuffer,ulong BufSize ) Library "cryptdll.dll" alias for "MD5Update;ansi"
SUBROUTINE MD5Update (ref md5_ctx lpContext,blob lpBuffer,ulong BufSize ) Library "cryptdll.dll" alias for "MD5Update;ansi"

end prototypes

type variables


CONSTANT ulong GENERIC_READ=2147483648
CONSTANT ulong FILE_SHARE_READ=1
CONSTANT ulong OPEN_EXISTING=3
CONSTANT ulong FILE_ATTRIBUTE_NORMAL=128
CONSTANT ulong PAGE_READONLY=2
CONSTANT ulong FILE_MAP_READ=4




end variables

forward prototypes
public function string uf_md5file (ref string ls_filename, ref string ls_result)
public function string uf_md5string (ref blob ls_string, ref string ls_result)
public function string decto (decimal ad_dec, readonly unsignedinteger aui_sys)
public function integer hexencode (ref byte lb_array[], ref character lc_result[])
public function string uf_md5string (ref string ls_string, ref string ls_result)
end prototypes

public function string uf_md5file (ref string ls_filename, ref string ls_result);ulong l_size
ulong l_hfile,l_hmap,l_pAddr
long l_ret
ulong l_Secu[3]
md5_ctx lpContext
char lc_result[]
byte lbyte_result[]
string ls_ref,ls_errtext
boolean lb_ret

ls_result=''
ls_filename=string(ls_filename,'')

if DirectoryExists ( ls_filename )=true then 
	ls_errtext='不能是文件夹!' //+string(ls_filename)+'~r~n'
	goto e
end if 

if fileexists(ls_filename)=false then 
	ls_errtext='文件不存在!' //+string(ls_filename)+'~r~n'
	goto e
end if 

l_size=FileLength ( ls_filename )
if l_size=-1 then 
	ls_errtext='FileLength:'+string(l_size)+'~r~n'
	goto e
end if

if l_size=0 then 
	ls_errtext='文件内容不能为空:'+string(l_size)+'~r~n'
	goto e
end if

if l_size>2*645*1024*1024 then  //最大支持
	ls_errtext='最大支持:'+string(2*645*1024*1024,'###,###,##0')+'~r~n'
	goto e
end if

try
	
	l_hfile=CreateFile(ls_filename,GENERIC_READ,FILE_SHARE_READ,l_Secu[],OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0)
	if l_hfile<=0 then 
		ls_errtext='CreateFile:'+string(l_hfile)+'~r~n'
		THROW create runtimeerror
	end if
	
	l_hmap= CreateFileMapping(l_hfile, l_Secu, PAGE_READONLY, 0, 0, ls_ref)
	if l_hmap<=0 then 
		ls_errtext='CreateFileMapping:'+string(l_hmap)+'~r~n'
		THROW create runtimeerror
	end if
	
	l_pAddr=MapViewOfFile(l_hmap, FILE_MAP_READ,0,0,l_size);
	if l_pAddr<=0 then 
		ls_errtext='MapViewOfFile:'+string(l_pAddr)+'~r~n'
		THROW create runtimeerror
	end if
	
	MD5Init(lpContext)
	MD5Update(lpContext,l_pAddr,l_size)
	MD5Final(lpContext)
	
catch(runtimeerror e)
	ls_errtext+=e.getmessage()
finally
	
	if l_pAddr>0 then 
		UnmapViewOfFile(l_pAddr); 
		l_pAddr=0
	end if
	
	if l_hmap>0 then 
		lb_ret=CloseHandle(l_hmap)
		if lb_ret=false then 
			ls_errtext+='CloseHandle:'+string(lb_ret)+'~r~n'
			//goto e
		else
			l_hmap=0
		end if
	end if
	
	if l_hfile>0 then 
		lb_ret=CloseHandle(l_hfile)
		if lb_ret=false then 
			ls_errtext+='CloseHandle:'+string(lb_ret)+'~r~n'
			//goto e
		else
			l_hfile=0
		end if
	end if
	
end try

if ls_errtext<>'' then goto e

lbyte_result[]=lpContext.b[]
hexencode(lbyte_result[],lc_result[])
ls_result=lc_result[]

return ''

goto e
e:
return ls_errtext
end function

public function string uf_md5string (ref blob ls_string, ref string ls_result);ulong l_size
md5_ctx lpContext
char lc_result[]
byte lbyte_result[]
ls_result=''
l_size=len(ls_string)

MD5Init(lpContext)
MD5Update(lpContext,ls_string,l_size)
MD5Final(lpContext)

lbyte_result[]=lpContext.b[]
hexencode(lbyte_result[],lc_result[])
ls_result=lc_result[]

return ''
end function

public function string decto (decimal ad_dec, readonly unsignedinteger aui_sys);//作用:将十进制数字转成其它进制字符串
//参数1:十进制数字
//参数2:目标进制
string ls_ret	//返回的结果
string ls_dec
string ls_left,ls_right,ls_mod
uint ld_mod	/*余数为整数*/
dec ld_mul	//取小数的乘积为dec
int i,li_pos,li_len,li_pointpos,li_maxpower,li_minpower
if isnull(ad_dec) or isnull(aui_sys) or aui_sys<2 then goto e

ls_dec=string(ad_dec)
li_pointpos=pos(ls_dec,'.')

if li_pointpos=0 then 

	if ad_dec<aui_sys then	//大于10进制
		if ad_dec<=9 then
			ls_ret=string(ad_dec)
			goto e
		elseif ad_dec>9 and ad_dec<aui_sys then
			ls_ret=char(64 - 9 + ad_dec)		//大于9的数字为转换为字母
			goto e
		end if
	else
		do
			ld_mod=mod(ad_dec,aui_sys)	//取余数
			ls_mod=decto(ld_mod,aui_sys)
			ls_ret=ls_mod+ls_ret

			ad_dec=long(( ad_dec - ld_mod) / aui_sys )		//去余取商
			
		loop until ad_dec<aui_sys
		
		if ad_dec>9 then 
			ls_ret=char(64 - 9 + ad_dec)+ls_ret
		else
			ls_ret=string(ad_dec)+ls_ret
		end if
		
	end if
else
	ls_left=mid(ls_dec,1,li_pointpos)			//取整数
	ls_right=mid(ls_dec,li_pointpos)			//取小数
	ls_ret=decto(dec(ls_left),aui_sys)+'.'		//整数部分转换

	ld_mul=dec(ls_right)
	for i=1 to 10 	//最大精度为10
		ld_mul=ld_mul * aui_sys
		ls_ret=ls_ret+string(int(ld_mul))	//取整
		if ld_mul=int(ld_mul) then exit		//没有余数
		ld_mul=ld_mul - int(ld_mul)		//去除整数
	next

end if

e:
return ls_ret

end function

public function integer hexencode (ref byte lb_array[], ref character lc_result[]);//将字符转换成16进制编码
//参数1:是要转换的字符
//参数2:源字符中编码
//返回16进制编码
long l_len,i,l_num
char lc_temp[2]

l_len=upperbound(lb_array[])
 
for i=1 to l_len
	l_num= (2 * i) - 1
	if lb_array[i]<16 then //小于16的要补0
		lc_temp[1]='0'
		lc_temp[2]=decto(lb_array[i],16)
	else
		lc_temp[]=decto(lb_array[i],16)
	end if
	lc_result[l_num]=lc_temp[1]
	lc_result[l_num + 1]=lc_temp[2]
next
 
return l_len*2


//blob lb_text
//blob{100} lb_stext
//string ls_text2,ls_ret,ls_str1
//int i,li_len,li_asc
//string ls_hex
ls_text2=space(100)
//
转换成编码encodingutf16BE
//if len(as_text)<=50 then
//	lb_stext=blob(as_text,ae_encode)
//	ls_text2=string(lb_stext,encodingutf16Be!)
//else
//	lb_text=blob(as_text,ae_encode)
//	ls_text2=string(lb_text,encodingutf16Be!)
//end if
//
//li_len=len(ls_text2)
//
//for i=1 to li_len
//	ls_str1=mid(ls_text2,i,1)
//	li_asc=asc(ls_str1)
//	ls_hex=decto(li_asc,16)
//	
//	
//	if ae_encode=encodingutf16BE! then	//高尾
//		ls_hex=fill('0',4 - len(ls_hex))+ls_hex
//		ls_ret=ls_ret+ls_hex
//	elseif ae_encode=encodingutf16lE! then	//低尾
//		ls_hex=fill('0',4 - len(ls_hex))+ls_hex
//		ls_ret=ls_ret+ls_hex
//	else
//		if right(ls_hex,2)='00' then	ls_hex=left(ls_hex,2)
//		ls_ret=ls_ret+ls_hex
//	end if
//next
//
//return ls_ret


end function

public function string uf_md5string (ref string ls_string, ref string ls_result);
blob lblob_string
lblob_string=blob(ls_string,encodingutf8!)
uf_md5string(lblob_string,ls_result)
return ''
end function

on u_derek_md5.create
call super::create
TriggerEvent( this, "constructor" )
end on

on u_derek_md5.destroy
TriggerEvent( this, "destructor" )
call super::destroy
end on


A啦Dbit
关注
  • 4
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 4
    评论
专栏目录
powerbuilder 字符串MD5
12-20
powerbuilder编写的把字符串生成MD5加密
MD5算法在PB中的实现
njdxbzu的专栏
08-02 2088
       MD5算法自从1991开发出来以后广泛用于数字签名和加密解密领域。目前使用PB外的语言可以较为简单地实现了MD5加密，使用PB来实现的比较鲜见，这可能有如下两方面的原因：一，PB在位运算方面未提供直接使用的函数，要实现位运算比较麻烦；二，在PB（PB10之前的版本）中无法直接获取字符的unicode值。如果能够攻破这两个难点，在熟悉MD5算法之后应该比较容易地在PB中实现MD5加密。
PB可用md5加密、des加解密，Base64编码DLL、附PB11.5调用例程
08-06
较之前上传版本增加了base64编码功能， md5、des、base64都增加了专门的unicode调用声明，方便多语言操作， 代码里有一个拖拽文件显示路径的sle
PB实现MD5算法
JasonFriday的博客
04-08 4081
文章目录实例加密文本加密文件源代码位运算计算器MD5算法 实例 加密文本 加密文件 其中n_func_file功能为读写文件，使用和源代码参见另一篇文章PB读写文件 源代码 位运算计算器 代码拷贝到文本编辑器，另存为 n_bit_calc.sru，导入pbl 发现BUG请留言或私信，以便修正（QQ：768310524 TEL：18649713925） forward global type n...
PB生成时间戳、MD5加密、生成二维码、用于微信扫码支付
yh361的博客
05-31 2195
PB生成时间戳、MD5加密、生成二维码、用于微信扫码支付
PB MD5加密DLL文件
12-11
在PB里面实现MD5加密方法。 在全局函数里面声明后，即可在程序当中使用，声明方式如下： FUNCTION String MDString(string arg1,int arg2) Library "md5.dll" alias for "MDString;Ansi
PB12.5写的MD5加密工具
02-16
PB调动cryptdll.dll处理MD5加密
PB可用md5加密、des加解密DLL，附PB9调用例程
08-21
PB可用md5加密、des加解密DLL，附Powerbilder9.0调用例程。
PB9.0调用MD5加密示例,md5加密方法过程,PowerBuilder
03-21
pb9.0调用md5加密
pb9、pb10、MD5加密 纯PB代码实现
01-18
pb9、pb10、MD5加密 纯PB代码实现
powerbuilder MD5加密示例含MD5.DLL
04-04
powerbuilder MD5加密示例含MD5.DLL,通过引用全局dll后调用MDTstring（）方法调用
MD5算法（pb版 ）
09-16
对MD5算法简要的叙述可以为：MD5以512位分组来处理输入的信息，且每一分组又被划分为16个32位子分组，经过了一系列的处理后，算法的输出由四个32位分组组成，将这四个32位分组级联后将生成一个128位散列值。 在pb中用此算法写的加密过程。
PB9.0调用MD5加密示例
11-15
PB9.0调用MD5加密示例，里面包含调用的dll以及相关实现代码。
PB引用MD5的两种方法
spy1206的专栏
09-08 3358
今天因为用了几年的MyMD5.dll出问题了，不明白是我升了PB9的原因还是DLL损坏了，但几个备份都是这样，只能重新找。找到了两个，都能在PB9应用，各有各的好处。 资源下载：http://download.csdn.net/source/613433 1：外带DLL的MD5：加个DLL就能应用到跨系统(PB6，7，8，9都能通过。)，一个胖好人给的。2：自定义对像式的MD5
PB9.0调用MD5加密示例,md5加密方法过程,PowerBuilder源码.zip
10-14
PB9.0调用MD5加密示例,md5加密方法过程,PowerBuilder源码.zip
MD5加密 纯PB代码实现
02-16
使用纯pb代码实现MD5加密 分别有PB9.0 版本 和PB11.5版本实现代码
纯PB 代码 MD5生成和校验程序
05-05
纯PB代码编制的MD5生成程序 PB11.5下调试通过
bootstrap5侧边导航栏
最新发布
05-14
<div class="d-flex justify-content-between flex-wrap flex-md-nowrap align-items-center pt-3 pb-2 mb-3 border-bottom"> <h1 class="h2">Dashboard <div class="btn-toolbar mb-2 mb-md-0"> ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 4
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值