下面是一个加密函数,里面包含有四层加密函数,哪位朋友帮我写一个相应的解密函数?

Question

function creatnum(no:integer;num:integer):integer;
var
   str1,str2,str3,str : string;
   i,j,titnum : integer;
//..........................................................................
   function encrypt3(num:string):string;
       var
         res:string;
         bita:string;
         abit:integer;
         i:integer;
       begin
         bita:=num;
         res:='';
         for i:=1 to 16 do
            begin
            abit:=strtoint(bita[i]);
            case abit of
              0: res:=res+'2';
              1: res:=res+'7';
              2: res:=res+'9';
              3: res:=res+'4';
              4: res:=res+'1';
              5: res:=res+'6';
              6: res:=res+'3';
              7: res:=res+'8';
              8: res:=res+'0';
              9: res:=res+'5';
            end;
            end;
         encrypt3:=res;
     end;
     function encrypt2(num:string):string;
       var
          res1,res2:string;
          asint,bsint:array[1..16]of integer;
          i:integer;
       begin
         res1:='';
         res2:='';
         for i:=1 to 16 do asint[i]:=strtoint(num[i]);
         bsint[1]:=asint[1];
       res1:=res1+inttostr(bsint[1]);
       for i:=2 to 16 do
          begin
          if asint[i]>=bsint[i-1] then bsint[i]:=asint[i]-bsint[i-1]  else   bsint[i]:=10+asint[i]-bsint[i-1];
          res1:=res1+inttostr(bsint[i]);
          end;       for i:=1 to 16 do asint[i]:=strtoint(res1[17-i]);
        bsint[1]:=asint[1];
        res2:=res2+inttostr(bsint[1]);
       for i:=2 to 16 do
          begin
          if asint[i]>=bsint[i-1] then bsint[i]:=asint[i]-bsint[i-1]  else   bsint[i]:=10+asint[i]-bsint[i-1];
          res2:=inttostr(bsint[i])+res2;
          end;
       encrypt2:=res2;
     end;     function encrypt1(num:string):string;
       var
        res:string;
        bita:string;
        abit:integer;
        i:integer;
      begin
        bita:=num;
        res:='';
        for i:=1 to 16 do
          begin
          abit:=strtoint(bita[i]);
          case abit of
            0: res:=res+'7';
            1: res:=res+'4';
            2: res:=res+'8';
            3: res:=res+'1';
            4: res:=res+'6';
            5: res:=res+'0';
            6: res:=res+'3';
            7: res:=res+'9';
            8: res:=res+'2';
            9: res:=res+'5';
        end;
        end;
       encrypt1:=res;
     end;    function encrypt4(num:string):string;
      var
       i,j,sum,due:integer;
       aint,bint,cint:array[1..16]of integer;
      res:string;
     begin
      sum:=0;
      for i:=1 to 16 do
       begin
       sum:=sum+strtoint(num[i]);
       aint[i]:=strtoint(num[i]);
       end;
    for i:=1 to 16 do
       begin
       due:=sum mod(17-i);
       bint[i]:=due+1;
       cint[i]:=bint[i];
       sum:=sum-aint[i];
       end;
    for i:=2 to 16 do
       begin
       for j:=1 to i-1 do
          begin
          if cint[i]>=bint[i-j] then cint[i]:=cint[i]+1;
          end;
       end;
    for i:=1 to 16 do
       begin
       j:=cint[i];
       bint[j]:=aint[i];
       end;
     res:='';
    for i:=1 to 16 do res:=res+inttostr(bint[i]);
    encrypt4:=res;
    end;
begin
 try
   Rewrite(atextfile);
   str1:=inttostr(no);
   while length(str1)<4 do str1:='0'+str1;
   str2:='';
   str3:='1199';   titnum:=num;   for i:=1 to titnum do
      begin
      str2:=inttostr(i);
      while length(str2)<8 do str2:='0'+str2;
      str:=str1+str2+str3;
      str:=encrypt4(encrypt3(encrypt2(encrypt1(str))));
      if form1.ComboBox1.ItemIndex=0 then
      begin
      end
      else if form1.ComboBox1.ItemIndex=1 then
      begin
        str:=str+str[3];
      end
      else if form1.ComboBox1.ItemIndex=2 then
      begin
        str:=str+str[3]+ str[9];
      end
      else if form1.ComboBox1.ItemIndex=3 then
      begin
        str:=str+str[3]+ str[9]+ str[12];
      end
      else if form1.ComboBox1.ItemIndex=4 then
      begin
        str:=str+str[3]+ str[9]+ str[12]+ str[2];
      end
      else if form1.ComboBox1.ItemIndex=5 then
      begin
        str:=str+str[3]+ str[9]+ str[12]+ str[2]+ str[6];
      end
      else if form1.ComboBox1.ItemIndex=6 then
      begin
        str:=str+str[3]+ str[9]+ str[12]+ str[2]+ str[6]+ str[13];
      end
      else if form1.ComboBox1.ItemIndex=7 then
      begin
        str:=str+str[3]+ str[9]+ str[12]+ str[2]+ str[6]+ str[13]+ str[5];
      end
      else if form1.ComboBox1.ItemIndex=8 then
      begin
        str:=str+str[3]+ str[9]+ str[12]+ str[2]+ str[6]+ str[13]+ str[5]+ str[11];
      end
      else if form1.ComboBox1.ItemIndex=-1 then
      begin
       
      end;
      
      writeln(atextfile,str);
      end;
 finally
 CloseFile(ATextFile);
 end;end;