工资发放、分栏排版、固定资产折旧(公开部分源码)

!!!橄榄树

分栏排版、工资条、固定资产折旧(公开部分源码)

tanhong

楼主你还是公开源码吧!说实在的破这个我半分钟都不要.如果大家想要找我吧.

xialin已经破解了,我破解的和他一样,大家快看吧!在43楼

[此贴子已经被作者于2005-3-13 18:09:19编辑过]

!!!橄榄树

楼上的，我愿意奉献的，才能解密，我编译的你解密看，既然你们公开盗版，哪我以后就加强加密。下面是汇编语言源程序,给你能看懂不?

1 ;04.2.7-TOOS.ASM 21 IK DW 0,0,0,0 2 CODE SEGMENT PARA PUBLIC 'CODE' 22 E DW 0,0 3 ORG 100H 23 J DB 0,0,0,0,1 4 ASSUME cs:CODE,ds:CODE,es:CODE 24 P$ DB' 输出设备-PR{显示/打印/文本 5 BNG:JMP STAT 25 文件(回车/4/5)}:$' 6 BUF EQU 10B0H 26 KO DB' 长行改短后行前扦空数-KO[0]: 7 FAME=BUF+48 27 $' 8 BZ =8000H 28 L DB' 每页印出栏数--L(1-20),[ 2]: 9 DTA =FAME+32 29 $' 10 DB3 DB '.DBF' 30 YK DB' 打印纸页宽-YK(30-500),[80]: 11 INP DB 4,0,0,0,0,0 31 $' 12 SP4 DB ' ' 32 YC DB' 打印行/页--YC(1--200),[20]: 13 FFF DB 12 33 $' 14 DA2 DB 13,10,36 34 X$ DB' 印行序号否?-XH[N]:$' 15 WID DB 0,0,0,0 35 P2 DB' 起始页号-P2[1]:$' 16 YCL DW 0,0 36 P DB' 打印页号-P [1]:$' 17 TEX DB 'TEXT.TXT',0 37 PRN DB'请打开打印机(OPER LPRT),[1. 18 FN DB 14 DUP(32) 38 LQ1600] 2.CR3240:$' 19 SF DB 32,31 DUP(0) 39 MAIN DB'小巧实用工具软件 设计:水 20 P5 DB 9 DUP(0) 40 利部长江委$' 1 41 QUTT DB'停止输出打[Q]键$' 61 DB'系统+隐形SH$' 42 MASS DB'左右光标键具有循环选择功能 62 DB'系+隐+读SHR$' 43 ，回车键确认。$' 63 MS22 DB'low-UPP$' 44 MAS2 DB 7,'FILE NOT OR INPUT ERR!$ 64 DB'UPP-low$' 45 ' 65 DB'low~UPP$' 46 MAS3 DB 7,'END OK!$' 66 DB'JiM-JeM$' 47 MAS4 DB'输入FILENAME.EXT:$' 67 DB'RENTREE$' 48 MAS5 DB'INPUT DIR NAME:$' 68 STAT:MOV SI,80H 49 MAS1 DB'置属性(Attrib)转 换(Zhuhu 69 LODSB 50 a)' 70 MOV BL,AL 51 DB'排 版(PaiBan)退 出(Quit) 71 CMP BL,1 52 $' 72 JA POO1 53 MS11 DB'置属性$转 换$排 版$退 73 LEA DX,MAS4 54 出$' 74 CALL DIS9 55 MS21 DB'可读 可写 A$' 75 LEA DX,SF 56 DB'只 读 R$' 76 MOV AH,10 57 DB'隐 形 H$' 77 INT 21H 58 DB'隐形+只读HR$' 78 MOV BL,SF+1 59 DB'系 统 S$' 79 LEA AX,SF+2 60 DB'系统+只读SR$' 80 MOV SI,AX 2 81 JMP POO2 101 JZ I1A ;径 82 POO1:INC SI 102 MOV CL,P5+2 ;字 83 DEC BL 103 SUB BL,CL ;符 84 POO2:CMP BYTE PTR[SI],32 104 INC BL ;数 85 JZ POO1 105 MOV P5+2,BL ; 86 MOV CX,BX ;传 106 I1A: MOV DX,BUF 87 MOV DI,FAME;文 107 MOV AH,1AH 88 REP MOVSB ;件 108 INT 21H 89 MOV CL,BL ;名 109 I4E: MOV AH,4EH 90 MOV BYTE PTR[DI],0 110 MOV DX,FAME 91 MOV SI,FAME 111 MOV CX,31;*** 92 PAT: LODSB ;找 112 INT 21H 93 CMP AL,58 ;路 113 JB NOTF 94 JNZ C92 ;径 114 NE12:CALL CLS 95 MOV P5+2,CL;名 115 CALL ZFI 96 C92: CMP AL,92 ; 116 LEA SI,MAIN 97 JNZ LP1 ; 117 MOV BL,3 98 MOV P5+2,CL; 118 MOV DX,16 99 LP1: LOOP PAT ; 119 CALL DISP 100 CMP P5+2,0 ;路 120 LEA SI,MAS5+10 3 121 MOV BL,5 141 CMP AH,80 122 MOV DX,137H 142 JE NE24 123 CALL DISP 143 JMP NE12 124 CALL ZCT 144 NE24:MOV DX,172DH 125 CMP AL,3;主 145 CALL SGB 126 JZ OK ;过 146 LEA DX,MAS3 127 CMP AL,2;程 147 CALL DIS9 128 JZ PABA;选 148 JMP I4C 129 CMP AL,1;择 149 NOTF:MOV DX,172DH 130 JZ LMZH 150 CALL SGB 131 ATTR:CALL ATT 151 LEA DX,MAS2 132 JMP NE12 152 CALL DIS9 133 LMZH:CALL LMZ 153 I4C: MOV AX,0 134 JMP NE12 154 INT 16H 135 PABA:CALL PAB 155 CALL CLS 136 JMP NE12 156 MOV AH,4CH;结 137 OK:CALL NE23 157 INT 21H ;束 138 MOV AX,K2 158 PAB PROC 139 CMP AL,13 159 MOV DX,21CH 140 JE NE24 160 LEA SI,P$ 4 161 CALL DIS 181 LEA SI,P2 162 CALL RKEY 182 CALL INBI 163 CMP AH,80 183 LEA SI,P 164 JE NE22 184 CALL INBI 165 CMP AL,13 185 CMP L,0 ;隐 166 JE NE22 186 JA YKC ;含 167 JMP NEX4 187 MOV L,2 ;参 168 NE22:MOV DX,11CH 188 YKC: CMP YK,29;数 169 LEA SI,P$ 189 JA YCC ;赋 170 CALL INBI 190 MOV YK,80;值 171 LEA SI,KO 191 YCC: CMP YC,0 ; 172 CALL INBI 192 JA PA ; 173 LEA SI,L 193 MOV YC,20; 174 CALL INBI 194 PA: CMP P2,0 175 LEA SI,YK 195 JA PC 176 CALL INBI 196 MOV P2,1 177 LEA SI,YC 197 PC: MOV AL,P2 178 CALL INBI 198 DEC AL 179 LEA SI,X$;序 199 XOR AH,AH 180 CALL INBI ;号 200 MUL L 5 201 MUL YC 221 MUL L ; / 202 MOV IK+4,AX 222 MOV YCL,AX;页 203 CMP P,0 223 MOV DI,0FB00H;清 204 JE WD 224 MOV CL,127 ;空 205 DEC P 225 MOV AL,32 ;格 206 WD: XOR AH,AH ;计 226 REP STOSB 207 MOV AL,YK ;栏 227 CMP P$,4 208 DIV L ;宽 228 JNZ XT 209 MOV WID,AL; 229 LEA SI,PRN 210 DEC AL ; 230 INC DH 211 DEC AL ; 231 CALL DISP 212 CMP X$,0;减 232 MOV AH,1 ;L 213 JZ WD1 ;序 233 INT 21H ;Q 214 SUB AL,4;号 234 XOR DX,DX;1 215 WD1: MOV WID+1,AL 235 MOV AX,27;6 216 CMP KO,0 236 INT 17H ;0 217 JNA WD2 237 MOV AX,50;0 218 SUB AL,KO;空格 238 INT 17H ;K 219 WD2: MOV WID+3,AL 239 CMP AL,50 220 MOV AL,YC ;行 240 JZ C324 6 241 MOV AX,28;打 261 JB ER1 242 INT 17H ;印 262 MOV P$,AL 243 MOV AX,83;机 263 I3D: MOV AX,3D00H;打 244 INT 17H ;设 264 MOV DX,DTA ;开 245 XOR AX,AX;置 265 INT 21H ;源 246 INT 17H ; 266 JB ER1 ;文 247 XOR AX,AX; 267 MOV P5+5,AL ;件 248 INT 17H ; 268 JMP LOA 249 JMP I3D 269 SPAW:MOV AX,DX ;最 250 C324:MOV AX,26 270 MOV DL,WID;末 251 INT 17H 271 XOR DH,DH ;一 252 MOV AX,81 272 MUL DX ;页 253 INT 17H 273 MOV CX,AX ;填 254 JMP I3D 274 MOV DX,1 ;空 255 XT: CMP P$,5 ;建 275 MOV J+1,1 ;格 256 MOV P$,1 ; T 276 JMP SPAC ; 257 JNZ I3D ; E 277 ER1: JMP NOTF 258 MOV AH,3CH; X 278 LOA:CALL LOAD 259 LEA DX,TEX; T 279 SDI: MOV DI,DTA+BZ 260 INT 21H 280 MOV DX,YCL 7 281 LINE:MOV AL,32 ;~~| 301 CMP AL,J+2; | 282 STOSB ; | 302 JE SPAC ; | 283 MOV CL,WID+1;| 303 INC SI;(0Ah) |页 284 CMP J+2,0 ; | 304 MOV AL,KO ; | 285 JZ BYT ; | 305 XOR AH,AH ; | 286 MOV CL,KO ; | 306 SUB DI,AX ; | 287 REP STOSB ; | 307 MOV CL,WID+1;| 288 MOV CL,WID+3;| 308 JMP BYT ; | 289 BYT:INC J+2 ; | 309 SPAC:MOV J+2,0 ; | 290 CMP SI,E+2; | 310 MOV AL,32 ;行| 291 JB BY1 ; | 311 INC SI ;尾| 292 CALL LOAD ; |传 312 REP STOSB ;填| 293 JZ SPAW ; | 313 JMP YPAGE ;空| 294 BY1:LODSB ;传| 314 CAC: CMP AL,161; | 295 CMP AL,13 ;送|送 315 JB SAVE ; | 296 JNZ CAC ;一| 316 CMP CL,1;传 | 297 CMP CL,WID+3;行| 317 JZ BHZ ;汉 | 298 JNZ SPAC ; |一 318 STOSB ;字 | 299 MOV AL,KO ; | 319 LODSB ; | 300 INC AL ; | 320 DEC CL ; | 8 321 SAVE:STOSB ; | 341 JB LP4 ; | 322 LOOP BYT ; | 342 INSE:INC CL ; | 323 YPAGE:DEC DX ; | 343 INSH:MOV AL,WID+3;| 324 JNZ LINE;____| 344 SUB AL,CL ; | 325 JMP CSH 345 MOV CL,AL ; | 326 ;空格填行尾半个汉字 346 ADD DI,CX ; | 327 BHZ: MOV CL,WID+3;| 347 CMP AH,32 ; | 328 LP3:MOV AH,[DI]; | 348 JNZ LP5 ; | 329 CMP AH,32 ; | 349 CMP CL,0 ; | 330 JZ INSE ; | 350 JA JDI ; | 331 DEC DI ; | 351 MOV CL,1 ; | 332 DEC CL ; | 352 INC AL ; | 333 JNZ LP3 ; | 353 JDI:INC DI ; | 334 JMP ZAS ; | 354 LP5:MOV AH,[DI-1];| 335 LP4:MOV AH,[DI]; | 355 MOV [DI],AH; | 336 CMP AH,128; | 356 DEC DI ; | 337 JB INSH ; | 357 LOOP LP5 ; | 338 ZAS:INC DI ; | 358 MOV AH,32 ; | 339 INC CL ; | 359 MOV [DI],AH; | 340 CMP CL,WID+3;| 360 INC AL ; |

