【管他正版盗版的】Woo咚加密算法程序 Pascal版

最美我中文

My Cat Has Gone.

最美我中文训练师头像 VIP

管理员

Level 3 Level 3 Level 3 Level 2 Level 2 Level 1

目前的守墓人

帖子: 10686
精华: 19
积分: 7816
PT币: 149434 枚
热度: 899 °C
贡献值: 34 点

发送到消息盒子

其实我是狼 Lv.91

[查看其他宠物]

发短消息

楼主大中小发表于 2010-4-7 23:01 显示全部帖子

胡扯。加密Woodu上来就来个+8+6
你看看应该是+7+5还是+8+6。
上色&完整完美染色版请访问这个传送门：
http://poketb.com/woodu/2010/04/04/789-published-the-answer/
我表示这才是正版。


program project1;
var
     isss,xsk,tmpnum,i,x,tmpint,errorcoden,tmpnum22:integer;
     tmpstr2,tmpstr:char;
     inputtext:array of char;
     mystr,outputstring,linshistr,tmpstring,mytempstr1,mytempstr2,mytmpstr33,inputmystring:string;
begin
     mystr:='';
     xsk:=0;
     tmpstr:=chr(0);
     tmpnum:=0;
     i:=0;
     x:=0;
     isss:=1;
     readln(inputmystring);
     setlength(inputtext,length(inputmystring));
     for i:=1 to length(inputmystring) do inputtext[i]:=inputmystring[i];
     i:=0;
     outputstring:='';
     for i:=1 to High(inputtext)+1 do begin
          tmpstr:=inputtext[i];
          tmpnum:=ord(tmpstr);
          str(tmpnum,mytempstr1);
          for x:=1 to LENGTH(mytempstr1) do
          begin
               xsk:=random(3) + 1;
               mystr:=chr(64+xsk);
               str(tmpnum,tmpstring);
               tmpstr2:=tmpstring[x];
               if (ord(tmpstr2)>=48) and (ord(tmpstr2)<=57) then
               begin                  //tmpint  VAL（字符串，数字，错误代码）
               val(tmpstr2,tmpint,errorcoden);
               tmpnum22:=tmpint-isss;
               str(tmpnum22,mytmpstr33);
                    if tmpint>isss
                       then
                       outputstring:=outputstring + mystr + '+' + mytmpstr33
                    else
                        if tmpint<isss
                        then
                        outputstring:=outputstring+mystr+mytmpstr33
                        else
                        if tmpint=isss
                        then
                        outputstring:=outputstring+mystr;
               end;
          isss:=isss+1;
          if isss>=11 then isss:=1;
          end;
     if i<> LENGTH(inputtext) then outputstring:=outputstring+',';
     end;
     writeln(outputstring);
     readln;
end.

此程序在Lazarus for noi 0.9.28.2 beta @ Windows7下调试通过。 [ 本帖最后由最美我中文于 2010-4-7 23:23 编辑 ]