Showing posts with label VBscript. Show all posts

Monday, 29 July 2013

VBScript - How to make a text encryption program

Posted by Anbuselvan Rocky Posted on 07:04 No comments

VBScript - How to make a text encryption program

* This is a simple HTML application which can encrypt and decrypt the text entered into a text box using the given key. The encryption algorithm is really simple and the output is in only uppercase alphabet letters and numbers. The drawback of the program is that it will double the length of the string when encrypting. Don't use this encryption program as the only source of security for important data.
To make the encryption program save the following code with .hta extension using notepad.

<html>
<head>
<title>TextEncrypt</title>
<HTA:APPLICATION
  APPLICATIONNAME="TextEncrypt"
  ID="TextEncrypt"
  VERSION="1.0"
  MAXIMIZEBUTTON="no"
  SCROLL="no"/>
</head>

<style>

body  {background-color: #000000;
       color: #808080;}

input  {background-color: #101010;
        color: #808080;}

textarea {background-color: #202020;
          color: #808080;}

</style>

<script language="VBScript">

Sub Window_OnLoad
Dim width,height
width=460
height=400
self.ResizeTo width,height
End Sub

Function Validate(ID)
On Error Resume Next
Key = Int(pswd.value)
If (pswd.value = "") Then
X = MsgBox("Enter a password!", 48, "ERROR!")
Else If (boxa.value = "") Then
X = MsgBox("Enter the text to encrypt or decrypt!", 48, "ERROR!")
Else
Junk = SetTimeOut(KEYS(ID), 1)
End If
End If
End Function

Function KEYS(ID)
text = pswd.value
code = 0
Do Until text = ""
code = ((Asc(Left(text, 1)))+code)
text = Replace(text, Left(text, 1), "", "1", "1")
Loop
code = code Mod 255
akey.value = code
Junk = SetTimeOut(ID, 1)
End Function

Function Encrypt
Alph = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L",
 "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
text = boxa.value
code = ""
key = Int(akey.value)
Do Until text = ""
cnum = Asc(Left(text, 1))
cnum = (cnum+key) Mod 255
num = cnum Mod 26
count = 0
tst = num
Do Until tst = cnum
tst = tst+26
count = count+1
Loop
code = code & alph(num) & count
text = Replace(text, Left(text, 1), "", "1", "1")
Loop
boxa.value = code
End Function

Function Decrypt
Alph = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L",
 "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z")
text = boxa.value
code = ""
key = Int(akey.value)
Do Until text = ""
lttr = Left(text, 2)
num = Asc(Left(lttr, 1))-65
chk = Right(lttr, 1)
count = 0
Do Until count = Int(chk)
num = num+26
count = count+1
Loop
num = num-key
Do While num <= 0
num = num+255
Loop
Code = code & Chr(num)
text = Replace(text, Left(text, 2), "", "1", "1")
Loop
boxa.value = code
End Function

</script>

<body bgcolor="white">
<input type="hidden" id="akey">
<table align="center" width="400">
<caption><hr>
<b>TEXT 
SECURE</b><hr>
</caption>
<tr>
<td align="center">Password: <input type="password" 
id="pswd"></td>
</tr>
<tr>
<td align="center"><input style="width: 410px; height:30px;" 
type="button" Value="Encrypt" id="BTNE" onClick="Validate('Encrypt')" 
onmouseover="BTNE.style.background='#303030'" 
onmouseout="BTNE.style.background='#101010'"></td>
</tr>
<tr>
<td align="center"><input style="width: 410px; height:30px;" 
type="button" Value="Decrypt" id="BTND" onClick="Validate('Decrypt')" 
onmouseover="BTND.style.background='#303030'" 
onmouseout="BTND.style.background='#101010'"></td>
</tr>
<tr>
<td align="center"><textarea id="boxa" cols="50" 
rows="10">

Remember to leave your ratings and comments. Also share the blog with your friends and family!

Continue Reading →

Sunday, 30 June 2013

VBScript prime number generator

Posted by Anbuselvan Rocky Posted on 08:54 No comments

VBScript prime number generator

This is a really cool HTML application which finds all the prime numbers in a given range. This program is pretty fast for low ranges and may raise the core usage to 100 or 90 percent for very large ranges. So I prevented large ranges from being entered as it caused some errors and caused the computer to crash.
The VBScript used in the program is really simple. The program tries to get a integer number by dividing it with all possible numbers and if does not get an integer the number is confirmed as a prime number. This process is repeated for all the numbers in the given range.
To make the program paste the following code in notepad and save with a .hta extension.

<html>
<head>
<title>PRIME CALCULATOR</title>
<HTA:APPLICATION
  APPLICATIONNAME="PRIME CALCULATOR"
  ID="PRIMECALCULATOR"
  VERSION="1.0"
  MAXIMIZEBUTTON="no"
  SCROLL="no"/>
</head>

<script language="VBScript">

Sub Window_OnLoad
   Dim width,height
   width=500
   height=475
   self.ResizeTo width,height
   RID.value = 0
End Sub

Function PVal
If (BTN.value = "Stop") Then
SID.value = 1
Else If (boxa.value = "" Or boxb.value = "") Then
MsgBox("Enter a range!")
Else If ((boxa.value = boxb.value) Or (Int(boxa.value) > 
Int(boxb.value))) Then
MsgBox("Are you mad? Enter a valid range!")
Else If (Int(RID.value) = 1) Then
RID.value = 1
Else
boxa.readonly = True
boxb.readonly = True
PSet()
End If
End If
End If
End If
End Function

Function PSet
If (boxa.value <= 0) Then
boxa.value = 1
Else
End If
code.value = ""
count.value = 0
anum.value = boxa.value
bnum.value = boxb.value
BTN.value = "Stop"
SID.value = 0
RID.value = 1
ID.Value = 1
PStart()
End Function

Function PStart
anum.value = Int(anum.value)+1
If (Int(anum.value) = Int(boxb.value)) Then
PStop()
Else If (SID.value = 1) Then
PSStop()
Else
calculate(Int(anum.value))
End If
End If
End Function

Function Calculate(num)
chk = 1
rmn = 1
Do Until chk = num-1
chk = chk+1
rmn = num Mod chk
If (rmn = 0) Then Exit Do
Loop
If (rmn = 0) Then
code.value = code.value
Else
code.value = code.value & ", " & num
code.doScroll
count.value = count.value+1
End If
Do While ((Int(ID.value) = 1) And (Code.value <> ""))
code.value = Replace(code.value, Left(code.value, 2), "", "1", "1")
ID.value = 0
Loop
Junk = SetTimeOut("PStart()", 1)
End Function

Function PStop
BTN.value = "Calculate"
Junk = MsgBox(count.value & " prime numbers found between the range "
 & boxa.value & "-" & boxb.value & "!", 64, "INFO")
ID.value = 1
RID.value = 0
boxa.readonly = False
boxb.readonly = False
End Function

Function PSStop
BTN.value = "Calculate"
ID.value = 1
RID.value = 0
boxa.readonly = False
boxb.readonly = False
End Function

</script>

<body style="font-family:BookMan Old Style;">
<input type="hidden" id="RID">
<input type="hidden" id="ID">
<input type="hidden" id="SID">
<input type="hidden" id="count">
<input type="hidden" id="bnum">
<input type="hidden" id="anum">
<table align="center" border="1">
<caption><hr>
<b>PRIME 
CALCULATOR</b><hr>
</caption>
<tr>
<td>Enter the range of prime numbers you want and click Calulate 
to get all the prime numbers in that range!<hr>
</td>
</tr>
<tr>
<td align="center"><input type="text" id="boxa" size="10" 
onkeypress="If (window.event.keycode < 48 Or window.event.keycode 
>57) Then window.event.returnvalue = False"> To: <input 
type="text" id="boxb" size="10" onkeypress="If (window.event.keycode 
< 48 Or window.event.keycode >57) Then window.event.returnvalue = 
False"></td>
</tr>
<tr>
<td align="center"><input type="button" id="BTN" 
value="Calculate" onclick="PVal"></td>
</tr>
<tr>
<td align="center"><textarea wrap="virtual" id="Code" cols="52"
 rows="12" readonly>

