본문 바로가기

Security_Study/웹자료

자바 스크립트 문자열과 vbs 스크립트 문자열 비교

728x90

Code Comparison

JavaScript

VBScript

// This is a comment.
/* Multi-line
   comment. */

‘This is a comment.
Rem So is this.  No multi-line comments. 
Variables, Constants, and Arrays
 
var x, y
var z = 10


No way to force variables to be declared


No constants


var Vector = new Array(10)
var Names = new Array()

var Matrix = new Array(4)
Matrix[0] = new Array(5)

Vector[9] = 1.5
Matrix[1][4] = 2

 
Dim x, y
Dim z  ‘ Can’t assign on same line
z = 10

‘Force all vars to be declared before being used.
Option Explicit 

Const PI = 3.14


Dim Vector(9)   ‘ 9 is last slot
‘ Can’t do this – arrays must have upper bound

Dim Matrix(3, 4) 


Vector(9) = 1.5
Matrix(1, 4) = 2
 
Output
str = " there!"
document.write("hello" + str)
document.writeln("good\nbye")

Response.Write(str)  ‘Server-side
<%= str %>           ‘Another way

alert("message")  // Client-side 
str = " there!"
document.write "hello" & str
document.writeln "good" & vbCr & "bye"

Response.Write str     ‘Server-side
<%= str %>             ‘Another way

MsgBox "message"  ‘Client-side 
Functions
 
function Add(a, b)
{
  return a + b
}


Variable are always passed by value.  
Only objects can be passed by reference.







sum = Add(1, 2)


Function Add(ByVal x, ByVal y) 
  Add = x + y
End Function 


Sub Add2(ByVal x, ByVal y, ByRef ans)
  ans = x + y
End Sub 






sum = Add(1, 2) 
Add2 1, 2, sum      ‘No () for Sub params
Call Add2(1, 2, sum)    ‘Alternate call 

Decisions
 
if (score == 100)
 alert("Great!")


if (a == 1 || a == 5)
{
  vector[a] = b
  c = 1
}
else if (a == 2)
  b--
else
  b *= 2


switch(x)
{
  case 1: str = str + "end"  
    break
  case 2:
  case 3: y = y * y * y
    break
  default: z = z / 2
}

If score = 100 Then _
  MsgBox "Great!"


If a = 1 Or a = 5 Then
  vector(a) = b
  c = 1
ElseIf a = 2 Then
  b = b - 1
Else
  b = b * 2
End If



Select Case x
  Case 1 
    str = str & "end"
  Case 2, 3
    y = y ^ 3
  Case 4 To 10
    ‘4 <= x <= 10
  Case Is >= 25
    ‘x >= 25
  Case Else   ‘Default
    z = z \ 2
End Select
 

Loops
 
for (i = 1; i <= 5; i++)
  document.writeln(i)



for (c = 2; c <= 10; c += 2)
  a += c



for (var index in myArray)
  document.write(myArray[index])




while (a < 10)
  a++



do
  a++;
while (a < 10)
For i = 1 To 5
  document.writeln i
Next 


For c = 2 To 10 Step 2
  a = a + c
Next 


Dim element
For Each element in myArray
  document.write element
Next


Do While a < 10       Do Until a = 10
  a = a + 1		a = a + 1
Loop		      Loop


Do		      Do
  a = a + 1		a = a + 1
Loop While a < 10     Loop Until a = 10 


Arithmetic Operators
 
+ - * /
% (mod)
 
+ - * /
\  (integer division)
Mod  
^  (raising to a power)
Relational Operators
 
<  <=  >  >=  ==  !=
<  <=  >  >=  =  <>
Logic Operators
 
&&  ||  !

And  Not  Or  Xor  
Eqv  (Equivalent)
Imp   
Bitwise Operators
 
&  ~  |  ^  <<  >>
And  Not  Or  Xor  (no shift left/right) 
Strings
 
var x
x = "HU"
x = x + " is great!" 
Dim x				
x = "HU"
x = x & " is great!"
VBScript String Functions
FunctionDescriptionExample
StrConvUsed primarily to change the case of letters in the string. Can also do UNICODE and other format changes.x = StrConv("Test", vbUpperCase) --> “TEST”
UCase, LCaseReturns string converted to uppercase/lowercase.x = UCase(“Test”) --> “TEST”
LenReturns the string length.length = Len(“a”) + Len(x) --> 1 + 4
LSet, RSetJustifies chars in fixed-length string to left or right side.RSet y = “right” --> “ right”
Left, RightReturns the specified number of chars from left-hand or right-hand side of string.x = Left(“Harding”, 4) --> “Hard”
MidReturns substring from a search string.x = Mid(“I love you.”, 3, 4) --> “love”
LTrim, RTrim, TrimReturns a copy of the string with leading, trailing, or both leading and trailing spaces removed.x = LTrim(“  <-trim->  “) -->“<-trim->  ” 
x = Trim(“  <-trim->  “) --> “<-trim->”
StrCompCompares 2 strings. Returns –1 if str1 < str2, 1 if str1 > str2, 0 if strings are equal.r = StrComp(“HU”, “ACU”) --> 1
InStrSearches a string for a substring and returns the integer position if found, 0 if not found.r = InStr(1, “To be or not to be”, “be”) --> 4
Asc, AscWAsc returns ASCII value of given string. AscW returns UNICODE value.n = Asc(“A”) --> 65 
n = AscW(“A”) --> 65
ChrReturns string equivalent of given ASCII value.c = Chr(65) --> “A“
StrConverts a number to a string.x = Str(459) --> " 459"
SplitReturns an array of substrings produced from splitting a string based on a delimeter.myArray = Split("IxLovexVBScript!", "x")
‘myArray(0) --> “I” 
‘myArray(1) --> “Love” 
‘myArray(2) --> “VBScript!”
StrReverseReturns a reversed string.x = StrReverse("VBScript") --> "tpircSBV"


728x90

'Security_Study > 웹자료' 카테고리의 다른 글

OWSAP TOP 10 2017 RC 정리  (0) 2017.04.14