btc地址验证合法性规则
3开头的比特币地址，34位。
1开头的比特币地址，长度26位到34位
Base58是Base64编码格式的子集，同样使用大小写字母和10个数字，但舍弃了一些容易错读和在特定字
体中容易混淆的字符。具体地，Base58不含Base64中的0（数字0）、O（大写字母o）、l（小写字母L）
、I（大写字母i），以及“+”和“/”两个字符。简而言之，Base58就是由不包括（0，O，l，I）的大
小写字母和数字组成。
比特币的Base58字母表
123456789ABCDEFGHJKLMNPQRSTUVWXYZabcdefghijkmnopqrstuvwxyz
1.eth正则匹配规则 ^0x[a-fA-F0-9]{40}$
2.btc基本判断：
3开头的比特币地址，长度为34位。
1开头的比特币地址，长度为26位到34位
正则匹配规则
/\A(1|3)[a-zA-Z1-9]{26,33}\z/
更严格的判断参考：https://stackoverflow.com/questions/22127317/check-if-bitcoin-
address-is-valid
3.eth地址验证合法性规则
Private Function gettimestamp(tNum,tUserid,tdotype,moneytype)
Dim tStr1
tStr1=tNum&tUserid&tdotype&moneytype
gettimestamp=mid(md5t(tStr1,32,36)&"james626",3,20)
End Function