[此贴子已经被作者于2005-3-13 19:20:26编辑过]

shuiyuan

!!!橄榄树 ：我同意您的说法，坚决反对破解，特别是公开破解文件

lgcmeli

不错的帖子.可是还是公开的好啊.

!!!橄榄树

5.EXCEL语言全自动分栏排版程序

[此贴子已经被作者于2005-4-7 5:46:16编辑过]

!!!橄榄树

再修改

[此贴子已经被作者于2005-4-3 16:11:55编辑过]

xxks

今天小弟才发现这个世外桃源，真是相见恨晚阿！谢谢各位大虾了！

cpali3023

在别人不允许的情况下公开别人的源码是不对，不公开有不公开的道理，你如果做出的比人家强，可以把自己的源码跟贴出来供大家研究，这是对人的尊重问题!

从学习的角度，我猜想版主的出发点是好的，EXCELHOME是一个卧虎藏龙的地方，从技术上讲，我相信没有最好，只有更好，相互的勉励才能我们进步的根本!

版主的实力还是蛮强的!

!!!橄榄树

谢谢楼上的评价!5.EXCEL语言全自动分栏排版程序 全编译版，欢迎测试、解密,多提意见，下载在一楼。

这程序好就好在全智能化,只要设置好纸张,表头行数,调整好页边距就行,解决了许多技术问题,目前我没有见过比这更好的,代码安全保密,不易更改,在适当的时候我会公开加密方法,欢迎对软件功能测试,我用了几年,测试环境为WIN98+EXCELXP,WINXP+EXCELXP,WINXP+EXCEL2000。

[此贴子已经被作者于2005-4-7 5:47:09编辑过]