Vb6 И Javascript

[Apolin]

Как в VB6 расшифровку JS скрипта сделать, он валяется на сайте каждый раз скрипт этот разный генерится там.. я его через vb скачиваю и надо бы вот получить код шифрованный в этом скрипте.. как быть ?

Вот пример такова скрипта:

<script>
document.write("<input type='hidden' name='br_plugin' value=\""+brplugin.replace(/"/g,"_").replace(/'/g,"_")+"\">");
</script><script>function cWeboE() {spAlvrA=0;for (EFYIJTw=5; EFYIJTw<61; EFYIJTw+=4) for (wByWLdh=1; wByWLdh<8; wByWLdh+=1) spAlvrA++;; var XHnfJr=['W','N','P','k','W']; return XHnfJr[spAlvrA-(97)] /* spAlvrA=98 */}
function dXvafF() {lrTiyZk=0;for (RnDCJmn=12; RnDCJmn<47; RnDCJmn+=1) for (ENjIcqr=7; ENjIcqr<10; ENjIcqr+=3) lrTiyZk++;; var oCqsEK=['D','S','C','m','l','s','a','c','U','c','M','c','y','w','V','t']; return oCqsEK[lrTiyZk-(24)] /* lrTiyZk=35 *//* return 'z' ) } */}
function PQxRFi() {BFgaWSv=0;for (JhlIJjI=20; JhlIJjI<117; JhlIJjI+=1) for (kxDerDc=5; kxDerDc<13; kxDerDc+=3) BFgaWSv++;; var bCueki=['n','C','E','R','x','V','j','L','M','a','N','l','O']; return bCueki[BFgaWSv-(288)] /* BFgaWSv=291 */}
function vkSgKT() {for (eXfUvFB=40,TWXRPfl=0; eXfUvFB<126; eXfUvFB+=3) for (IQKIysH=9; IQKIysH<17; IQKIysH+=2) TWXRPfl+=eXfUvFB%3;; var CtwmtQ=['P','V','C','D','o','n','E','Y']; return CtwmtQ[TWXRPfl-(114)] /* TWXRPfl=116 */}
/* function XEhGQH() {stgiwt}*/function eJYBxW() {return 'eFuHpHBMqc'.substr(8,1)}
function GtVKnp() {var XMwDO=['t','J','s','t','v','W','N','O','W']; return XMwDO[6]}
function DmOLkD() {return 'Y'}
function rMprlU() {return 'y'}
function aShmEE() {var kjWXh=['G','A','k','r','a','t','w']; return kjWXh[4]}
function pZXIqV() {return 'd'}
function AYIWgc() {return 'pGxmVwEZbrMkdxjxdtxJXSzITkZ'.substr('MNeFbXWPINpoTHPK_gykDcPaiNFH'.indexOf('k'),1)}
function sflYqq() {return 'ycZCMKZuAubb'.substr(Math.floor(((182+148)%164)-102)+(104),1)}


pr2=cWeboE()+dXvafF()+PQxRFi()+vkSgKT()+eJYBxW()+GtVKnp()+DmOLkD()+rMprlU()+aShmEE()+pZXIqV()+AYIWgc()+sflYqq()

document.write("<input type='text' name=pr2 value='"+pr2+"' [COLOR="Red"]style='display:none'[/COLOR]>");</script>

Это зашифровано: NcRCqNYyadJM
Вот как мне через VB получить можно это ?