dvbbs
收藏本页
联系我们
论坛帮助
dvbbs

>> Fortran语言开发经验交流
搜一搜更多此类问题 
Fortran中文网Fortran中文网—Fortran语言经验交流Fortran语言开发经验交流 → [原创]生成包含原文件名的文本格式加密文件(端午版)

您是本帖的第 2967 个阅读者
树形 打印
标题:
[原创]生成包含原文件名的文本格式加密文件(端午版)
fortranboy
帅哥哟,离线,有人找我吗?
等级:论坛游民
文章:18
积分:682
门派:无门无派
注册:2006年10月3日
楼主
 用支付宝给fortranboy付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给fortranboy

发贴心情
[原创]生成包含原文件名的文本格式加密文件(端午版)
点击浏览该文件
说明:
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
ip地址已设置保密
2012-7-24 15:51:39
fortranboy
帅哥哟,离线,有人找我吗?
等级:论坛游民
文章:18
积分:682
门派:无门无派
注册:2006年10月3日
2
 用支付宝给fortranboy付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给fortranboy

发贴心情

部分代码:

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

ip地址已设置保密
2012-7-24 15:55:24
fortranboy
帅哥哟,离线,有人找我吗?
等级:论坛游民
文章:18
积分:682
门派:无门无派
注册:2006年10月3日
3
 用支付宝给fortranboy付款或购买其商品,支付宝交易免手续费、安全、快捷! 点击这里发送电子邮件给fortranboy

发贴心情
[原创]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
点击浏览该文件
ip地址已设置保密
2013-4-7 11:31:54

 3   3   1/1页      1    
网上贸易 创造奇迹! 阿里巴巴 Alibaba
Powered By Dvbbs Version 7.1.0 Sp1
Copyright ©2005 - 2008 www.fortran.cn
页面执行时间 02.30469 秒, 5 次数据查询
京ICP备05056801号