|
[求助]foxspy v1.93 如何生成可执行文件
lz是个vfp菜c |
|
[求助] VC++调用VFP6R.DLL的程序 的破解问题
原来是垃圾中的垃圾.非法彩票软件. SET SYSMENU OFF SET EXCLUSIVE OFF SET TALK OFF SET CONSOLE OFF SET DELETED ON SET EXACT ON SET CENTURY ON SET DATE TO ansi SET SAFETY OFF _SCREEN.visible = .T. _SCREEN.caption = "猪猪小庄统计器 V6.8+ 软件设计:猪猪" SET MESSAGE TO "彩票统计器,支持共享联网,正在登陆..." SET MESSAGE OFF ON ERROR do errormsg with program(),line(),message(),error() PUBLIC pmaxv, pldt, pduser, pusn, pflmn, pmonx, runok, myplay, smm smm = "ncksku14782" myplay = .F. runok = .F. pflmn = "Data.ini" pmaxv = INT(VAL(getiv(PFLMN,"Default","Max","49"))) pmonx = INT(VAL(rsob(getiv(PFLMN,"Default","MMX","CCDEF")))) pduser = getiv(PFLMN,"Default","使用者","888888") pusn = getiv(PFLMN,"Default","分隔符","") pldt = DATE() gxnn() lvvs = ALLTRIM(SMM) lvs = LVVS tmpa = ALLTRIM(getiv("data.ini","Information","Descrip","")) tmpb = TMPA tmpa = ALLTRIM(RSTRG(TMPA)) lvs = ALLTRIM(rstrg(ALLTRIM(LXRS(LVS)))) IF ****** ELSE myplay = .F. ENDIF ON SHUTDOWN do onshutdown _SCREEN.picture = getiv("data.ini","分析参数","背景","intwm.bmp") lcigt = getiv("Data.ini","HELP","FirstUsed","0") IF LCIGT = "0" IF getiv("Data.ini","HELP","HTML","0") <> "0" mie = CREATEOBJECT("internetexplorer.application") mie.visible = .T. lmgx = getiv("Data.ini","HELP","HTML","0") IF NOT (SYS(5)+SYS(2003)) $ LMGX IF LEFT(LMGX,1) = "\" lmgx = SYS(5)+SYS(2003)+LMGX ELSE lmgx = SYS(5)+SYS(2003)+"\"+LMGX ENDIF ENDIF MIE.NAVIGATE(LMGX) ENDIF putiv("Data.ini","HELP","FirstUsed","1") ENDIF _SCREEN.windowstate = 2 DO FORM getlogin IF RUNOK IF _SCREEN.width <= 800 MESSAGEBOX("分辨率太低",0,"猪猪统计器") QUIT ELSE DO FORM intmainnc ENDIF DO SXINM6.MPR SET MESSAGE TO "彩票统计器,欢迎使用... " READ EVENTS ENDIF |
|
[求助]vfp程序应该选择哪种方法来脱壳更快
不难,请看附件.因为版权原因没有给出全部源文件. |
|
|
|
[求助][求助]PowerBASIC/Win 8.00是编写语言还是壳
CLEAR ALL CLOSE ALL ON ERROR Do progs\errors With Program(),Lineno(),Error(),Message(),Message(1) DECLARE LONG GetCurrentDirectory IN WIN32API LONG , STRING @ LOCAL cpath,lnstringlen cpath = SPACE(200)+CHR(0) lnstringlen = GETCURRENTDIRECTORY(200,@CPATH) cpath = LEFT(CPATH,LNSTRINGLEN) TRY IF FILE(CPATH+"\errors.txt") gnerrfile = FOPEN(CPATH+"\errors.txt",12) ELSE gnerrfile = FCREATE(CPATH+"\errors.txt") ENDIF IF GNERRFILE < 0 THROW "不能创建或打开输出文件!" ELSE = FWRITE(GNERRFILE,"软件已经启动,请不要重复启动!") ENDIF CATCH TO zgerror WHEN ZGERROR.errorno = 2071 = MESSAGEBOX("软件已经启动,请不要重复启动!",64,"提示信息") QUIT ENDTRY DECLARE INTEGER waveOutGetNumDevs IN winmm.Dll AS APIwaveOutGetNumDevs IF apiwaveoutgetnumdevs() <= 0 = MESSAGEBOX("本机没有配声卡,您将听不到音乐和语音报分!",64,"提示信息") ENDIF SET PROCEDURE TO Progs\Proc ADDITIVE = createdbf("Name") = publ("姓名奥秘","2007V3.0",.F.) DO Progs\ReadReg.prg IF LSPLASH DO FORM Forms\Splash NAME frmsplash ENDIF RELEASE lsplash IF checknewversion() IF MESSAGEBOX("本软件已经有新版本,请到天空软件战或华军软件园下载最新版本!"+CHR(13)+CHR(13)+"注意:新版本不要安装到旧版本所在文件夹,否则可能会出错!"+CHR(13)+CHR(13)+"您要到天空软件站下载吗?",292,"请确认") = 6 = gotohomepage() ENDIF ENDIF LOCAL cfrmmain cfrmmain = mainform() CLOSE TABLES DO FORM (CFRMMAIN)NAME frmmain IF LREGOK = .F. DO FORM Forms\Sys_RegSoft ENDIF READ EVENTS CLOSE ALL CLEAR ALL QUIT |
|
[求助]vfp写的一个程序,如何打狗?
太容易了. PUBLIC pat, blinkform, backform, keyform, mainform, regform ON SHUTDOWN quit ON ERROR do err with markerr DECLARE INTEGER FindWindow IN User32.Dll AS Find_Window STRING, STRING LOCAL ctitle ctitle = "GD2000档案管理系统" IF FIND_WINDOW(0,CTITLE) <> 0 = MESSAGEBOX("本系统已经运行了,不可重复运行!",48,"信息窗口") QUIT ENDIF _SCREEN.caption = CTITLE markerr = 0 DECLARE INTEGER DogRead IN WIN32DLL INTEGER, INTEGER, STRING @ DECLARE INTEGER DogWrite IN WIN32DLL INTEGER, INTEGER, STRING @ dogaddr = 0 dogbytes = 11 data = "12345678901" newdog = DOGREAD(DOGBYTES,DOGADDR,@DATA) IF NEWDOG <> 0 CLEAR DLLS DECLARE INTEGER DogRead IN OLD32DLL INTEGER, INTEGER, STRING @ DECLARE INTEGER DogWrite IN OLD32DLL INTEGER, INTEGER, STRING @ olddog = DOGREAD(DOGBYTES,DOGADDR,@DATA) IF OLDDOG <> 0 = MESSAGEBOX("请您检查加密狗是否安装好,若操作系统为WINDOWS2000/NT/XP尚需要安装加密狗驱动程序!"+CHR(13)+CHR(13)+SPACE(20)+"加密狗驱动程序在软件安装光盘中。",48,"信息窗口") RETURN ENDIF ENDIF dogaddr = 0 dogbytes = 9 dogdata = "gd2000Dog" i = DOGWRITE(DOGBYTES,DOGADDR,@DOGDATA) _VFP.visible = .F. SET AUTOSAVE ON SET TALK OFF SET CONFIRM OFF SET SAFETY OFF SET SPACE OFF SET STATUS OFF SET SYSMENU OFF SET ESCAPE OFF SET EXACT ON SET DELETED ON SET CENTURY ON SET DATE TO YMD SET MARK TO "/" SET DEBUG OFF SET BLOCKSIZE TO 1 SET MEMOWIDTH TO 100 SET HOURS TO 24 SET NOTIFY OFF SET EXCLUSIVE ON pat = SYS(5)+SYS(2003) set path to &pat set default to &pat DO FORM blinkform READ EVENTS SET TALK ON SET CONFIRM ON SET SAFETY ON SET SPACE ON SET STATUS ON SET SYSMENU ON SET ESCAPE ON SET EXACT OFF SET DELETED OFF SET CENTURY ON SET NOTIFY OFF SET EXCLUSIVE OFF RELEASE pat,blinkform,backform,keyform,mainform,regform CLOSE ALL CLEAR ALL _VFP.visible = .T. = IMESTATUS(0) QUIT |
|
|
|
[求助]关于脱 VFP 猛壳若干问题的求助……
所有的加密壳都不会将全部文件解密于内存中的。只会用一些解一些。你的方法只适用于早期的加密壳。对新壳只能得到部分文件。 |
|
[求助]关于脱 VFP 猛壳若干问题的求助……
有那么复杂吗。设置中断于dll加载。下断readfile。三次中断一次写文件即可搞定以上加密壳。 |
|
|
|
[原创]VFP分析工具
网上所有加壳的vf都是非标准的vfp文件 |
|
[原创]VFP分析工具
不错,不过只能分析标准的文件。 |
|
使用od的一点小问题和难点
谢谢老大提示 |
|
求破解 燎星医学通-药典 思路[求助]
这个软件重要的地方不是怎么写的,而是它的数据库。 drug.lx改名为drug.mdb.密码为lxsoftyxtdrug%$0105 自已写一个查询就行了。不过数据好像不太全。 找个完整版本 看一就行了。 |
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值