求编一个破解狗的DLL文件。下面是读狗的代码。谢谢
DECLARE INTEGER FindPort IN Syunew3D.DLL INTEGER, STRING @
DECLARE INTEGER FindPort_2 IN Syunew3D.DLL INTEGER, LONG , LONG , STRING @
DECLARE INTEGER GetID IN Syunew3D.DLL LONG  @, LONG  @, STRING
DECLARE INTEGER NT_GetIDVersion IN Syunew3D.DLL INTEGER @, STRING
DECLARE INTEGER sWrite IN Syunew3D.DLL INTEGER, STRING
DECLARE INTEGER sRead IN Syunew3D.DLL INTEGER @, STRING
DECLARE INTEGER YWrite IN Syunew3D.DLL INTEGER, INTEGER, STRING, STRING, STRING
DECLARE INTEGER YRead IN Syunew3D.DLL INTEGER @, INTEGER, STRING, STRING, STRING
DECLARE INTEGER YWriteString IN Syunew3D.DLL STRING, INTEGER, STRING, STRING, STRING
DECLARE INTEGER YReadString IN Syunew3D.DLL STRING @, INTEGER, INTEGER, STRING, STRING, STRING
DECLARE INTEGER RegSetValueEx IN "advapi32.dll" INTEGER, STRING, INTEGER, INTEGER, STRING @, INTEGER
DECLARE INTEGER RegCreateKey IN "advapi32.dll" INTEGER, STRING, INTEGER @
DECLARE INTEGER RegQueryValueEx IN "advapi32.dll" INTEGER, STRING, INTEGER, INTEGER, STRING @, INTEGER @
DECLARE INTEGER RegCloseKey IN "advapi32.dll" INTEGER
getvalue = SPACE(255)
lo = LEN(GETVALUE)
setvalue = SPACE(1)
= REGCREATEKEY(HKEY_LOCAL_MACHINE,KEYVALUE,@KEYHAND)
= REGQUERYVALUEEX(KEYHAND,"Time",0,0,@GETVALUE,@LO)
getvalue = "1000"
syb = 0
PUBLIC devicepath, ret
devicepath = SPACE(260)
ret = FINDPORT(0,@DEVICEPATH)
IF RET <> 0
   = MESSAGEBOX("您正在使用试用版，请及时购买正版软件支持！！！",48,"系统提示")
   IF VAL(GETVALUE) >= 5
      MESSAGEBOX("试用次数已过！请购买正式版或进行注册！.",48,"系统提示")
      QUIT
   ELSE
      getvalue = ALLTRIM(STR(VAL(GETVALUE)+1))
      setvalue = GETVALUE
      = regsetvalueex(KEYHAND,"Time",0,1,@SETVALUE,LEN(SETVALUE))
      a = REGCLOSEKEY(KEYHAND)
      IF VAL(GETVALUE) >= 39
         qx = 0
         MESSAGEBOX("您还可以试用"+ALLTRIM(STR(50-VAL(SETVALUE)))+"次！打印功能已受限制！！",48,"系统提示")
      ELSE
         qx = 1
         MESSAGEBOX("您还可以试用"+ALLTRIM(STR(50-VAL(SETVALUE)))+"次！",48,"系统提示")
      ENDIF
      czjb = 1
      syb = 1
      bt = "-----（未注册）　　　　　　　版权所有"
      DO FORM 系统登录
      thisform.visible = .F.
   ENDIF
ELSE
   LOCAL outstring,mm
   outstring = SPACE(512)
   mylen = 10
   ret = YREADSTRING(@OUTSTRING,100,MYLEN,"ffffffff","ffffffff",DEVICEPATH)
   mm = SUBSTR(ALLTRIM(OUTSTRING),1,10)
   IF MM <> "jsjmwy0778" .AND. MM <> "jsjmwy0000"
      = MESSAGEBOX("您正在使用未经认证的加密狗，请尊重作者！！进入系统后请参阅“如何购买...”！！！",48,"系统提示")
      IF VAL(GETVALUE) >= 5
         MESSAGEBOX("试用次数已过！请购买正式版或进行注册！",48,"系统提示")
         QUIT
      ELSE
         getvalue = ALLTRIM(STR(VAL(GETVALUE)+1))
         setvalue = GETVALUE
         = regsetvalueex(KEYHAND,"Time",0,1,@SETVALUE,LEN(SETVALUE))
         a = REGCLOSEKEY(KEYHAND)
         IF VAL(GETVALUE) >= 39
            qx = 0
            MESSAGEBOX("您还可以试用"+ALLTRIM(STR(50-VAL(SETVALUE)))+"次！打印功能已受限制！！",48,"系统提示")
         ELSE
            qx = 1
            MESSAGEBOX("您还可以试用"+ALLTRIM(STR(50-VAL(SETVALUE)))+"次！",48,"系统提示")
         ENDIF
         czjb = 1
         syb = 1
         bt = "-----（未注册）　　　　　　　版权所有"
         DO FORM 系统登录
         thisform.visible = .F.
      ENDIF
   ELSE
      DO CASE
      CASE MM = "jsjmwy0778"
         bt = "-----（已注册）　　　　　　　版权所有"
         qx = 1
         czjb = 1
         syb = 1
         DO FORM 系统登录
         RETURN .F.
      CASE MM = "jsjmwy0000"
         bt = "-----（已注册）　　　　　　　版权所有"
         qx = 1
         czjb = 0
         syb = 1
         DO FORM 系统登录
         RETURN .F.
      ENDCASE
   ENDIF
ENDIF

[培训]科锐逆向工程师培训第53期2025年7月8日开班！