主题：[活动]有没有ms-fortran4.0 ?
fortranboy
[专家分：0] 发布于 2012-04-08 17:19:00
ms-fortran4.0或4.1中有一个例子源代码，是关于random函数算法的。
几年前写的一个程序，现在移植到其他平台中编译，因为编译器算法
不同，故求ms-fortran4.x的random算法。
哪位手里有，请发到我的邮箱。谢谢！
shizhengwei@yahoo.com.cn
回复列表 （共10个回复）
沙发
fortranboy [专家分：0] 发布于 2012-04-08 17:21:00
看来大家都在用vf，已经很少有人保存着dos版的编译器了。
板凳
asymptotic [专家分：16630] 发布于 2012-04-08 23:44:00
向 “考古” 专家问好。
3 楼
yeg001 [专家分：14390] 发布于 2012-04-10 09:58:00
太古董了, 几年前写代码的时候就不应该用4.0. 4.0是十多年前的事.
4 楼
fortranboy [专家分：0] 发布于 2012-04-10 11:43:00
当时是写一个自解压的加密解密程序，因考虑用于网络传输，选择DOS版程序体积小，只有16K。
因为直接使用了random内部子程序，所以移植到现有编译平台后，有了算法不一致的问题。
5 楼
fortranboy [专家分：0] 发布于 2012-04-10 11:50:00
或许大学的实验室、档案室还有这样的软盘。我的一些老程序都是通过网友找到的。感谢大家的帮助！
6 楼
lijiaoyand [专家分：50] 发布于 2012-04-10 14:12:00
好帖子,我顶个，来学习的。
SIGNATURE:-------------------------------------------
Nothing is difficult for one who sets his mind to it.
[url=http://www.freerunbox.com/nike-free-run-3-men-c-75.html]nike free run 3[/url] , [url=http://www.freerunbox.com/nike-air-max-2012-men-c-41.html]air max 2012[/url] , [url=http://www.freerunbox.com/nike-lunar-eclipse-2-men-c-76.html]nike lunar eclipse 2[/url]
7 楼
yeg001 [专家分：14390] 发布于 2012-04-10 19:57:00
其他版本的fortran也有随机数程序啊. 既然是利用随机数的程序,那只有在更好的随机算法下得到更好的结果吧?
8 楼
fortranboy [专家分：0] 发布于 2012-04-11 13:42:00
7楼没明白我的意思。我之前直接用了编译器自带random子程序，用来加密文件。现在改进了我的程序，但由于新编译器自带random子程序具体算法与原先那个不同，无法解密过去用老程序加密的文件。所以，想得到原先的random具体算法（ms-fortran4.x中有一个例子程序的），这样就能让新编的程序能兼容解密过去加密的文件了。
9 楼
yeg001 [专家分：14390] 发布于 2012-04-11 16:31:00
我确实不懂做加密那块,那如果依赖随机数生成算法(无论是自带的随机数程序还是外部随机数程序),那我就不明白这个程序如何体现随机了.
好比做蒙特卡洛,总不能换一个随机数发生器就重写一遍代码吧?
10 楼
fortranboy [专家分：0] 发布于 2012-04-12 12:00:00
回复9楼。
加密：用自编的加密函数Y=F（X，R）对要加密文件按字节依次处理，根据加密密码调用seed函数初始化random，然后每处理一个字节，都调用random获得随机数P，将X转换为Y。
解密：用相反过程函数X=F'（Y，P）进行各字节的还原，使用输入的解密密码调用seed确定与加密时一样的随机数序列。
因为random子程序不是自编的，是编译器内部的，所以换了编译器后，随机数序列变了，老程序加密的文件就无法用新程序来解密了。
也正是因为这个原因，我新写的程序中采用了自己编制的random子程序，这样以后再移植、升级都不会有问题了。
新程序下载地址如下：
http://www.xdowns.com/soft/8/64/2009/Soft_53451.html
欢迎提出意见。也希望大家能帮我找到fortran的老版本。谢谢！
我来回复
您所在位置：