by Steven Heithoff (1 Submission)
Category: Encryption
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 31st January 2001
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This Programs Hides Messages in a image file. And the Image still loads as normal.
VBcoders
Open path For Binary As #1
Dim SpaceS As String
SpaceS = Space(LOF(1))
Get #1, , SpaceS
Close #1
Kill (path)
Dim Message As String
Open path For Binary As #2
Message = SpaceS & Messages & Chr(Len(Messages))
Put #2, , Message
end function
Public Function getMessage(path as string) as string
Open path For Binary As #1
Dim SpaceS As String
SpaceS = Space(LOF(1))
Get #1, , SpaceS
Close #1
Dim Message As String
Dim holder As String
holder = Right(SpaceS, 1) 'Gets the last Char for the Length
Message = Right(SpaceS, Asc(holder) + 1)
Message = Left(Message, Len(Message) - 1)
getMessage = Message
end if
end function
No comments have been posted about This Programs Hides Messages in a image file. And the Image still loads as normal.. Why not be the first to post a comment about This Programs Hides Messages in a image file. And the Image still loads as normal..
