函数声明：
Function String mysha(string s,string key) Library 'mysha1.dll' Alias for 'mysha'
调用：
sle_3.text= mysha(sle_1.text,sle_2.text)
结果：
mysha('0','0')=cd37e4d6842d0ee36c10e2ad23b15285bf12adb2
测试：
pb2017R3版本通过
mysha1.rar （2个子文件） 
mysha1.dll 4.05MB
readmy.txt 240B