Continue Reading →

Make a weekday calculator in VBScript

Posted by Anbuselvan Rocky Posted on 07:39 No comments

Make a weekday calculator in VBScript

*This is another hta file which will tell you the weekday of the date you specified.
The code is a little complex so when I looked at the code after making this, even I had difficulty in understanding the code. I took the formula from the internet and this program is tested so you can be hundred percent sure this program is accurate. :)

To make the program just save the following code with a .hta file extension using notepad.

<html>
<head>
<title>WeekDay</title>
<HTA:APPLICATION
  APPLICATIONNAME="WeekDay"
  ID="WeekDay"
  VERSION="1.0"
  MAXIMIZEBUTTON="no"
  SCROLL="no"/>
</head>

<script language="VBScript">

Sub Window_OnLoad
   Dim width,height
   width=260
   height=165
   self.ResizeTo width,height
  'This method will be called when the application loads
  'Add your code here
End Sub

Function Validate
On Error Resume Next
CY = CYear.Value
CM = CMonth.value
CD = CDay.value
Chk = Int(CY/4)
If (CY = "") Then
Box.Value = "Enter a year!"
Else If Not (IsNumeric(CY)) Then
Box.Value = "Invalid date!"
Else If (CY < 1000 Or CY > 9999) Then
Box.Value = "Invalid date!"
Else If ((CM = "February" Or CM = "April" Or CM = "June" Or CM = "September" Or CM = "November") And CD = 31) Then
Box.Value = "Invalid date!"
Else If (CM = "February" And CD = 30) Then
Box.Value = "Invalid date!"
Else If (CM = "February" And CD = 29 And Chk*4 <> Int(CY)) Then
Box.Value = "Invalid date!"
Else
IA()
End If
End If
End If
End If
End If
End If
End Function

