Asp代码变形器

asp代码变形器,可以对简单的关键字符串进行变形。

例如：'CDKEY可以作为验证asp系统是否合法的参数CDKEY="WWW.cr173.COM"<%Str="DQonQ0RLRVnv5Vw6jMFhc3D73y8mCNWEwnANCkNES0VZPSJXV1cuY3IxNzMuQ09NIg0KDQo="%<%constBASE_SN_MAP_INIT="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"dimnewlinedimBaseAspEncMap(63)dimBaseAspDecMap(127)'初始化函数PUBLICSUBinitCodecs()'初始化变量newline="<P"&chr(13)&chr(10)dimmax,idxmax=len(BASE_SN_MAP_INIT)foridx=0tomax-1BaseAspEncMap(idx)=mid(BASE_SN_MAP_INIT,idx+1,1)nextforidx=0tomax-1BaseAspDecMap(ASC(BaseAspEncMap(idx)))=idxnextENDSUBPUBLICFUNCTIONBaseAspDecode(scrambled)iflen(scrambled)=0thenBaseAspDecode=""exitfunctionendifdimrealLenrealLen=len(scrambled)dowhilemid(scrambled,realLen,1)="="realLen=realLen-1loopdimret,ndx,by4,first,second,third,fourthret=""by4=(realLen\4)*4ndx=1dowhilendx<=by4first=BaseAspDecMap(asc(mid(scrambled,ndx+0,1)))second=BaseAspDecMap(asc(mid(scrambled,ndx+1,1)))third=BaseAspDecMap(asc(mid(scrambled,ndx+2,1)))fourth=BaseAspDecMap(asc(mid(scrambled,ndx+3,1)))ret=ret&chr(((first*4)AND255)+((second\16)AND3))ret=ret&chr(((second*16)AND255)+((third\4)AND15))ret=ret&chr(((third*64)AND255)+(fourthAND63))ndx=ndx+4loopifndx<realLenthenfirst=BaseAspDecMap(asc(mid(scrambled,ndx+0,1)))second=BaseAspDecMap(asc(mid(scrambled,ndx+1,1)))ret=ret&chr(((first*4)AND255)+((second\16)AND3))ifrealLenMOD4=3thenthird=BaseAspDecMap(asc(mid(scrambled,ndx+2,1)))ret=ret&chr(((second*16)AND255)+((third\4)AND15))endifendifBaseAspDecode=retENDFUNCTIONcallinitCodecs%<%Execute(BaseAspDecode(Str))%

Tags:代码.