招聘版主！（由于题目过于简单，本题作废）

黑夜彩虹

秋风，真晕啊。。。

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

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

飘云

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


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

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

在代码前后加入

[CODE][/CODE]

黑夜彩虹

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

现在把答案公布下：

1. 
   
2. function Caster_Enc(const str:string):string;   //加密
   
3. var sBox1,sBox2:String;
   
4.     i:Integer;
   
5. begin
   
6.    sBox1 := 'abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789';
   
7.    sBox2 := 'defghijklmnopqrstuvwxyzabc DEFGHIJKLMNOPQRSTUVWXYZABC0987654321';
   
8.    Result  := '';
   
9.    For i := 1 to Length(str) do
   
10.    begin
    
11.     Result := Result  + sBox2[Pos(str[i],sBox1)];
    
12.    end;
    
13. end;
    
14. 
    
15. function Caster_Dec(const str:string):string;    //解密
    
16. var sBox1,sBox2:String;
    
17.     i:Integer;
    
18. begin
    
19.    sBox1 := 'defghijklmnopqrstuvwxyzabc DEFGHIJKLMNOPQRSTUVWXYZABC0123456789';
    
20.    sBox2 := 'abcdefghijklmnopqrstuvwxyz ABCDEFGHIJKLMNOPQRSTUVWXYZ0987654321';
    
21.    Result  := '';
    
22.    For i := 1 to Length(str) do
    
23.    begin
    
24.     Result := Result  + sBox2[Pos(str[i],sBox1)];
    
25.    end;
    
26. end;
    

复制代码

caterpilla

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

Nisy

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

Mysoft

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