lihoglny 发表于 2010-4-24 00:07:02

Borland C++ 的一段语言加密算法的翻译。寻高人。

直接贴源码::loveliness:

   AnsiString __fastcall TForm1::EnCode(AnsiString string)
{
char cas_str[]="9012345678abcdeABCDEFGHIJKLMNfghijklmnUVWXYZxyzuvwopqrstOPQRST";
int cas_str_buffer;
int cas_esi = 37;
char src_str,dec_str="";
int k=0;
int cas_eax,cas_edx;
div_t x;
unsigned inti,j;
cas_str_buffer=25;
cas_str_buffer=35;
cas_str_buffer=182;
cas_str_buffer=236;
cas_str_buffer=43;
cas_str_buffer=41;
cas_str_buffer=53;
cas_str_buffer=18;
cas_str_buffer=226;
cas_str_buffer=215;
cas_str_buffer=24;
cas_str_buffer=117;
cas_str_buffer=35;
cas_str_buffer=201;
cas_str_buffer=52;
cas_str_buffer=17;
strcpy(src_str,string.c_str());
for ( i=0;i<strlen(src_str);i++)
{
   for(j=0;j<strlen(cas_str);j++)
       {
         if (src_str==cas_str){
             if(i<16)
             cas_eax=cas_str_buffer;
             else {
             x=div(i,16);
            cas_eax=cas_str_buffer ;
                  }
             cas_edx=cas_esi+cas_esi*2 ;
             cas_eax=cas_eax^cas_edx;
             cas_eax=cas_eax^k;
             cas_eax=cas_eax+j;
             x = div(cas_eax,62);
             dec_str=cas_str;
             cas_edx=x.rem ;
             cas_esi=cas_esi^(cas_edx+9433);
            break;
                            }
         }
      if( dec_str==NULL)
          dec_str=src_str;
    k=k+5;
}
string=dec_str;
return string;
}


---------------------------------------//
里面div_t 和 x.rem是什么呢?

----------------//麻烦哪位高人翻译为VB或者delphi好不:handshake :handshake :kiss: :time:

lihoglny 于 2010-4-24 00:13 补充以下内容

:L
别沉了   自己顶下下等多功能的好人来。

lihoglny 于 2010-4-24 23:30 补充以下内容

就算有人说下下最后的小问题也好啊。555

lihoglny 于 2010-4-25 23:01 补充以下内容

:L :L :L 没人理我@@!!!!
页: [1]
查看完整版本: Borland C++ 的一段语言加密算法的翻译。寻高人。