网站 › 『 编程之美 』 › 招聘版主！（由于题目过于简单，本题作废）

秋风下的落叶 发表于 2006-8-30 11:41:14

黑夜彩虹 发表于 2006-8-30 13:55:44

秋风，真晕啊。。。

谁让你作废啊，看来没办法合作了～～

本版以后就指望你了...

飘云 发表于 2006-8-30 17:27:53

原帖由 laomms 于 2006-8-30 08:16 发表


不是不成功,而是论坛发贴的时候把" "给抹掉了,而且把" " 后的字都变成了歪斜,不知道怎么回事.放上原码.
StrName 变成了StrName,后面的字符就变成了斜体.

顺便说一下,caterpilla 兄发 ...

在代码前后加入

黑夜彩虹 发表于 2006-8-30 18:01:00

秋风，真的不知说他啥好，竟然把我的考核题作废，:L

现在把答案公布下：


function Caster_Enc(const str:string):string;   //加密
var sBox1,sBox2:String;
    i:Integer;
begin
   sBox1 := 'abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
   sBox2 := 'defghijklmnopqrstuvwxyzabc DEFGHIJKLMNOPQRSTUVWXYZABC0987654321';
   Result:= '';
   For i := 1 to Length(str) do
   begin
    Result := Result+ sBox2,sBox1)];
   end;
end;

function Caster_Dec(const str:string):string;    //解密
var sBox1,sBox2:String;
    i:Integer;
begin
   sBox1 := 'defghijklmnopqrstuvwxyzabc DEFGHIJKLMNOPQRSTUVWXYZABC0123456789';
   sBox2 := 'abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ0987654321';
   Result:= '';
   For i := 1 to Length(str) do
   begin
    Result := Result+ sBox2,sBox1)];
   end;
end;

caterpilla 发表于 2006-8-30 19:54:33

呵呵，给兄弟多了一次锻炼的机会。。。。。

Nisy 发表于 2006-8-30 23:06:14

招聘前 最好和同版块的斑斑商量一下 这样就不至于发生争执

Mysoft 发表于 2006-8-31 08:13:17

:L:L
难道二位事前没有沟通吗？

查看完整版本: 招聘版主！（由于题目过于简单，本题作废）