Hack Forums
[.NET] [VB.NET][TUT] Crypter/Decrypter :Txt,Images,Songs,web Page,Exel,Word,Adobe reader! - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] [VB.NET][TUT] Crypter/Decrypter :Txt,Images,Songs,web Page,Exel,Word,Adobe reader! (/showthread.php?tid=1314853)

Pages: Pages 1 2

[VB.NET][TUT] Crypter/Decrypter :Txt,Images,Songs,web Page,Exel,Word,Adobe reader! - RiperFish - May 23, 2011

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 - May 23, 2011

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

* - jerry2121 - May 23, 2011

i have a lot of errors in the code :(

* - Uncol Dolan - May 23, 2011

(May 23, 2011 12:42 PM)jerry2121 Wrote:  i have a lot of errors in the code :(
Cause you are not reading code, you are just C/P


* - jerry2121 - May 23, 2011

(May 23, 2011 01:00 PM)iMadafaka Wrote:  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 - May 24, 2011

I got the same error

( i read and write , not c/p)

* - hacphongthan - May 24, 2011

useful source
big thanks

* - RiperFish - May 24, 2011

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

* - RAF97 - May 24, 2011

Bon boulot mec ! Ca fonctionne impecc' ! ;)

Good job bro, dat works great! ;)

* - RiperFish - May 24, 2011

(May 24, 2011 10:33 AM)RAF97 Wrote:  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 - May 24, 2011

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

* - RKYDA - Jun 19, 2011

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 - Jun 20, 2011

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

* - Yellow Hooded Coder - Jun 21, 2011

Nice screenshots, very well done

* - Glitchezz - Jun 21, 2011

Can you please explain what each bit of code does?