电脑爱好者48 电脑爱好者48
关注数: 1 粉丝数: 3 发帖数: 43 关注贴吧数: 5
99%的人不知道Pascal原生支持ASM（汇编语言）编程！（效率最高） 定义：http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fbaike.baidu.com%2Fitem%2F&urlrefer=016104073a9dbec29d0231bef7d54488汇编语言 必读：http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fwenku.baidu.com%2Fview%2F45bda35b804d2b160b4ec09c.html&urlrefer=1b597fd830133d11929ca841435df24e 提示：①调试时请用Ollydbg跟踪EAX区； ②Pascal的检查功能很弱，通过后也容易发生216错误（内存溢出）； ③效率极高！（前几贴提到的MD5、SHA1、CRC32均使用ASM编程，2秒内均可计算超过100万条数据。超越VB近50倍！） 源代码： procedure asmtest assembler; {$asmmode intel} //var //若有变量声明需要，可以加var asm //此处写汇编代码 mov ax,1H mov bx,2H add ax,bx end; begin asmtest; end.
99%的人不知道Pascal原生支持CRC32校验！ program crctest; {$mode objfpc} {$h+} uses sysutils, crc; var crc2:longword; s:string; begin readln(s); crc2:= crc32(crc2,@s[1],length(s)); writeln(crc2);//输出为十进制的CRC32校验值。十进制、十进制、十进制，重要的事情说三遍！！！ //（转为16进制后就为如图） end.
99%的人不知道Pascal原生支持SHA1校验！ {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} SysUtils,Classes,sha1,dateutils; var StartTime: TDateTime; EndTime: TDateTime; s,ss: string; begin readln(s);//输入要计算的文本 StartTime:=now; ss := LowerCase(SHA1Print(SHA1string(s))); EndTime:=now; writeln(ss);//输出SHA1值 writeln('Time:'); writeln(TimeToStr(EndTime-StartTime)); end.
99%的人不知道Pascal原生支持MD5校验！ {$mode objfpc}{$H+} uses {$IFDEF UNIX}{$IFDEF UseCThreads} cthreads, {$ENDIF}{$ENDIF} SysUtils,Classes,md5,dateutils; var StartTime: TDateTime; EndTime: TDateTime s,ss: string; begin readln(s); //输入要计算的文本 StartTime:=now; ss := LowerCase(MDPrint(MDString(s, MD_VERSION_5))); writeln(ss);//输出MD5值 EndTime:=now; writeln('Time:'); writeln(TimeToStr(EndTime-StartTime)); end.
[2017/08/04]crystal disk info 7.1.1更新 Kurei Kei Edition 与 Shizuku Edition [Ultimate] 7.1.1更新 7.1.x7.1.1 [2017/08/04] Fixed sound problem 7.1.0 [2017/08/04] Added Kurei Kei Edition Fixed Memory Leak Updated language files (Slovak) Built with Visual C++ 2017 Update 1 7.0.x7.0.5 [2017/01/01] Fixed NVMe S.M.A.R.T. issues Updated ACS-3, 4 minor version report Updated link for kirino kasumu official web site 7.0.4 [2016/10/10] Fixed memory leak Updated language files (Almost all) 7.0.3 [2016/08/30] Fixed tray icon issues 7.0.2 [2016/08/12] Improved NVMe supports Updated language files (Finnish) 7.0.1 [2016/08/12] Improved NVMe supports Built with Visual C++ 2015 Update3 7.0.0 [2016/06/20] Official support for NVMe drives Added Logitec LHR-2BDPU3 support 网盘： http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fp&urlrefer=336a56de667d80856318554db2702361防吞an.bai防吞du.c防吞om/s/1bpJ防吞DdvT 密防吞码: 1w5d
1 下一页