Function IA
CY = CYear.Value
CC = Left(CY, 2)
CHK = CC Mod 4
If (CHK = 3) Then
XC.Value = 0
NUM.Value = 0
IB()
Else If (CHK = 0) Then
XC.Value = 6
NUM.Value = 0
IB()
Else If (CHK = 1) Then
XC.Value = 4
NUM.Value = 0
IB()
Else If (CHK = 2) Then
XC.Value = 2
NUM.Value = 0
IB()
Else
MsgBox("ERROR!")
End If
End If
End If
End If
End Function

Function IB
CY = Int(CYear.Value)
CC = Int(Right(CY, 2))
NUM.Value = NUM.Value+1
CHK = NUM.Value*4
If (Int(CHK) < Int(CC)) Then
Junk = SetTimeOut("IB()", 1)
Else If (Int(CHK) = Int(CC)) Then
XY.Value = (CC+NUM.Value)
IC()
Else If (Int(CHK) > Int(CC)) Then
XY.Value = (CC+(NUM.Value-1))
IC()
Else
IC()
End If
End If
End If
End Function

Function IC
CY = Right(CYear.Value, 2)
CM = CMonth.Value
Chk = CY Mod 4
If (CY = 0)  Then
XY.Value = 0
ID()
Else If (Chk = 0 And (CM = "January" Or CM = "February")) Then
XY.Value = (XY.Value-1) Mod 7
ID()
Else
XY.Value = XY.Value Mod 7
ID()
End If
End If
End Function

Function ID
IDM = Array(0, 3, 3, 6, 1, 4, 6, 2, 5, 0, 3, 5)
XM.Value = IDM(CMonth.selectedIndex)
CD = CDay.Value
XD.Value = CD Mod 7
Finish()
End Function

Function Finish
DDay = Array("Sunday", "Monday", "Tuesday", "Wednesday", "Thursday", "Friday", "Saturday")
Chk = Int(XC.Value)+Int(XY.Value)+Int(XM.Value)+Int(XD.Value)
Box.Value = (DDay(Chk Mod 7))
End Function

Sub CYear_OnKeyPress
If (window.event.keycode < 48 Or window.event.keycode > 57) Then
window.event.returnvalue = False
Else
End If
End Sub

</script>

