Public Function Encrypt(src As String) As String -----加密
Dim i As Integer
Dim aStr As String
Dim num1, num2 As Double
For i = 1 To Len(src)
aStr = aStr + CStr(Asc(Mid(src, i, 1)))
Next
num1 = Val(aStr)
num2 = Int(num1 * num1 / 3) + num1
If num2 = 0 Then
Encrypt = “”
Else
Encrypt = CStr(num2)
End If
End Function
户外羽绒服排行榜,它才是女人最好的嫁妆！
我的出场方式很特别，都是下冬天，
算是你们的寒冬第一个礼物。
我见过10°、0°、-3°、-38°，
也见过在各种户外运动的你。
爱你就像是天上掉下的馅饼，
看着开心并心疼着。
我跟在你身边一般只有3-4个月，
第一次遇到你们，仍然在寒冷到来的第一天。
每次约会中，
你都被众人羡慕，故意靠近着，
扫描二维码关注公众号，回复：
4456937 查看本文章
我有点害羞也有点开心。
– 思凯乐户外
