Click here to Skip to main content
15,895,836 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
this is the code..thanks for view

VB
Dim PlainText As String = TextBox2.Text
                Dim PlainTextByteArray(PlainText.Length) As Byte
                For i As Integer = 0 To (PlainText.Length - 1)
                    PlainTextByteArray(i) = CByte(AscW(PlainText.Chars(i)))
                    Application.DoEvents()
                Next
                Dim PicAndText(PicBytes + PlainText.Length + SentinelString.Length) As Byte
                For t As Long = 0 To (PicBytes - 1)
                    PicAndText(t) = PicByteArray(t)
                Next
                Dim count As Integer = 0
                For r As Long = PicBytes To (PicBytes + (SentinelString.Length) - 1)
                    PicAndText(r) = SentinelString(count)
                    count += 1
                Next
                count = 0
                For q As Long = (PicBytes + SentinelString.Length) To (PicBytes + SentinelString.Length + PlainText.Length - 1)
                    PicAndText(q) = PlainTextByteArray(count)
                    count += 1
                Next
                SaveImage.ShowDialog()
                Dim NewFileName As String = SaveImage.FileName
                My.Computer.FileSystem.WriteAllBytes(NewFileName, PicAndText, True)
Posted
Comments
[no name] 22-May-12 8:36am    
Typically the subject line is used for a short description and the question is asked in the body.
dinmail 22-May-12 10:38am    
lol..sorry my mistake..i'm write it in hurry..

Look where you found it.
It should have a description of what the code is, and what it does. If you are lucky, it will have a description of how it does it.

Otherwise, we would have to look though random code and work all of the above out. And it has Application.DoEvents in it, which means it is not well designed to start with...
 
Share this answer
 
nope, it's just simply placing the text-to-hide inside the image at the end of the file prior to sentinel string
 
Share this answer
 

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900