Results 1 to 14 of 14

Thread: Convert Javascript to work in vb6.0

Threaded View

  1. #1

    Thread Starter
    Member
    Join Date
    Mar 2008
    Posts
    39

    Convert Javascript to work in vb6.0

    How can I use the microsoft script control to get the result of this java script to show in a text box?

    Code:
    <script>
    function hex_sha1(s)
    {
      return binb2hex(core_sha1(str2binb(s),s.length*8));
    }
    function core_sha1(x, len)
    {
      x[len>>5]|=0x80<<(24-len%32);
      x[((len+64>>9)<<4)+15]=len;
      var w=Array(80);
      var a=1732584193;
      var b= -271733879;
      var c= -1732584194;
      var d=271733878;
      var e= -1009589776;
      for(var i=0;i<x.length;i+=16)
      {
        var olda=a;
        var oldb=b;
        var oldc=c;
        var oldd=d;
        var olde=e;
        for(var j=0;j<80;j++)
        {
          if(j<16)
          {
            w[j]=x[i+j];
          }
          else
          {
            w[j]=((w[j-3]^w[j-8]^w[j-14]^w[j-16])<<1)|((w[j-3]^w[j-8]^w[j-14]^w[j-16])>>>(32-1));
          }
          var y2=(j<20)?1518500249:(j<40)?1859775393:(j<60)? -1894007588: -899497514;
          var t=safe_add(safe_add((a<<5)|(a>>>(32-5)),sha1_ft(j,b,c,d)),safe_add(safe_add(e,w[j]),y2));
          e=d;
          d=c;
          c=(b<<30)|(b>>>(32-30));
          b=a;
          a=t;
        }
        a=safe_add(a,olda);
        b=safe_add(b,oldb);
        c=safe_add(c,oldc);
        d=safe_add(d,oldd);
        e=safe_add(e,olde);
      }
      return Array(a,b,c,d,e);
    }
    ///////////////////////////////////////////////////
    ///////////////////////////////////////////////////
    function sha1_ft(t,b,c,d)
    {
      if(t<20)
      {
        return(b&c)|((~b)&d);
      }
      if(t<40)
      {
        return b^c^d;
      }
      if(t<60)
      {
        return(b&c)|(b&d)|(c&d);
      }
      return b^c^d;
    }
    ///////////////////////////////////////////////////
    ///////////////////////////////////////////////////
    function safe_add(x,y){return((x>>16)+(y>>16)+((x&0xFFFF)+(y&0xFFFF)>>16)<<16)|((x&0xFFFF)+(y&0xFFFF)&0xFFFF);}
    ///////////////////////////////////////////////////
    ///////////////////////////////////////////////////
    function str2binb(str)
    {
      var bin=Array();
      var mask=(1<<8)-1;
      for(var i=0; i<str.length*8; i+=8)
      {
        bin[i>>5]|=(str.charCodeAt(i/8)&mask)<<(32-8-i%32);
      }
      return bin;
    }
    ///////////////////////////////////////////////////
    ///////////////////////////////////////////////////
    function binb2hex(binarray)
    {
      var hex_tab=0?"0123456789ABCDEF":"0123456789abcdef";
      var str="";
      for(var i=0; i<binarray.length*4; i++)
      {
        str+=hex_tab.charAt((binarray[i>>2]>>((3-i%4)*8+4))&0xF)+hex_tab.charAt((binarray[i>>2]>>((3-i%4)*8))&0xF);
      }
      return str;
    }
    ///////////////////////////////////////////////////
    ///////////////////////////////////////////////////
    hc=0+parseInt(1234)%123431+parseInt(1234)%123431;
    ///////////////////////////////////////////////////
    ///////////////////////////////////////////////////
    document.write(hex_sha1(""+hc));
    </script>
    Last edited by VbCoder2008; Nov 11th, 2008 at 08:59 PM. Reason: Javascript not vb

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width