<body bgcolor="white">
<input type="hidden" id="NUM">
<input type="hidden" id="XC">
<input type="hidden" id="XY">
<input type="hidden" id="XM">
<input type="hidden" id="XD">
<table align="center" width="200" border="1">
<tr>
<td align="center"><input type="text" id="box" size="30" style="text-align:center" maxlength="0"></td>
</tr>
<tr>
<td align="center">
<select id="CDay">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
<option value="13">13</option>
<option value="14">14</option>
<option value="15">15</option>
<option value="16">16</option>
<option value="17">17</option>
<option value="18">18</option>
<option value="19">19</option>
<option value="20">20</option>
<option value="21">21</option>
<option value="22">22</option>
<option value="23">23</option>
<option value="24">24</option>
<option value="25">25</option>
<option value="26">26</option>
<option value="27">27</option>
<option value="28">28</option>
<option value="29">29</option>
<option value="30">30</option>
<option value="31">31</option>
</select>
<select id="CMonth">
<option value="January">January</option>
<option value="February">February</option>
<option value="March">March</option>
<option value="April">April</option>
<option value="May">May</option>
<option value="June">June</option>
<option value="July">July</option>
<option value="August">August</option>
<option value="September">September</option>
<option value="October">October</option>
<option value="November">November</option>
<option value="December">December</option>
</select>
<input type="text" id="CYear" size="2" maxlength="4"></td>
</tr>
<tr>
<td align="center"><input type="button" value="Calculate" onClick="Validate"></td>
</tr>
</table>
</body>
</html>

Caution : Modifing codings will damage your data so dont modify the codings..

Remember to leave your rating! and subscribe us if u like .... (Y)

Continue Reading →

Make a simple calculator in HTML using VBScript

Posted by Anbuselvan Rocky Posted on 07:34 No comments

Make a simple calculator in HTML using VBScript

*This is a very simple calculator made with HTML and coded with VBScript. This hta file simply evaluates the expression in the text box. The expression can be entered using the mouse to click the buttons or else from the keyboard. To prevent the chance of invalid data being entered, only numerical keys and the signs are allowed on the keyboard. Also you can use Enter key to evaluate the expression and C to clear the text box.
To make the calculator just save the following code with a .hta extension using notepad. Hope this code helps you improve your scripting! Happy Hacking..

<html>
<head>
<title>Calculator</title>
<HTA:APPLICATION
  APPLICATIONNAME="Calculator"
  ID="Calc"
  VERSION="1.0"
  SCROLL="no"
  MAXIMIZEBUTTON="no"
  SHOWINTASKBAR="no"/>
</head>

<style>

.btn{font-family: Arial;
  font-size: 12;
  color: #000000;
  background-color: #FFFFFF;
  width: 40;
  height: 25;}


.eq {font-family: Arial;
  font-size: 12;
  color: #000000;
  background-color: #FFFFFF;
  width: 40;
  height: 85;}


.0 {font-family: Arial;
  font-size: 12;
  color: #000000;
  background-color: #FFFFFF;
  width: 85;
  height: 25;}

</style>

<script language="VBScript">

Sub Window_OnLoad
   Dim width,height
   width=270
   height=300
   self.ResizeTo width,height
   box.focus
End Sub

Function btnb
On Error Resume Next
count = 0
text = box.value
count = Len(box.value)
count = count-1
box.value = Left(box.value, count)
End Function

Function eq
On Error Resume Next
junk = Eval(box.value)
If (Err.Number <> 0) Then
box.value = Err.Description
Else
box.value = Eval(box.value)
End If
End Function

Function AddBox(ID)
box.value = box.value&ID
End Function

Function KPS
If (window.event.keycode = 99) Then
box.value = ""
Else If (window.event.keycode = 13) Then
eq()
Else If (window.event.keycode = 8) Then
btnb()
Else If ((window.event.keycode <> 94) And (window.event.keycode 
< 40 Or window.event.keycode > 41) And (window.event.keycode < 
42 Or window.event.keycode > 57)) Then
window.event.returnvalue = False
Else
cxz.focus
box.value = box.value & Chr(window.event.keycode)
End If
End If
End If
End If
End Function

</script>

<body bgcolor="white" onkeypress="KPS">
<table align="center" id="cxz">
<caption><hr>
<b>CALCULATOR</b><hr>
</caption>
<tr>
<td
 colspan="5" align="center"><input type="text" id="box" size="30" 
onclick="cxz.focus" readonly>
</tr>
<tr>
<td colspan="2"><input type="button" value="Backspace" 
class="0" id="btna" onclick="btnb" onmouseover="btna.style.background = 
'#808080'" onmouseout="btna.style.background = '#FFFFFF'"></td>
<td><input type="button" value="(" class="btn" id="btnz" 
onclick="AddBox('(')" onmouseover="btnz.style.background = '#808080'" 
onmouseout="btnz.style.background = '#FFFFFF'"></td>
<td><input type="button" value=")" class="btn" id="btnc" 
onclick="AddBox(')')" onmouseover="btnc.style.background = '#808080'" 
onmouseout="btnc.style.background = '#FFFFFF'"></td>
<td><input type="button" value="C" class="btn" id="btnd" 
onclick="box.value = ''" onmouseover="btnd.style.background = '#808080'"
 onmouseout="btnd.style.background = '#FFFFFF'"></td>
