Delphi的源码能转成au3的吗？

jjf

//---------------------------------------------------------------------------
AnsiString __fastcall TForm1::EnCode(AnsiString string)
{
char cas_str[]="9012345678abcdeABCDEFGHIJKLMNfghijklmnUVWXYZxyzuvwopqrstOPQRST";
int cas_str_buffer[16];
int cas_esi = 37;
char src_str[128],dec_str[128]="";
int k=0;
int cas_eax,cas_edx;
div_t x;
unsigned int  i,j;
cas_str_buffer[15]=25;
cas_str_buffer[14]=35;
cas_str_buffer[13]=182;
cas_str_buffer[12]=236;
cas_str_buffer[11]=43;
cas_str_buffer[10]=41;
cas_str_buffer[9]=53;
cas_str_buffer[8]=18;
cas_str_buffer[7]=226;
cas_str_buffer[6]=215;
cas_str_buffer[5]=24;
cas_str_buffer[4]=117;
cas_str_buffer[3]=35;
cas_str_buffer[2]=201;
cas_str_buffer[1]=52;
cas_str_buffer[0]=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[i]==cas_str[j]){
             if(i<16)
             cas_eax=cas_str_buffer[i];
             else {
             x=div(i,16);
              cas_eax=cas_str_buffer[x.rem] ;
                  }
             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[i]=cas_str[x.rem];
             cas_edx=x.rem ;
             cas_esi=cas_esi^(cas_edx+9433);
              break;
                            }
         }
      if( dec_str[i]==NULL)
          dec_str[i]=src_str[i];
    k=k+5;
}
  string=dec_str;
return string;
}

上面的源码是Delphi的，我看不懂，有么有可能转为AU3呢

lin0308

这是干什么用的呢

553670595

估计不行吧，等高手啊

jjf

回复 2# lin0308


    字符串转换的函数。感觉就像autoit的UDF那样。

xyold1

只要底层函数支持就能转
关键是要懂Delphi

jjf

回复 5# xyold1


    真不好意思，我才看到，原来这是C++源码。

xyold1

本人刚学C
才看第一章

G，man。

等高手吧。

xz00311

你要知道里面的是什么

3mile

回复 1# jjf
是密码字典吧。想做网通的密码破解？
请先说明用途