HomeclosedFAQRegisterLog in

Share | 
 

  Hide text in image files

Go down 
AuthorMessage
V1P3R
WhiteHat Support
WhiteHat Support
avatar

Posts : 76
White Hat Points : 202
White Hat Reputation : 10
Join date : 2013-07-30

PostSubject: Hide text in image files    Thu Sep 05, 2013 11:42 am

[You must be registered and logged in to see this image.]

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. 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 a .hta extension.



Code:
<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"></textarea></td>
</tr>
<tr>
<td align="center">Image path: <input type="file" id="xbox" size="40"></td>
</tr>
<tr>
<td align="center"><input type="button" value="Hide" onclick="Validate()" style="width: 450; height: 40;"></td>
</tr>
<tr>
<td align="center"><hr><br>Password: <input type="text" id="akey" size="4" maxlength="4"></td>
</tr>
<tr>
<td align="center">Image path: <input type="file" id="abox" size="40"></td>
</tr>
<tr>
<td align="center"><input type="button" value="Retrieve" onclick="AValidate()" style="width: 450; height: 40;"></td>
</tr>
</table>
</body>
</html>
Also you can download the executeable version of the program here: [You must be registered and logged in to see this link.]

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\XByte\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!

_________________
Mess with the Best, Die like the Rest
Back to top Go down
 
Hide text in image files
Back to top 
Page 1 of 1
 Similar topics
-
» polar express graphic
» urac wants my hide
» NEW: The English Patch for Hollywood Monsters (Pendulo Studios,1997).
» Hasbro Indiana Jones ROTLA
» New Mystery Case Files at BFG

Permissions in this forum:You cannot reply to topics in this forum
Home of Ethical White Hat Hackers :: Coded Sofwares & Malware Related :: Programming-
Jump to: