Convert Javascript to VBscript

54 New Member

Hi,

i have a javascript code. I want to convert into VBscript.

pls
help me

Javascript Code:

Expand|Select|Wrap|Line Numbers

 
<!-- TWO STEPS TO INSTALL VIRGENERE ENCRYPTION:
 
  1.  Copy the coding into the HEAD of your HTML document

  2.  Add the last code into the BODY of your HTML document  -->
 
<!-- STEP ONE: Paste this code into the HEAD of your HTML document  -->
 
<HEAD>
 
<SCRIPT LANGUAGE="JavaScript">

<!-- Original:  Francisco Ryan Tolmasky (iopossum@mailcity.com) -->

<!-- Web Site:  http://iopossum.tripod.com -->
 
<!-- This script and many more are available free online at -->

<!-- The JavaScript Source!! JavaScript Source: Free JavaScripts, Tutorials, Example Code, Reference, Resources, and Help -->
 
<!-- Begin

var TID = 0;

var longer = 0;

var thirdwrite = "";

var alphabet = new Array("0@","1#","2$","3%","4^","5&","6*","7 = ","8-","9+","Aa","Bb","Cc","Dd","Ee","Ff","Gg","Hh","Ii","Jj","Kk","Ll","Mm","Nn","Oo","Pp","Qq","Rr","Ss","Tt","Uu","Vv","Ww","Xx","Yy","Zz");

function preTime(coco, uinput, question) {

longer = coco.length - 1;

placement = 0;

ref = 0 ;

secondWrite = "";

firstWrite = "";

thirdWrite = "";

code1(coco, uinput, longer, question);

}

function findshift(letter) {

for (i = 0; i < 36; i++) {

if ((alphabet[i].substring(0,1) == letter) || (alphabet[i].substring(1,2) == letter)) {

if (alphabet[i].substring(0,1) == letter) {

x = 0;

}

if (alphabet[i].substring(1,2) == letter) {

x = 1;

}

return i;

      }

   }

}

function check(letter) {

bill = "no";

for (i = 0; i < 36; i++) {

if ((alphabet[i].substring(0,1) == letter) || (alphabet[i].substring(1,2) == letter)) {

bill = "yes";

   }

}

if (bill == "yes") {

return true;

}

else {

return false;

   }

}

function fixoffset(takin) {

if (takin > 35) {

return (takin - 36);

}

else {

return takin;

   }

}

function code1(inval1,inval2,inval3,sage) {

if (check(inval2.charAt(placement))) {

if (check(inval1.charAt(ref))) {

if (sage == 0) { 

shift = findshift(inval1.charAt(ref));

}

if (sage == 1) { 

shift = 36 - findshift(inval1.charAt(ref));

   }

}

else {

shift = 0;

}

orig = findshift(inval2.charAt(placement));

firstWrite = firstWrite+alphabet[fixoffset(orig+shift)].charAt(x);

}

else {

firstWrite = firstWrite+inval2.charAt(placement);

}

secondWrite = inval2.substring(placement+1,inval2.length+1);

thirdWrite = firstWrite+secondWrite;

document.inputo.written.value = thirdWrite;

placement++;

if (ref == inval3) {

ref = 0

}

else {

ref++;

}

if (placement == (inval2.length)) {

window.clearTimeout(TID);

return false;

}

one = inval1;

two = inval2;

three = inval3;

goer = sage;

TID = window.setTimeout("code1(one, two, three, goer)", 0);

}

//  End -->

</script>

</HEAD>
 
<!-- STEP TWO: Copy this code into the BODY of your HTML document  -->
 
<BODY>
 
<center>

<form name="inputo">

<textarea name=written rows=12 cols=40>Type message to encode here</textarea>

<br>

Code Phrase:<input type=text name=codeWord value="code phrase here">

<input type=button value="Encode" onClick="preTime(codeWord.value,written.value, 0);">

<input type=button value="Decode" onClick="preTime(codeWord.value,written.value, 1);">

</form>

</center>
 
<p><center>

<font face="arial, helvetica" size="-2">Free JavaScripts provided<br>

by <a href="http://javascriptsource.com">The JavaScript Source</a></font>

</center><p>

Thanks,
Murugavel

Jan 17 '09 #1

Subscribe Reply

7714

gits

5,390

Recognized Expert Moderator Expert

what help do you need exactly? just have a look at the code you posted and rewrite it in vb. in case you have specific problems with the JavaScpript code, then post back here so that we could explain the JavaScript-statements that you want to have explained ... but certainly noone will just rewrite that script for you.

kind regards

Jan 17 '09 #2

acoder

16,027

Recognized Expert Moderator MVP

Hmm... why would you even want to convert from JavaScript to VBScript? JavaScript works in more or less all browsers while VBscript is limited to a single browser. Now I could understand if the request was the other way round, i.e. from VBScript to JavaScript.

Jan 18 '09 #3

Similar topics

ASP JavaScript versus ASP VBScript

by: John Davis | last post by:

When I create new documents in Dreamweaver, there are several choices for ASP creation: ASP JavaScript: run at client side?? ASP VBScript: run at server side?? ASP.NET C# ASP.NET VB I don't...