Sunday, 30 June 2013

Hide text in image files

Posted by Anbuselvan Rocky Posted on 06:38 No comments

Hide text in image files

* Sometimes when you want to send secret messages to your friends you would be looking for the most unsuspicious way. Here is a great trick to send text in an image file. Using a simple HTML application to hide the text into the image file according to the password you provide you can send secret messages to your friends.

Note :

Both you and your friend should have the program and must know the password.

To make the HTML application file paste the following code into notepad and save with

.hta extension. For example > ByteConceal.hta

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

<script language="VBScript">

Sub Window_OnLoad
Dim width,height
width=500
height=510
self.ResizeTo width,height
End Sub

Function Validate()
If Not (IsNumeric(key.value)) Then
X = MsgBox("The password must be a number between 1000 and 9999!", 48, 
"ERROR!")
Else If (key.value < 1000 Or key.value > 9999) Then
X = MsgBox("The password must be a number between 1000 and 9999!", 48, 
"ERROR!")
Else If (box.value = "") Then
X = MsgBox("Enter the text to hide!", 48, "ERROR!")
Else If (xbox.value = "") Then
X = MsgBox("Enter the image file path!", 48, "ERROR!")
Else
FileMng()
End If
End If
End If
End If
End Function

Function FileMng()
Set fs = CreateObject("Scripting.FileSystemObject")
path = xbox.value
If Not (fs.FileExists(path)) Then
X = MsgBox("The specified file does not exist!", 48, "ERROR!")
Else
WriteFile()
End If
End Function

Function WriteFile()
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("XBText.txt")
a.WriteBlankLines(2)
a.WriteLine("--- XBYTE ---")
a.WriteLine(key.value)
a.WriteLine(box.value)
a.Close
WriteBatch()
End Function

Function WriteBatch()
Set fs = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set a = fs.CreateTextFile("XBBatch.bat")
a.WriteLine("copy /b " & Chr(34) & xbox.value & Chr(34) 
& " + XBText.txt XBSecret.jpg")
a.Close
DeleteFiles()
End Function

Function DeleteFiles()
Set fs = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
X = WshShell.Run("XBBatch.bat",, True)
X = fs.DeleteFile("XBBatch.bat", True)
X = fs.DeleteFile("XBText.txt", True)
X = MsgBox("The text has been embedded into XBSecret.jpg!", 64, 
"Success!")
End Function

Function AValidate()
If Not (IsNumeric(akey.value)) Then
X = MsgBox("The password must be an integer between 1000 and 9999!", 48,
 "ERROR!")
Else If (akey.value < 1000 Or akey.value > 9999) Then
X = MsgBox("The password must be an integer between 1000 and 9999!", 48,
 "ERROR!")
Else If (abox.value = "") Then
X = MsgBox("Enter the path for the image file!", 48, "ERROR!")
Else
AFileMng()
End If
End If
End If
End Function

Function AFileMng()
Set fs = CreateObject("Scripting.FileSystemObject")
If Not (fs.FileExists(abox.value)) Then
X = MsgBox("The specified file does not exist!", 48, "ERROR!")
Else
FindHeader()
End If
End Function

Function FindHeader()
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(abox.value)
Do Until (text = "--- XBYTE ---" Or Err.Number <> 0)
text = a.ReadLine()
Loop
If (text = "--- XBYTE ---") Then
pass = a.ReadLine
CheckPass(pass)
Else
X = MsgBox("The file does not contain hidden data!", 48, "ERROR!")
End If
End Function

Function CheckPass(pswd)
If (akey.value = pswd) Then
Retrieve()
Else
X = MsgBox("Incorrect password!", 48, "ERROR!")
End If
End Function

Function Retrieve()
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(abox.value)
Do Until (text = "--- XBYTE ---" Or Err.Number <> 0)
text = a.ReadLine()
Loop
text = a.SkipLine()
Set x = fs.CreateTextFile("XBText.txt")
Do Until (Err.Number = 62)
text = a.ReadLine
If Err.Number = 0 Then x.WriteLine(text)
Loop
X = MsgBox("The retrieved text has been saved to XBText.txt!", 64, 
"Success!")
End Function

</script>

<body bgcolor="white">
<table align="center" width="450">
<caption><hr>
<b>ByteConceal</b><hr>
</caption>
<tr>
<td
 align="center">Password: <input type="text" id="key" size="4" 
maxlength="4"></td>
</tr>
<tr>
<td align="center"><textarea style="width: 450; height: 150;" 
id="box">

Image path:

Password: Image path:

Danger : DOnt modify the files. there is a chance of data corruptions..

Note : Also you can download the executable version of the program here: Download

*Open the program and you will see a text box for password, a text area for the text, a text box for entering the path for the image file and a button labeled Hide.

Fill in the fields. The password should be an integer between 1000 and 9999,

*The text area contain the text you want to hide. Enter the path for the image file you want to hide the text into. Eg: C:\Users\Anbu\Documents\Secret.jpg. After that press the hide button. Now a new jpg file named XBSecret.jpg will appear in the directory of the program. This file will containing the stored text. Send it your friends!

*Now to retrieve the text from an image, open the program. You will see a password field and a text box for the image path as well as a Retrieve button in the lower part of the window. Enter the password and the image path. The program will tell you if the image does not contain hidden data or whether the password is incorrect. If you filled in all the fields correctly a new text file named XBText.txt will be created in the same directory as the program and will contain the recovered data.

WARNING: The data in the image file will be lost if you edit it with any picture editing program!

Remember to leave your ratings and comments! Keep tuned to the blog and share the blog on with your friends.

Happy hacking ... bookmark us and enjoy new feeds..

Hacked softwares

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

Sunday, 30 June 2013