部分主文件代码
SET SYSMENU TO
_SCREEN. = ""
SET TALK OFF
SET ESCAPE OFF
SET SAFETY OFF
SET NOTIFY OFF
SET DEBUG OFF
SET ECHO OFF
SET DELETED ON
SET CENTURY ON
SET DATE YMD
SET EXCLUSIVE OFF
= "help.chm"
IF FILE()
set help to &helpfile
ELSE
SET HELP OFF
ENDIF
IF FILE("b.txt")
ERASE b.txt
ENDIF
SET CLOCK STATUS
SET HOURS TO 24
SET CLASSLIB TO cplibs ADDITIVE
SET PROCEDURE TO sys_prog , tool_prog , sys_prog , cp_prog ADDITIVE
_SCREEN. = .T.
_SCREEN. = "cp3.ico"
= SYS(2023)
= SYS(2023)
= SYS(2023)
= SYS(2023)
ON ERROR do ERRORMSG with error(),program(),mes????
有人要全部就发出来了、
是用powerbasic写的加密软件加密的具体是那一种看不出来。SET SYSMENU TO
_SCREEN.caption = ""
SET TALK OFF
SET ESCAPE OFF
SET SAFETY OFF
SET NOTIFY OFF
SET DEBUG OFF
SET ECHO OFF
SET DELETED ON
SET CENTURY ON
SET DATE YMD
SET EXCLUSIVE OFF
helpfile = "help.chm"
IF FILE(HELPFILE)
set help to &helpfile
ELSE
SET HELP OFF
ENDIF
IF FILE("b.txt")
ERASE b.txt
ENDIF
SET CLOCK STATUS
SET HOURS TO 24
SET CLASSLIB TO cplibs ADDITIVE
SET PROCEDURE TO sys_prog , tool_prog , sys_prog , cp_prog ADDITIVE
_SCREEN.autocenter = .T.
_SCREEN.icon = "cp3.ico"
tmpfiles = SYS(2023)
sortwork = SYS(2023)
progwork = SYS(2023)
editwork = SYS(2023)
ON ERROR do ERRORMSG with error(),program(),message(),message(1),lineno()
ON SHUTDOWN do shutdown
DO sys_mem
ccurrentprocedure = SYS(16,1)
npathstart = AT(":",CCURRENTPROCEDURE)-1
nlenofpath = RAT("\",CCURRENTPROCEDURE)-(NPATHSTART)
SET DEFAULT TO (SUBSTR(CCURRENTPROCEDURE,NPATHSTART,NLENOFPATH))
IF NOT FILE("reg.ini")
RUN /n REGSVR32 /s '"'+curdir()+'teechart.ocx"'
ENDIF
maincaption = SHOW_SOFTNAME
DECLARE INTEGER FindWindow IN win32api STRING, STRING
hwnd = FINDWINDOW(0,MAINCAPTION)
IF HWND <> 0
_SCREEN.caption = MAINCAPTION
MESSAGEBOX(" 本程序已经运行或已存在后台进程，请查看任务栏及查看系统进程!",64,"消息")
ON SHUTDOWN quit
QUIT
RETURN .F.
ENDIF
_SCREEN.caption = MAINCAPTION
SET PATH TO dat
DO checkzc
DO checkdb
sysmsg = "『欢迎使用《智取数字３》软件』"
DO FORM oldface NAME oldface
DO getuserset
DO o_welcome WITH u_welcome,""
IF NOT U_WELCOME
SET CURSOR OFF
INKEY(1)
SET CURSOR ON
ENDIF
_SCREEN.windowstate = 2
_SCREEN.visible = .T.
SET MESSAGE TO SYSMSG
DO MAINMENU.mpr
DO toolbars
IF NOT U_WELCOME
SET CURSOR OFF
INKEY(1)
SET CURSOR ON
ENDIF
startform.release
RELEASE startform,loginform
SET MESSAGE TO SYSMSG
IF S_AUTODOWN
DO getonline
ENDIF
IF S_NEEDPWD
DO showform WITH "loginpwd"
ENDIF
IF KJDATA_F????
DO getonline
ENDIF
IF VAL((.F.,)) < 1
MESSAGEBOX("暂时无法使用软件，您的软件可能遇到以下情况之一："+CHR(13)+CHR(13)+" 1、您试用本软件超过30天，请在注册后使用本软件，增加试用请联系博众网。"+CHR(13)+" 2、您可能重装了操作系统，请重新输入我们分配给您的验证码进行注册验证。"+CHR(13)+" 3、您可能购买的是限时版，软件使用期限已到，请续费后再继续使用。"+CHR(13)+" 4、其他未知原因，请与博众网(www.qshx.com)联系处理。",64,"消息")
= "12345"
= "12345"
= "12345"
= "12345"
= "12345"
= ""
("write","SOFTWARE\Microsoft\Windows\CurrentVersion\Setup","regcode1",)
("write","SOFTWARE\Microsoft\Windows\CurrentVersion\Setup","regcode2",)
("write","SOFTWARE\Microsoft\Windows\CurrentVersion\Setup","regcode3",)
("write","SOFTWARE\Microsoft\Windows\CurrentVersion\Setup","regcode4",)
("write","SOFTWARE\Microsoft\Windows\CurrentVersion\Setup","regcode5",)
("write","SOFTWARE\Microsoft\Windows\CurrentVersion\Setup","systemnum",)
= "0"
("write","SOFTWARE\Microsoft\Windows\CurrentVersion\Setup","regcode6",)
IF FILE("reg.ini")
ERASE reg.ini
ENDIF
DO showform WITH "reginfo2"
ON SHUTDOWN quit
QUIT
ENDIF
ON ERROR do ERRORMSG with error(),program(),message(),message(1),lineno()
READ EVENTS
说得对前面脱壳时中间有24字节的垃圾串。
正确的prg应该是这样的。
SET SYSMENU TO
_SCREEN.caption = ""
SET TALK OFF
SET ESCAPE OFF
SET SAFETY OFF
SET NOTIFY OFF
SET DEBUG OFF
SET ECHO OFF
SET DELETED ON
SET CENTURY ON
SET DATE YMD
SET EXCLUSIVE OFF
helpfile = "help.chm"
IF FILE(HELPFILE)
set help to &helpfile
ELSE
SET HELP OFF
ENDIF
IF FILE("b.txt")
ERASE b.txt
ENDIF
SET CLOCK STATUS
SET HOURS TO 24
SET CLASSLIB TO cplibs ADDITIVE
SET PROCEDURE TO sys_prog , tool_prog , sys_prog , cp_prog ADDITIVE
_SCREEN.autocenter = .T.
_SCREEN.icon = "cp3.ico"
tmpfiles = SYS(2023)
sortwork = SYS(2023)
progwork = SYS(2023)
editwork = SYS(2023)
ON ERROR do ERRORMSG with error(),program(),message(),message(1),lineno()
ON KEY LABEL F12 DO FULL_SCREEN.PRG
ON SHUTDOWN do shutdown
DO sys_mem
ccurrentprocedure = SYS(16,1)
npathstart = AT(":",CCURRENTPROCEDURE)-1
nlenofpath = RAT("\",CCURRENTPROCEDURE)-(NPATHSTART)
SET DEFAULT TO (SUBSTR(CCURRENTPROCEDURE,NPATHSTART,NLENOFPATH))
IF NOT FILE("reg.ini")
RUN /n REGSVR32 /s '"'+curdir()+'teechart.ocx"'
ENDIF
maincaption = SHOW_SOFTNAME
DECLARE INTEGER FindWindow IN win32api STRING, STRING
hwnd = FINDWINDOW(0,MAINCAPTION)
IF HWND <> 0
_SCREEN.caption = MAINCAPTION
MESSAGEBOX(" 本程序已经运行或已存在后台进程，请查看任务栏及查看系统进程!",64,"消息")
ON SHUTDOWN quit
QUIT
RETURN .F.
ENDIF
_SCREEN.caption = MAINCAPTION
SET PATH TO dat
DO checkzc
DO checkdb
sysmsg = "『欢迎使用《智取数字３》软件』"
DO FORM oldface NAME oldface
DO getuserset
DO o_welcome WITH u_welcome,""
IF NOT U_WELCOME
SET CURSOR OFF
INKEY(1)
SET CURSOR ON
ENDIF
_SCREEN.windowstate = 2
_SCREEN.visible = .T.
SET MESSAGE TO SYSMSG
DO MAINMENU.mpr
DO toolbars
IF NOT U_WELCOME
SET CURSOR OFF
INKEY(1)
SET CURSOR ON
ENDIF
startform.release
RELEASE startform,loginform
SET MESSAGE TO SYSMSG
IF S_AUTODOWN
DO getonline
ENDIF
IF S_NEEDPWD
DO showform WITH "loginpwd"
ENDIF
IF KJDATA_FIRSTTIME
DO getonline
ENDIF
IF VAL(JM(.F.,R_NUM6)) < 1
MESSAGEBOX("暂时无法使用软件，您的软件可能遇到以下情况之一："+CHR(13)+CHR(13)+" 1、您试用本软件超过30天，请在注册后使用本软件，增加试用请联系博众网。"+CHR(13)+" 2、您可能重装了操作系统，请重新输入我们分配给您的验证码进行注册验证。"+CHR(13)+" 3、您可能购买的是限时版，软件使用期限已到，请续费后再继续使用。"+CHR(13)+" 4、其他未知原因，请与博众网(www.qshx.com)联系处理。",64,"消息")
r_num1 = jm(.T.,"12345")
r_num2 = jm(.T.,"12345")
r_num3 = jm(.T.,"12345")
r_num4 = jm(.T.,"12345")
r_num5 = jm(.T.,"12345")
r_yzm = jm(.T.,"")
REG_CZ("write","SOFTWARE\Microsoft\Windows\CurrentVersion\Setup","regcode1",R_NUM1)
REG_CZ("write","SOFTWARE\Microsoft\Windows\CurrentVersion\Setup","regcode2",R_NUM2)
REG_CZ("write","SOFTWARE\Microsoft\Windows\CurrentVersion\Setup","regcode3",R_NUM3)
REG_CZ("write","SOFTWARE\Microsoft\Windows\CurrentVersion\Setup","regcode4",R_NUM4)
REG_CZ("write","SOFTWARE\Microsoft\Windows\CurrentVersion\Setup","regcode5",R_NUM5)
REG_CZ("write","SOFTWARE\Microsoft\Windows\CurrentVersion\Setup","systemnum",R_YZM)
r_num6 = jm(.T.,"0")
REG_CZ("write","SOFTWARE\Microsoft\Windows\CurrentVersion\Setup","regcode6",R_NUM6)
IF FILE("reg.ini")
ERASE reg.ini
ENDIF
DO showform WITH "reginfo2"
ON SHUTDOWN quit
QUIT
ENDIF
ON ERROR do ERRORMSG with error(),program(),message(),message(1),lineno()
READ EVENTS
没有权限。fxp文件无法上传
