- Fortran中文网 (http://fortran.cn/bbs/index.asp)
-- Fortran语言开发经验交流 (http://fortran.cn/bbs/list.asp?boardid=3)
---- [原创]生成包含原文件名的文本格式加密文件(端午版) (http://fortran.cn/bbs/dispbbs.asp?boardid=3&id=2752)
-- 发布时间：2012/7/24 15:51:39
-- [原创]生成包含原文件名的文本格式加密文件(端午版)
点击浏览该文件说明：
1、用于生成一个高强度加密的包含原文件名、文件内容和最后修改时间的文本格式副本，便于网络传递。文件名可以任意修改。
2、WinVista环境下，可在资源管理器中将需加密或解密的文件拖至本程序文件上，或复制、粘贴到本程序文件上；其它windows系统， 使用鼠标将文件名拖至程序输入提示符处；或者，直接从命令行带输入文件名启动。
3、生成的输出文件与输入文件在同一个目录中。加密文件名格式为mmddxxxx.txt； 2位月份+2位；日期+4位随机整数+txt后缀。加密文件大小限制为20M。
4、可以用来解决部分网络限制可执行文件附件或是部分论坛对每天上传文件数量的限制的问题。
5、在文件较小时，可以通过粘贴加密文本的方式安全传送任何格式的文件；接收者则可以复制所传内容存为文本文件，使用编辑软件删除其中空格和换行符等字符后，用本程序还原文件。
6、密码无法经由加密比对值通过逆运算获得；在已知算法条件下，也只能通过暴力破解。每4个字节转换为5个char(33)至char(126)的94个可见字符。
7、加密代码长=原代码长*1.25；加密文件长度=(文件名长度+原文件长度)*1.25+35。
8、密码加密比对值的变化个数=256^16=3.4e+38
9、加密解密码表直接破解方案=(255*8)^32768=9.1e+108449
10、密码强度=94^16=3.7+e31
11、由文件头错判加密状态的概率(包括所有类型文件，文件头标志为可见字符时)=1/94^4*(94/256)^(5*4)=2.5e-17
12、密码比对值冲撞的概率=1/256^16=2.9e-39
文件：
any2txt.exe 本程序
说明.txt 本说明文件
06230000.txt 本说明文件的加密副本（密码1234567890）
作者：shizhengwei@yahoo.com.cn
2012-06-23
-- 发布时间：2012/7/24 15:55:24
--
部分代码：
subroutine encode_decode(size,asc,code,key)
integer*4 size,step,step4,k,n,i,n4
parameter (step=32768,step4=step/4)
integer*1 key
integer*1 kk(step),mm(step)
integer*1 j(step)
character*(step) h
character*4 asc(*)
character*16 code
integer*2 k1(16)
real*4 x
equivalence (h,j)
do i=1,16
k1(i)=mod(ichar(code(i:i)),16)+1
end do
do i=1,step
n=mod(i,16)+1
do k=1,k1(n)
call randx(x)
end do
k=x*32768
kk(i)=mod(k,8)*key
do k=1,k1(n)
call randx(x)
end do
k=x*32768
mm(i)=mod(k,255)+1
mm(i)=mm(i)*key
end do
do k=1,size,step4
n=step4
if(k+n.gt.size) n=mod(size,step4)
do i=1,n
h((i-1)*4+1:(i-1)*4+4)=asc(k-1+i)
end do
n4=n*4
if(key.eq.1) then
do i=1,n4
j(i)=j(i)+mm(i)
j(i)=ishc(j(i),kk(i))
end do
else
do i=1,n4
j(i)=ishc(j(i),kk(i))
j(i)=j(i)+mm(i)
end do
end if
do i=1,n
asc(k-1+i)=h((i-1)*4+1:(i-1)*4+4)
end do
end do
end
-- 发布时间：2013/4/7 11:31:54
-- [原创]any2txt 愚人节版 蓝色标注为更新内容
any2txt ver 2013.04.01 生成包含原文件名的文本格式加密文件(愚人节版)
说明：
1、用于生成一个高强度加密的包含原文件名、文件内容和最后修改时间的文本格式副本，便于网络传递。文件名可以任意修改。
2、WinVista环境下，可在资源管理器中将需加密或解密的文件拖至本程序文件上，或复制、粘贴到本程序文件上；其它windows系统， 使用鼠标将文件名拖至程序输入提示符处；或者，直接从命令行带输入文件名启动。
3、生成的输出文件与输入文件在同一个目录中。加密文件名格式为mmddxxxx.txt； 2位月份+2位日期+4位随机整数+TXT后缀。加密文件大小限制为20M。
4、可以用来解决部分网络限制可执行文件附件或是部分论坛对每天上传文件数量的限制的问题。
5、在文件较小时，可以通过粘贴加密文本的方式安全传送任何格式的文件；接收者则可以复制所传内容存为文本文件，使用编辑软件删除其中空格和换行符等字符后，用本程序还原文件。
6、密码无法经由加密比对值通过逆运算获得；密码比对值及加密内容依系统时间值随机变化。在已知算法条件下，也只能通过暴力破解。每4个字节转换为5个char(33)至char(126)的94个可见字符。
7、加密代码长=原代码长*1.25；加密文件长度=(文件名长度+原文件长度)*1.25+35。
8、密码加密比对值的变化个数=256^16=3.4e+38
9、加密解密码表直接破解方案=(255*8)^32768=9.1e+108449
10、密码强度=94^16=3.7+e31
11、由文件头错判加密状态的概率(包括所有类型文件，文件头标志为可见字符时)=1/94^4*(94/256)^(5*4)=2.5e-17
12、密码比对值冲撞的概率1/256^16*512=1.5e-36
下载地址：
http://u.beiju.com/file-2103.html
http://www.xdowns.com/soft/8/64/2012/Soft_94238.html