天才們，進來！ - Ans.fyi 參考答案

天才們，進來！

2006-10-22 4:19 am

我想做一個加密程式，已有idea
首先看一看加密方法1
http://rapidshare.com/files/115476/__21152___23494_1.txt.html
而我的方法是想把文字變成ASCII碼
再把再把所有數字結合(65(A)、69(E)變成6569)
再把得到的數字當作加密方法1加密的後得到的數字解密(實際是深一層加密)

請把以上的方法用C或C++(最好)或Pascal寫出加密和解密的程式，最好加上防呆

有時間也請看看
http://rapidshare.com/files/118095/Encoder.exe.html
看看他是怎做的

回答 (1)

pf_kcmk_09112001

2006-10-26 8:33 am

✔ 最佳答案

ASCII 有三位數字架喎，你係唔係 eliminate 呢個 case 先？

readln(s);
ss := '';
for i := 1 to length(s) do
begin
str(ord(s[i]), f);
ss := ss + f;
end;
for i :-= 1 to length(ss) do
begin
if ss[i] > '7' then
begin
g := copy(ss, i, 2);
inc(i);
end
else g := copy(ss, i, 1);
case g of
'0' : write('A');
'1' : write('S');
.
.
.
.
.
.
end;
end;

憑空寫既 encryption ，無裝 pascal 試唔倒，不過，應該無咩 bug ……
唔明再問啦！

👍 0 👎 0