</tr>
<tr>
<td><input type="button" value="7" class="btn" id="btne" 
onclick="AddBox('7')" onmouseover="btne.style.background = '#808080'" 
onmouseout="btne.style.background = '#FFFFFF'"></td>
<td><input type="button" value="8" class="btn" id="btnf" 
onclick="AddBox('8')" onmouseover="btnf.style.background = '#808080'" 
onmouseout="btnf.style.background = '#FFFFFF'"></td>
<td><input type="button" value="9" class="btn" id="btng" 
onclick="AddBox('9')" onmouseover="btng.style.background = '#808080'" 
onmouseout="btng.style.background = '#FFFFFF'"></td>
<td><input type="button" value="/" class="btn" id="btnh" 
onclick="AddBox('/')" onmouseover="btnh.style.background = '#808080'" 
onmouseout="btnh.style.background = '#FFFFFF'"></td>
<td><input type="button" value="^" class="btn" id="btni" 
onclick="AddBox('^')" onmouseover="btni.style.background = '#808080'" 
onmouseout="btni.style.background = '#FFFFFF'"></td>
</tr>
<tr>
<td><input type="button" value="4" class="btn" id="btnj" 
onclick="AddBox('4')" onmouseover="btnj.style.background = '#808080'" 
onmouseout="btnj.style.background = '#FFFFFF'"></td>
<td><input type="button" value="5" class="btn" id="btnk" 
onclick="AddBox('5')" onmouseover="btnk.style.background = '#808080'" 
onmouseout="btnk.style.background = '#FFFFFF'"></td>
<td><input type="button" value="6" class="btn" id="btnl" 
onclick="AddBox('6')" onmouseover="btnl.style.background = '#808080'" 
onmouseout="btnl.style.background = '#FFFFFF'"></td>
<td><input type="button" value="*" class="btn" id="btnm" 
onclick="AddBox('*')" onmouseover="btnm.style.background = '#808080'" 
onmouseout="btnm.style.background = '#FFFFFF'"></td>
<td rowspan="3"><input type="button" value="=" class="eq" 
id="btnn" onclick="eq" onmouseover="btnn.style.background = '#808080'" 
onmouseout="btnn.style.background = '#FFFFFF'"></td>
</tr>
<tr>
<td><input type="button" value="1" class="btn" id="btno" 
onclick="AddBox('1')" onmouseover="btno.style.background = '#808080'" 
onmouseout="btno.style.background = '#FFFFFF'"></td>
<td><input type="button" value="2" class="btn" id="btnp" 
onclick="AddBox('2')" onmouseover="btnp.style.background = '#808080'" 
onmouseout="btnp.style.background = '#FFFFFF'"></td>
<td><input type="button" value="3" class="btn" id="btnq" 
onclick="AddBox('3')" onmouseover="btnq.style.background = '#808080'" 
onmouseout="btnq.style.background = '#FFFFFF'"></td>
<td><input type="button" value="-" class="btn" id="btnr" 
onclick="AddBox('-')" onmouseover="btnr.style.background = '#808080'" 
onmouseout="btnr.style.background = '#FFFFFF'"></td>
</tr>
<tr>
<td colspan="2"><input type="button" value="0" class="0" 
id="btns" onclick="AddBox('0')" onmouseover="btns.style.background = 
'#808080'" onmouseout="btns.style.background = '#FFFFFF'"></td>
<td><input type="button" value="." class="btn" id="btnt" 
onclick="AddBox('.')" onmouseover="btnt.style.background = '#808080'" 
onmouseout="btnt.style.background = '#FFFFFF'"></td>
<td><input type="button" value="+" class="btn" id="btnu" 
onclick="AddBox('+')" onmouseover="btnu.style.background = '#808080'" 
onmouseout="btnu.style.background = '#FFFFFF'"></td>
</tr>
</table>
</body>
</html>

Continue Reading →

Hacked softwares

www.hackbeginzsoftwares.blogspot.com, free softwares, full version softwares, hacked softwares,hack beginz, hacking, hacking softwares

Monday, 29 July 2013