数美js版本和易语言版本源码

数美js版本和易语言版本源码

@surplus

.版本 2
.支持库 dp1
.支持库 spec

.子程序 GetIsShuMei, 文本型, , 160
.参数 key, 文本型, 可空
.参数 device, 文本型, 可空
.参数 算法类型, 整数型, 可空, 0 = web 1 = app
.局部变量 time, 文本型
.局部变量 _0x14eba5, 文本型
.局部变量 HkA, 文本型
.局部变量 _0x58ef60, 文本型

.如果真 (key ＝ “”)
    key ＝ “smsk_web_”  ' _bew_ksms
.如果真结束
time ＝ GetTime ()
.如果真 (device ＝ “”)
    device ＝ “bf531692-3c58-4e66-ad0f-3b6fadc98451”
.如果真结束

_0x14eba5 ＝ time ＋ 取数据摘要 (到字节集 (device)) ＋ “00”
HkA ＝ key ＋ _0x14eba5
_0x58ef60 ＝ 取文本中间 (取数据摘要 (到字节集 (HkA)), 1, 14)
.判断开始 (算法类型 ＝ 0)
    返回 (_0x14eba5 ＋ _0x58ef60 ＋ “0”)
.默认
    返回 (_0x14eba5 ＋ _0x58ef60)
.判断结束


.子程序 GetTime, 文本型
.局部变量 time, 日期时间型
.局部变量 getFullYear, 文本型
.局部变量 getMonth, 文本型
.局部变量 getDate, 文本型
.局部变量 getHours, 文本型
.局部变量 getMinutes, 文本型
.局部变量 getSeconds, 文本型

time ＝ 取现行时间 ()
getFullYear ＝ 到文本 (取年份 (time))
getMonth ＝ 到文本 (取月份 (time))
getDate ＝ 到文本 (取日 (time))
getHours ＝ 到文本 (取小时 (time))
getMinutes ＝ 到文本 (取分钟 (time))
getSeconds ＝ 到文本 (取秒 (time))

getMonth ＝ 自动补0 (getMonth)
getDate ＝ 自动补0 (getDate)
getHours ＝ 自动补0 (getHours)
getMinutes ＝ 自动补0 (getMinutes)
getSeconds ＝ 自动补0 (getSeconds)
返回 (getFullYear ＋ getMonth ＋ getDate ＋ getHours ＋ getMinutes ＋ getSeconds)
调试输出 (getFullYear, getMonth, getSeconds)

.子程序 自动补0, 文本型
.参数 str, 文本型

.如果真 (取文本长度 (str) ＜ 2)
    str ＝ “0” ＋ str
.如果真结束
返回 (str)