----赖格英-----

记忆不好了,记录工作中的点点滴滴....

  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2018年9月11日

摘要: 此函数库提供了 Visual Fortran 上获取硬盘ID,CPU编号,windows安装时间及文件头部校验的四个函数。可用于简单的程序加密。(但切勿用于商业性很强的地方) 近期,不少朋友向笔者询问 Fortran 如何获得网卡地址,硬盘ID,CPU编号等。对此,笔者给出一个自己书写的简单的函数库 阅读全文
posted @ 2018-09-11 21:29 向北方 阅读(1562) 评论(0) 推荐(0) 编辑

摘要: Unit CPUid; Interface Type TCpuType = (cpu8086, cpu286, cpu386, cpu486, cpuPentium); Function CpuType : TCpuType; Function CpuTypeString : String; Implementation Uses SysUtils; ... 阅读全文
posted @ 2018-09-11 21:22 向北方 阅读(1491) 评论(0) 推荐(0) 编辑

摘要: 以前写了个获取硬盘序列号的fortran程序,但未经实证 program FortranDemo Use Kernel32 Implicit None Interface SUBROUTINE GetDiskSerialNumber1(drive, pout, ... 阅读全文
posted @ 2018-09-11 21:18 向北方 阅读(1063) 评论(0) 推荐(0) 编辑