[RiperFish]

Tutorial By ThePrinCe

Crypter/Decrypter : .Txt,Images,Songs,web Page,Exel,Word,Adobe reader ..Ect

1.Create a New Project
2.Create A TextBox (1), And Three (3) Buttons
2.1Name First Button (Browse )
2.2Name The Second Button ( Cypt )
2.3Name THe Third Button ( Decrypt )

3.Now We Go To The Codes :
3.1. Import This :

Code

Imports System.IO
Imports System.Security
Imports System.Security.Cryptography
Imports System.Text

3.2. Add This Codes :

Code

Sub change()
  Dim sr As StreamReader = New StreamReader(TextBox1.Text, System.Text.Encoding.Default)
  Dim line As String
  line = sr.ReadToEnd.TrimEnd()
  sr.Close()
  Dim sw As New StreamWriter("d:\tmp.tmp", False, System.Text.Encoding.UTF8)
  sw.Write(line)
  sw.Close()
  My.Computer.FileSystem.DeleteFile(TextBox1.Text) '
  My.Computer.FileSystem.CopyFile("d:\tmp.tmp", TextBox1.Text)
  My.Computer.FileSystem.DeleteFile("d:\tmp.tmp")
    End Sub

This Code IS To change From ANSI TO UTF8

3.2.1.

Code

Sub change_ansi()
  Dim sr As StreamReader = New StreamReader(TextBox1.Text, System.Text.Encoding.UTF8)
  Dim line As String
  line = sr.ReadToEnd.TrimEnd()
  sr.Close()
  Dim sw As New StreamWriter("d:\tmp.tmp", False, System.Text.Encoding.Default)
  sw.Write(line)
  sw.Close()
  My.Computer.FileSystem.DeleteFile(TextBox1.Text) '
  My.Computer.FileSystem.CopyFile("d:\tmp.tmp", TextBox1.Text)
  My.Computer.FileSystem.DeleteFile("d:\tmp.tmp")
    End Sub

This Code Is To 'Change From UTF8 To ANSI

3.2.2.

Code

Sub krypt() 'krypte les fichiers en DES
  change()
  Dim MyFile As String = "d:\tmp.tmp"
  Dim Key As New DESCryptoServiceProvider
  Key.Key() = Encoding.UTF8.GetBytes("Password")
  Key.IV() = Encoding.UTF8.GetBytes("Password")
  Dim sr As StreamReader = New StreamReader(TextBox1.Text)
  Dim line As String
  line = sr.ReadToEnd.TrimEnd()
  sr.Close()
  EncryptMyFile(line, MyFile, Key.Key, Key.IV)
  My.Computer.FileSystem.DeleteFile(TextBox1.Text) '
  My.Computer.FileSystem.CopyFile(MyFile, TextBox1.Text)
  My.Computer.FileSystem.DeleteFile(MyFile)

    End Sub

3.2.3.

Code

Sub dekrypt()
  Dim MyFile = TextBox1.Text
  Dim FileDecry As String = "d:\tmp.tmp"
  Dim Key As New DESCryptoServiceProvider()
  Key.Key() = Encoding.UTF8.GetBytes("motpasse")
  Key.IV() = Encoding.UTF8.GetBytes("motpasse")
  Dim Final As String = DecryptMyFile(MyFile, Key.Key, Key.IV)
  Dim sw = New StreamWriter(FileDecry)
  sw.WriteLine(Final)
  sw.Flush()
  sw.Close()
  My.Computer.FileSystem.DeleteFile(MyFile) '
  My.Computer.FileSystem.CopyFile(FileDecry, TextBox1.Text)
  My.Computer.FileSystem.DeleteFile(FileDecry)
  change_ansi()
    End Sub[code]

3.2.4.
[code]  Function EncryptMyFile(ByVal data As String, ByVal MyFile As String, ByVal Key() As Byte, ByVal IV() As Byte) As Byte
  Dim fStream As FileStream = File.Open(MyFile, FileMode.OpenOrCreate)
  Dim cStream As New CryptoStream(fStream, New DESCryptoServiceProvider().CreateEncryptor(Key, IV), CryptoStreamMode.Write)
  Dim write As New StreamWriter(cStream)
  write.WriteLine(data)
  write.Close()
  cStream.Close()
  fStream.Close()

    End Function
    Function DecryptMyFile(ByVal MyFile As String, ByVal Key() As Byte, ByVal IV() As Byte) As String
  On Error Resume Next
  Dim fStream As FileStream = File.Open(MyFile, FileMode.OpenOrCreate)
  Dim cStream As New CryptoStream(fStream, New DESCryptoServiceProvider().CreateDecryptor(Key, IV), CryptoStreamMode.Read)
  Dim sReader As New StreamReader(cStream)
  Dim Value As String = sReader.ReadToEnd.TrimEnd()
  sReader.Close()
  cStream.Close()
  fStream.Close()
  Return Value
    End Function

3.3.Double Click On Crypt and Decrypt And Button1 And Add Those Codes :

Code

Private Sub crypte_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles crypte.Click
  krypt()
    End Sub

    Private Sub decrypte_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles decrypte.Click
  dekrypt()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Using o As New OpenFileDialog
    o.Filter = ""
    o.FileName = TextBox1.Text.Trim
    If o.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
    TextBox1.Text = o.FileName
    End If
  End Using
    End Sub

Screeshot :
[img]http://api.ning.com/files/IxHb7n6sH4kMMFnjHfdF8Q5rY1tZf9H7G3DeOemSg*ox1*QIQJHP9fBI7JiMN5QeQLL2jU-orsCuM07xidw9g8YoR-*9fFy-/Untitled1.gif[/img]

[Makaveli The Don]

Very nice and good tutorial, Well done and good job !!! :)

[jerry2121]

i have a lot of errors in the code :(

[Uncol Dolan]

i have a lot of errors in the code :(

Cause you are not reading code, you are just C/P

[jerry2121]

Cause you are not reading code, you are just C/P

maybe.... 😝 i am typing this because my message is too short

---

now i am reading and is still have errors
Screen:
[img]http://www.imguploaden.nl/img/25781.png[/img]

[Psomas]

I got the same error

( i read and write , not c/p)

[hacphongthan]

useful source
big thanks

[RiperFish]

Change This Dim clef As New DESCryptoServiceProvider()
To : Dim Key As New DESCryptoServiceProvider()
Fixed Now :).

[RAF97]

Bon boulot mec ! Ca fonctionne impecc' ! ;)

Good job bro, dat works great! ;)

[RiperFish]

Bon boulot mec ! Ca fonctionne impecc' ! ;)

Good job bro, dat works great! ;)

Thank's, YOu Can Change it Bro, and make a better One That use many Encryption Like CRypo xD :).

[RAF97]

I will use it to crypt my spy screenshot taker's files ;)

[RKYDA]

Hello,
Does someone could help me, me it does not work,
I post my project: http://www.sendspace.com/file/lbhovd HELP-ME PLEAS !

[RAF97]

I tried with a pdf file and T cant decrypt it...
Are you sure that's possible ?!

[Yellow Hooded Coder]

Nice screenshots, very well done

[Glitchezz]

Can you please explain what each bit of code does?