a = AddUnsigned(a, AA)
b = AddUnsigned(b, BB)
c = AddUnsigned(c, CC)
d = AddUnsigned(d, DD)
Next
'MD5 = UCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d)) '32byte
MD5 = LCase(WordToHex(b) & WordToHex(c)) 'I crop this to fit 16byte database password :D
End Function
Function CFTGetServerDate(d)
Dim strTmp, iYear,iMonth,iDate
iYear = Year(d)
iMonth = Month(d)
iDate = Day(d)
strTmp = CStr(iYear)
If iMonth < 10 Then
strTmp = strTmp & "0" & Cstr(iMonth)
Else
strTmp = strTmp & Cstr(iMonth)
End If
If iDate < 10 Then
strTmp = strTmp & "0" & Cstr(iDate)
Else
strTmp = strTmp & Cstr(iDate)
End If
CFTGetServerDate = strTmp
End Function
Function CFTGetServertime(d)
Dim strTmp, iYear,iMonth,iDate
iYear = hour(d)
iMonth = minute(d)
iDate = second(d)
strTmp = ""
If iYear < 10 Then
strTmp = strTmp & "0" & Cstr(iYear)
Else
strTmp = strTmp & Cstr(iYear)
End If
If iMonth < 10 Then
strTmp = strTmp & "0" & Cstr(iMonth)
Else
strTmp = strTmp & Cstr(iMonth)
End If
If iDate < 10 Then
strTmp = strTmp & "0" & Cstr(iDate)
Else
strTmp = strTmp & Cstr(iDate)
End If
CFTGetServertime = strTmp
End Function
