胡扯。加密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 编辑 ]