Xpounded Steganography Helper

A simple tool to demonstrate steganigraphic images.
This small desktop script (built for windows with WSH 5.6 installed) will let you drag and drop a gif or jpeg image onto it and prompt you for a secret mesage to add to the image. It will automatically create the steganographic image with _Stegan postfixed to the file name.

You might like this code, even if you don't want to make a steganographic image, as it shows a relativly easy way for VBS to handle binary-data.

Save this file as stegan.vbs Play with it freely

Select All

Function readFileIntoArray(path)
	Dim f,r(),counter1
	counter1=0
	Set f = fso.OpenTextFile(path, 1)
	Do until f.atendofstream
		counter1=counter1+1
		redim preserve r(counter1)
		r(counter1)=f.read(counter1)
	Loop	
	readFileIntoArray=r
	f.Close 
	Set f = Nothing
End Function

Sub saveFileFromArray(tname,r)
	Dim result,s,gpos
	gpos=InstrRev(tname,".")
	tname = left(tname,gpos-1) & "_Stegan" & right(tname,len(tname)-gpos+1)
	Set result = fso.createTextFile(tname,True)
	for i=0 to ubound(r)
		result.Write r(i)
	next
	result.Close
	Set result = Nothing
End Sub

Function getArgs()
	Set a = WScript.Arguments
	gatArgs = a
	Set a = Nothing
End Function

Function addSecret(s,r)
	Dim l
	l = ubound(r)
	for i=1 to len(s)
		l=l+1
		redim preserve r(l)
		r(l) = mid(s,i,1)
	Next
	addSecret = r
End Function

Dim fso,m
m="Problems. Now Closing"
Set a = WScript.Arguments
u = a.Count
If u > 0  Then
	p=InputBox("Secret Message",vbokonly,"Steganography")
	if p<>"" then
		Set fso = createObject("Scripting.FileSystemObject")
		nx = a(0)
		t = readFileIntoArray(nx)
		t = addSecret(p,t)
		saveFileFromArray nx,t
		Set fso = Nothing
		m = "Done" & vbcrlf
	end if
End If
Set a = Nothing
msgbox m

No HTML to View

- Copyright 2004 Xpounded -
All JS code developed by Xpounded is developed in RHSCoder.
All VBS code developed by Xpounded is developed in VBS QuickDev IDE, or RHSCoder.
Privacy Statement
Feedback