广告位,联系QQ:910488011
当前位置: 首页 > 文档下载 > QQ农场farmKey算法/VB源码
文档下载
QQ农场farmKey算法/VB源码
作者: admin  时间: 2012-10-10  点击: 5211
'***************************
'=========              farmKey算法             ===========
'=========          设计:刹那的永恒         ===========
'=========  E_Mail:mpaper@163.com    ===========
'=======================================
Public Function getTim() As String '获取当前系统时间
     Dim objScrCtl As Object
     Dim ti As String
     Set objScrCtl = CreateObject("MSScriptControl.ScriptControl")
     objScrCtl.Language = "JavaScript"
     ti = objScrCtl.Eval("function getTime(){var mt =new Date();return mt.getTime()};getTime()")
     Set objScrCtl = Nothing
     getTim = Trim(Str(Val(Left(ti, 10)) + ccTime))
End Function
Public Function GetncKey(ByVal farmTime As String) As String '获取农场FarmKey
   Dim key As String
   key = "OPdfqwn^&*w(281flebnd1##roplaq"
   GetncKey = MD5(farmTime & Mid(key, Val(Right(farmTime, 1)) + 1))
End Function

************************************************


'=======***====用法=====****===========
'farmTime = getTim
'FarmKey = GetncKey(farmTime)
'========****==============*********========