[kobac]

Simple way to store data as real image :D

[img]http://img818.imageshack.us/img818/9107/imagecrypt.gif[/img]
[img]http://img130.imageshack.us/img130/5156/imagesha.png[/img]
Crypt:

Code

Function pixelator(ByVal a As String) As Image
  a = Convert.ToBase64String(New System.Text.UTF8Encoding().GetBytes(CompressString(a)))
  Dim imageholder As Bitmap
  Dim autosize As Integer = System.Math.Sqrt(a.Count) + 2
  imageholder = New Bitmap(autosize, autosize)
  Dim G As Graphics = Graphics.FromImage(imageholder)
  Dim fff As Integer = 0
  While fff <= a.Count - 1
    For Y = 1 To imageholder.Height - 1
    For X = 1 To imageholder.Width - 1
    If fff <= a.Count - 1 Then
    imageholder.SetPixel(X, Y, Color.FromArgb(Convert.ToInt32(a.Chars(fff)), 0, 0))
    fff = fff + 1
    End If
    Next X
    Next Y
  End While
  Return imageholder

DeCrypt:

Code

Function depixelator(ByVal a As Image) As String
  Dim retrievestr As String = ""
  Dim xmax As Integer
  Dim ymax As Integer
  xmax = a.Width - 1
  ymax = a.Height - 1
  For y = 1 To ymax
    For x = 1 To xmax
    With CType(a, Bitmap).GetPixel(x, y)
    retrievestr = retrievestr & Convert.ToChar(.R)
    End With
    Next x
  Next y
  retrievestr = New System.Text.UTF8Encoding().GetString(Convert.FromBase64String(retrievestr.Replace(Convert.ToChar(0), "")))
  retrievestr = DecompressString(retrievestr)
  Return retrievestr
    End Function

Needed Functions:

Code

Public Shared Function CompressString(ByVal text As String) As String
  Dim buffer__1 As Byte() = Encoding.UTF8.GetBytes(text)
  Dim memoryStream = New IO.MemoryStream()
  Using gZipStream = New IO.Compression.GZipStream(memoryStream, CompressionMode.Compress, True)
    gZipStream.Write(buffer__1, 0, buffer__1.Length)
  End Using
  memoryStream.Position = 0
  Dim compressedData = New Byte(memoryStream.Length - 1) {}
  memoryStream.Read(compressedData, 0, compressedData.Length)
  Dim gZipBuffer = New Byte(compressedData.Length + 3) {}
  Buffer.BlockCopy(compressedData, 0, gZipBuffer, 4, compressedData.Length)
  Buffer.BlockCopy(BitConverter.GetBytes(buffer__1.Length), 0, gZipBuffer, 0, 4)
  Return Convert.ToBase64String(gZipBuffer)
    End Function
    Public Shared Function DecompressString(ByVal compressedText As String) As String
  Dim gZipBuffer As Byte() = Convert.FromBase64String(compressedText)
  Using memoryStream = New IO.MemoryStream()
    Dim dataLength As Integer = BitConverter.ToInt32(gZipBuffer, 0)
    memoryStream.Write(gZipBuffer, 4, gZipBuffer.Length - 4)
    Dim buffer = New Byte(dataLength - 1) {}
    memoryStream.Position = 0
    Using gZipStream = New GZipStream(memoryStream, CompressionMode.Decompress)
    gZipStream.Read(buffer, 0, buffer.Length)
    End Using
    Return Encoding.UTF8.GetString(buffer)
  End Using
    End Function

Simple Usage:

Code

Crypt:  PictureBox1.Image = pixelator(RichTextBox1.Text)
DeCrypt:  RichTextBox1.Text = depixelator(PictureBox1.Image)

Source: http://www.mediafire.com/download.php?4bwdc49ib98nz59
Update: (using png image format, file can be uploaded to imageshack)
code(png):
Spoiler (Click to View)

Code

