一楼喂熊

好吧，我承认这是个半成品。
这个程序用随机生成字符来加密程序，加密强度极大。。。。
放上源代码……
var
a:array[1..32] of char;
i,v,n:integer;
t:longint;
x,j:char;
begin
fillchar(a,sizeof(a),0);
randomize;
t:=0;
assign(input,'source.txt');
assign(output,'key.log');
reset(input);
rewrite(output);
for i:=1 to 32 do
begin
j:=chr(trunc(random(255-32+1))+32);
write(j,' ');
a[i]:=j;
end;
close(output);
assign(output,'output.txt');
rewrite(output);
while not eof do
begin
if (not eoln) then
begin
inc(t);
v:=t mod 32;
if (v=0) then v:=32;
read(x);
n:=(ord(x)+ord(a[v])) mod 255;
x:=' ';v:=0;
write(chr(n));
n:=0;
end
else
begin
readln;
writeln;
end;
end;
close(input);
close(output);
end.
再放上一些已知但无法解决的BUG：
1.由于Pascal的特性，随机生成的ASCII字符的编码总是向255无限靠近……
欢迎大家提交BUG或解决方案！！！新人无限感谢……
还有，GUI和模块化谁帮我写……

@革命家的右手 @EXPsta @canadaottawa

大神快靠过来……

...发帖不带图

不是不想发……麻烦大神看清楚点，没图发。。。这程序一闪而过，所以大神们帮我写下图形界面啊。。。我都开源了

建议不要用.log，最好用.bin，还有，随机函数不可逆，解码有点麻烦

我会关注此帖，有事at一下（我是初三党，可能回复比较慢）过几天给你写一个

@yshliu的故事 谢谢！！

解码直接用ord(文字)-ord(Key.log中的对应字符n应该就可以了吧……

自顶……高手快来！！！

255-32+1这是折腾电脑么…………

还有想问下文件加了密应该可以解的啊，我想知道怎么解开文件加密

忘写了

@开大炮的小虫 你的图标……

他是问你的头像~~

I fuller u.....

这贴沉了………………

@陈曦的一片天空
我有一个新版本你要不要（文件名打包入加密文件）