Untitled

Simple Scripting

this is what not being a script kiddie is all about..
Actually writing your own scripts and telling the computer what to do.
these are all scripts you can make with notepad or wordpad.
Writing your own programs is key to becoming a hacker, or cracker,
and its just plain fun.......

Just copy and paste text in notepad or wordpad


^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Batch FIle : Save As Filename.bat  (makes a text logfile of all ip connections every time you click)
---------------------------------------------------------------------------------------------------------------------------------------
mode con: cols=28 lines=20
color b
TITLE Ip Log
echo off
cls
echo.
echo 	  "IP LOG"
echo   log all your connections
echo        with one click
echo.
echo ____________________________
echo Your Ip Info
ipconfig /all | find "Host Name"
ipconfig | find "IPv4 Address"
echo ____________________________
echo Connections Being Logged
netstat -f>>log.txt
echo ____________________________
echo Opening Log Info
netstat -n>>log.txt
echo %time%>>log.txt
echo %date%>>log.txt
notepad log.txt
echo ____________________________

echo To exit
pause
exit


^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
Visual Basic : Save As Filename.vbs (Message box to type what you want the computer to say)
-------------------------------------------------------------------------------------------
Dim message, sapi
message=InputBox(" Type what you want the computer to say?","Type 2  Talk")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message


^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
HTML Application: Save as Filename.hta (Encrypt and Decrypt Private Messages)
-----------------------------------------------------------------------------
<html><head><title>Encrypt/Decrypt</title>
<HTA:APPLICATION
APPLICATIONNAME="Encrypt/Decrypt "
ID="Encrypt/Decrypt"
VERSION="1.0"
MAXIMIZEBUTTON="no"
SCROLL="no"/></head>
<style> td { color: black; }
caption { color: yellow; }
body { font-family: Arial; background-color: #9069090; color: #808080; }
input { background-color: #202020; color: #808080; }
textarea { background-color: #202020; color: #808080; }
</style>
<script language="VBScript">
Sub Window_OnLoad
Dim width,height
width=700
height=430
self.ResizeTo width,height
End Sub
Function Validate(ID)
On Error Resume Next
Key = Int(pass.value)
If (pass.value = "") Then
X = MsgBox("Please enter your password", 48, "Error")
Else If (tamsg.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 = pass.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
Alpha = 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 = tamsg.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 & Alpha(num) & count
text = Replace(text, Left(text, 1), "", "1", "1")
Loop
tamsg.value = code
End Function
Function Decrypt
Alpha = 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 = tamsg.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
tamsg.value = code
End Function
</script>
<body bgcolor="pink"> <input type="hidden" id="akey"> <span title=""> <span title="encrypt/decrypt">
<caption style="font-family:Book Antiqua; font-size:20;"><hr color="black"><b>Message Encrypter-Decrypter</b><hr color="black"></caption>
<tr> <td align="center"><span title="Enter Message "><textarea id="tamsg" cols="80" rows="15"></textarea></span></td> </tr>
&nbsp;&nbsp;&nbsp;&nbsp; <td color="black" style="font-family: Book Antiqua; font-size:18;"><hr color="black"> Password &nbsp;<span title="Enter Password ">
<input type="password" id="pass"></span> &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<span title="Click To Encrypt Message"> <input style="width: 170px; height:23px; color: white; background-color: #203040; font-family:Book Antiqua;" type="button" Value="Encrypt" id="btnenc" onClick="Validate('Encrypt')" onmouseover="btnenc.style.background='#102030'" onmouseout="btnenc.style.background='#203040'"> </span> <span title="Click to Decrypt your Message"> <input style="width: 170px; height:23px; color: white; background-color: #203040; font-family: Book Antiqua; font-size:13;" type="button" Value="Decrypt" id="btndec" onClick="Validate('Decrypt')" onmouseover="btndec.style.background='#102030'" onmouseout="btndec.style.background='#203040'"> </span></td>
</tr> <tr> <td align="right"><hr color="black"><span title="encrypt/decrypt" </html>