Imports System.Text
Imports System.IO.Compression
'By Kobac
Public Class Form1
    Function pixelator(ByVal a As String) As Image
  a = Convert.ToBase64String(New System.Text.UTF8Encoding().GetBytes(CompressString(a)))
  Dim imageholder As Bitmap
  Dim autosize As Integer = System.Math.Sqrt(a.Count) + 2
  imageholder = New Bitmap(autosize, autosize)
  Dim G As Graphics = Graphics.FromImage(imageholder)
  Dim fff As Integer = 0
  While fff <= a.Count - 1
    For Y = 1 To imageholder.Height - 1
    For X = 1 To imageholder.Width - 1
    If fff <= a.Count - 1 Then
    imageholder.SetPixel(X, Y, Color.FromArgb(Convert.ToInt32(a.Chars(fff)), 0, 0))
    fff = fff + 1
    End If
    Next X
    Next Y
  End While
  Return imageholder
    End Function
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  PictureBox1.Image = pixelator(RichTextBox1.Text)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  RichTextBox1.Text = depixelator(PictureBox1.Image)
    End Sub
    Function depixelator(ByVal a As Image) As String
  Dim retrievestr As String = ""
  Dim xmax As Integer
  Dim ymax As Integer
  xmax = a.Width - 1
  ymax = a.Height - 1
  For y = 1 To ymax
    For x = 1 To xmax
    With CType(a, Bitmap).GetPixel(x, y)
    retrievestr = retrievestr & Convert.ToChar(.R)
    End With
    Next x
  Next y
  retrievestr = New System.Text.UTF8Encoding().GetString(Convert.FromBase64String(retrievestr.Replace(Convert.ToChar(0), "")))
  retrievestr = DecompressString(retrievestr)
  Return retrievestr
    End Function
    Public Shared Function CompressString(ByVal text As String) As String
  Dim buffer__1 As Byte() = Encoding.UTF8.GetBytes(text)
  Dim memoryStream = New IO.MemoryStream()
  Using gZipStream = New IO.Compression.GZipStream(memoryStream, CompressionMode.Compress, True)
    gZipStream.Write(buffer__1, 0, buffer__1.Length)
  End Using
  memoryStream.Position = 0
  Dim compressedData = New Byte(memoryStream.Length - 1) {}
  memoryStream.Read(compressedData, 0, compressedData.Length)
  Dim gZipBuffer = New Byte(compressedData.Length + 3) {}
  Buffer.BlockCopy(compressedData, 0, gZipBuffer, 4, compressedData.Length)
  Buffer.BlockCopy(BitConverter.GetBytes(buffer__1.Length), 0, gZipBuffer, 0, 4)
  Return Convert.ToBase64String(gZipBuffer)
    End Function
    Public Shared Function DecompressString(ByVal compressedText As String) As String
  Dim gZipBuffer As Byte() = Convert.FromBase64String(compressedText)
  Using memoryStream = New IO.MemoryStream()
    Dim dataLength As Integer = BitConverter.ToInt32(gZipBuffer, 0)
    memoryStream.Write(gZipBuffer, 4, gZipBuffer.Length - 4)
    Dim buffer = New Byte(dataLength - 1) {}
    memoryStream.Position = 0
    Using gZipStream = New GZipStream(memoryStream, CompressionMode.Decompress)
    gZipStream.Read(buffer, 0, buffer.Length)
    End Using
    Return Encoding.UTF8.GetString(buffer)
  End Using
    End Function
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  Dim save1 As New SaveFileDialog()
  If save1.ShowDialog() = DialogResult.OK Then
    Dim bm As Bitmap = CType(PictureBox1.Image, Bitmap)
    bm.Save(save1.FileName & ".png", System.Drawing.Imaging.ImageFormat.Png)
  End If
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
  Using open As New OpenFileDialog
    If open.ShowDialog = DialogResult.OK Then
    Dim bm As New Bitmap(open.FileName)
    PictureBox1.Image = bm
    PictureBox1.SizeMode = PictureBoxSizeMode.AutoSize
    End If
  End Using
    End Sub
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  RichTextBox1.Clear()
    End Sub
End Class

[H3x0S]

Stenography. Cool program. I like it.

[Mike Ross]

That is amazing. Thanks for this.

[FamousMassacre]

I honestly jizzed. This has been one of the coolest things I have seen in a while.

[Coder]

Awesome share, I would +rep if I could. :)

[Romeo.]

Well, thanks for share, i might use it some day !

[Mario]

Its awesome. I dont really see why you would use it. But its skill kinda cool :)

[sumit8510]

This is the best, I have seen.
Thanks for posting here bro.

[Modesty]

woah, sexy shit!

thanks ^^

[µnKn0wn_H4CK3r]

Hi!

Haha, thanks man, very cool program and very great source!
You deserve some green apples 😁 !

[M4xIm]

Wow that's great! Can I also use it with crypters?

[SumSumBee]

would be cool to know how to use in crypters...

[JIMP]

Mondo cool mate.Thank you for this.

[KingCobraXD]

Wow that's great! Can I also use it with crypters?

All you do is use fileget to get the string of the "Going to be crypted file" and encrypt it using this function and then using fileput to put it into the stub. Now in the stub, it will use fileget to get the crypted file and then unencrypt it! Simple as that!

[pr3fix]

This is really good, good job if you made this!