Apprendre le Hack Index du Forum
Apprendre le Hack

 
Apprendre le Hack Index du ForumFAQRechercherS’enregistrerConnexion

:: Crypteur - decrypteur v1.1 VB.net ::

 
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié
Sujet précédent :: Sujet suivant  
Auteur Message
Inf3rnus
Administrateur

Hors ligne

Inscrit le: 22 Aoû 2011
Messages: 196

MessagePosté le: Dim 11 Déc - 14:17 (2011)    Sujet du message: Crypteur - decrypteur v1.1 VB.net Répondre en citant

• Aperçu :



• Description :
Ce programme regroupe plusieurs fonctions. Celui-ci n'est pas terminé. Si vous voulez le compléter merci de m'envoyer d'autre fonction.

• changelog

v1.1 : ajout de la fonction reverse

• Téléchargement :

v1 : http://www.megaupload.com/?d=UC0D4UUP
v1.1 : http://www.megaupload.com/?d=Q9KKALAO

• Code :


Form1 :



  1. Public Class Form1  
  2.   
  3.     Private Sub BT_Crypter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Crypter.Click  
  4.   
  5.         If RadioButton1.Checked Then 'Zara 128  
  6.             Me.TextBox1.Text = ZARA128_Encode(TextBox1.Text)  
  7.   
  8.         ElseIf RadioButton2.Checked Then 'DES  
  9.             Me.TextBox1.Text = DES_Encrypt(TextBox1.Text, TextBox3.Text)  
  10.   
  11.         ElseIf RadioButton3.Checked Then 'AES  
  12.             Me.TextBox1.Text = AES_Encrypt(TextBox1.Text, TextBox3.Text)  
  13.   
  14.         ElseIf RadioButton4.Checked Then 'Triple DES  
  15.             Me.TextBox1.Text = TripleDES_Encrypt(TextBox1.Text, TextBox3.Text)  
  16.   
  17.         ElseIf RadioButton5.Checked Then 'RC2  
  18.             Me.TextBox1.Text = RC2_Encrypt(TextBox1.Text, TextBox3.Text)  
  19.   
  20.         ElseIf RadioButton6.Checked Then 'XOR  
  21.             Me.TextBox1.Text = XOR_Encrypt(TextBox1.Text, TextBox3.Text)  
  22.   
  23.         ElseIf RadioButton7.Checked Then 'RSA  
  24.             Me.TextBox1.Text = RSA_Encrypt(TextBox1.Text)  
  25.   
  26.         ElseIf RadioButton8.Checked Then 'Base 64  
  27.             Me.TextBox1.Text = BASE64_Encode(TextBox1.Text)  
  28.   
  29.         ElseIf RadioButton9.Checked Then 'String2Hex  
  30.             Me.TextBox1.Text = String2Hex(TextBox1.Text)  
  31.   
  32.         ElseIf RadioButton10.Checked Then 'Hex2String  
  33.             Me.TextBox1.Text = Hex2String(TextBox1.Text)  
  34.   
  35.         ElseIf RadioButton11.Checked Then 'pr0t3  
  36.             Me.TextBox1.Text = pr0t3_encrypt(TextBox1.Text)  
  37.   
  38.         ElseIf RadioButton12.Checked Then 'MD5  
  39.             Me.TextBox1.Text = MD5Hash(TextBox1.Text)  
  40.   
  41.         ElseIf RadioButton13.Checked Then 'RIPEMD 160  
  42.             Me.TextBox1.Text = RIPEMD160Hash(TextBox1.Text)  
  43.   
  44.         ElseIf RadioButton14.Checked Then 'SHA1  
  45.             Me.TextBox1.Text = SHA1Hash(TextBox1.Text)  
  46.   
  47.         ElseIf RadioButton15.Checked Then 'SHA256  
  48.             Me.TextBox1.Text = SHA256Hash(TextBox1.Text)  
  49.   
  50.         ElseIf RadioButton16.Checked Then 'SHA348  
  51.             Me.TextBox1.Text = SHA348Hash(TextBox1.Text)  
  52.   
  53.         ElseIf RadioButton17.Checked Then 'SHA512  
  54.             Me.TextBox1.Text = SHA512Hash(TextBox1.Text)  
  55.   
  56.         ElseIf RadioButton18.Checked Then 'RC4  
  57.             Me.TextBox1.Text = rc4_encrypt(TextBox1.Text, TextBox3.Text)  
  58.   
  59.         ElseIf RadioButton19.Checked Then 'Reverse  
  60.             Me.TextBox1.Text = Reverse(TextBox1.Text)  
  61.   
  62.         End If  
  63.   
  64.     End Sub  
  65.   
  66.     Private Sub BT_Decrypter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Decrypter.Click  
  67.         If RadioButton1.Checked Then 'Zara 128  
  68.             Me.TextBox1.Text = ZARA128_Decode(TextBox1.Text)  
  69.   
  70.         ElseIf RadioButton2.Checked Then 'DES  
  71.             Me.TextBox1.Text = DES_Decrypt(TextBox1.Text, TextBox3.Text)  
  72.   
  73.         ElseIf RadioButton3.Checked Then 'AES  
  74.             Me.TextBox1.Text = AES_Decrypt(TextBox1.Text, TextBox3.Text)  
  75.   
  76.         ElseIf RadioButton4.Checked Then 'Triple DES  
  77.             Me.TextBox1.Text = TripleDES_Decrypt(TextBox1.Text, TextBox3.Text)  
  78.   
  79.         ElseIf RadioButton5.Checked Then 'RC2  
  80.             Me.TextBox1.Text = RC2_Decrypt(TextBox1.Text, TextBox3.Text)  
  81.   
  82.         ElseIf RadioButton6.Checked Then 'XOR  
  83.             Me.TextBox1.Text = XOR_Decrypt(TextBox1.Text, TextBox3.Text)  
  84.   
  85.         ElseIf RadioButton7.Checked Then 'RSA  
  86.             Me.TextBox1.Text = RSA_Decrypt(TextBox1.Text)  
  87.   
  88.         ElseIf RadioButton8.Checked Then 'Base 64  
  89.             Me.TextBox1.Text = BASE64_Decode(TextBox1.Text)  
  90.   
  91.         ElseIf RadioButton11.Checked Then 'pr0t3  
  92.             Me.TextBox1.Text = pr0t3_decrypt(TextBox1.Text)  
  93.   
  94.         ElseIf RadioButton18.Checked Then 'RC4  
  95.             Me.TextBox1.Text = rc4_decrypt(TextBox1.Text, TextBox3.Text)  
  96.   
  97.         End If  
  98.     End Sub  
  99.   
  100.     Private Sub Pas_de_clé(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, RadioButton7.CheckedChanged, RadioButton8.CheckedChanged, RadioButton11.CheckedChanged  
  101.         TextBox3.Hide()  
  102.         Label1.Hide()  
  103.         TextBox1.Location = New Point(12, 254)  
  104.         BT_Decrypter.Show()  
  105.         Me.Height = 374  
  106.     End Sub  
  107.   
  108.     Private Sub Clé(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged, RadioButton5.CheckedChanged, RadioButton6.CheckedChanged, RadioButton18.CheckedChanged  
  109.         TextBox3.Show()  
  110.         Label1.Show()  
  111.         TextBox1.Location = New Point(12, 284)  
  112.         BT_Decrypter.Show()  
  113.         Me.Height = 404  
  114.     End Sub  
  115.   
  116.     Private Sub Crypter_uniquement(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton9.CheckedChanged, RadioButton10.CheckedChanged, RadioButton12.CheckedChanged, RadioButton13.CheckedChanged, RadioButton14.CheckedChanged, RadioButton15.CheckedChanged, RadioButton16.CheckedChanged, RadioButton17.CheckedChanged, RadioButton19.CheckedChanged  
  117.         TextBox3.Hide()  
  118.         Label1.Hide()  
  119.         TextBox1.Location = New Point(12, 254)  
  120.         BT_Decrypter.Hide()  
  121.         Me.Height = 374  
  122.     End Sub  
  123.   
  124.     Private Sub BT_Reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Reset.Click  
  125.         TextBox1.Text = ""  
  126.         TextBox3.Text = ""  
  127.         RadioButton1.Checked = True  
  128.     End Sub  
  129.   
  130.     Private Sub BT_Apropos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_Apropos.Click  
  131.         Form2.Show()  
  132.     End Sub  
  133.   
  134. End Class  





Form2 :



  1. Public Class Form2  
  2.   
  3.     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
  4.         Label1.Location = New Point(Label1.Location.X, Label1.Location.Y - 1)  
  5.     End Sub  
  6.   
  7.     Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load  
  8.         Label1.Location = New Point(12, 80)  
  9.         Timer1.Enabled = True  
  10.     End Sub  
  11.   
  12.     Private Sub Label1_Move(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Move  
  13.         If Label1.Location.Y = 5 Then  
  14.             Timer1.Stop()  
  15.         End If  
  16.     End Sub  
  17. End Class  





Module1 :



  1. Imports System.Text  
  2.   
  3. Module Module1  
  4.   
  5.     Public Function ROT13(ByVal input As String) As String  
  6.         Dim out As New System.Text.StringBuilder  
  7.         For i As Integer = 0 To input.Length - 1  
  8.             out.Append(Chr(Asc(input(i)) Xor 13))  
  9.         Next  
  10.         Return out.ToString  
  11.     End Function  
  12.   
  13.     Public Function ZARA128_Encode(ByVal input As String) As String  
  14.         Dim out As New System.Text.StringBuilder  
  15.         For Each c As Char In input  
  16.             Dim temp As Integer = Asc(c) + 312  
  17.             out.Append(temp.ToString & " ")  
  18.         Next  
  19.         Return out.ToString.Substring(0, out.Length - 1)  
  20.     End Function  
  21.   
  22.     Public Function ZARA128_Decode(ByVal input As String) As String  
  23.         Dim out As New System.Text.StringBuilder  
  24.         Dim data As String() = Split(input, " ")  
  25.         For Each s As String In data  
  26.             Dim temp As Integer = s - 312  
  27.             out.Append(Chr(temp))  
  28.         Next  
  29.         Return out.ToString  
  30.     End Function  
  31.   
  32.     Public Function DES_Encrypt(ByVal input As String, ByVal pass As String) As String  
  33.         Dim DES As New System.Security.Cryptography.DESCryptoServiceProvider  
  34.         Dim Hash_DES As New System.Security.Cryptography.MD5CryptoServiceProvider  
  35.         Dim encrypted As String = ""  
  36.         Dim hash(7) As Byte  
  37.         Dim temp As Byte() = Hash_DES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))  
  38.         Array.Copy(temp, 0, hash, 0, 8)  
  39.         DES.Key = hash  
  40.         DES.Mode = Security.Cryptography.CipherMode.ECB  
  41.         Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = DES.CreateEncryptor  
  42.         Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)  
  43.         encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))  
  44.         Return encrypted  
  45.     End Function  
  46.   
  47.     Public Function DES_Decrypt(ByVal input As String, ByVal pass As String) As String  
  48.         Dim DES As New System.Security.Cryptography.DESCryptoServiceProvider  
  49.         Dim Hash_DES As New System.Security.Cryptography.MD5CryptoServiceProvider  
  50.         Dim decrypted As String = ""  
  51.   
  52.         Dim hash(7) As Byte  
  53.         Dim temp As Byte() = Hash_DES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))  
  54.         Array.Copy(temp, 0, hash, 0, 8)  
  55.         DES.Key = hash  
  56.         DES.Mode = Security.Cryptography.CipherMode.ECB  
  57.         Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = DES.CreateDecryptor  
  58.         Dim Buffer As Byte() = Convert.FromBase64String(input)  
  59.         decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))  
  60.         Return decrypted  
  61.     End Function  
  62.   
  63.     Public Function AES_Encrypt(ByVal input As String, ByVal pass As String) As String  
  64.         Dim AES As New System.Security.Cryptography.RijndaelManaged  
  65.         Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider  
  66.         Dim encrypted As String = ""  
  67.         Dim hash(31) As Byte  
  68.         Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))  
  69.         Array.Copy(temp, 0, hash, 0, 16)  
  70.         Array.Copy(temp, 0, hash, 15, 16)  
  71.         AES.Key = hash  
  72.         AES.Mode = Security.Cryptography.CipherMode.ECB  
  73.         Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateEncryptor  
  74.         Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)  
  75.         encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))  
  76.         Return encrypted  
  77.     End Function  
  78.   
  79.     Public Function AES_Decrypt(ByVal input As String, ByVal pass As String) As String  
  80.         Dim AES As New System.Security.Cryptography.RijndaelManaged  
  81.         Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider  
  82.         Dim decrypted As String = ""  
  83.         Dim hash(31) As Byte  
  84.         Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))  
  85.         Array.Copy(temp, 0, hash, 0, 16)  
  86.         Array.Copy(temp, 0, hash, 15, 16)  
  87.         AES.Key = hash  
  88.         AES.Mode = Security.Cryptography.CipherMode.ECB  
  89.         Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor  
  90.         Dim Buffer As Byte() = Convert.FromBase64String(input)  
  91.         decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))  
  92.         Return decrypted  
  93.     End Function  
  94.   
  95.     Public Function TripleDES_Encrypt(ByVal input As String, ByVal pass As String) As String  
  96.         Dim TripleDES As New System.Security.Cryptography.TripleDESCryptoServiceProvider  
  97.         Dim Hash_TripleDES As New System.Security.Cryptography.MD5CryptoServiceProvider  
  98.         Dim encrypted As String = ""  
  99.         Dim hash(23) As Byte  
  100.         Dim temp As Byte() = Hash_TripleDES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))  
  101.         Array.Copy(temp, 0, hash, 0, 16)  
  102.         Array.Copy(temp, 0, hash, 15, 8)  
  103.         TripleDES.Key = hash  
  104.         TripleDES.Mode = Security.Cryptography.CipherMode.ECB  
  105.         Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = TripleDES.CreateEncryptor  
  106.         Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)  
  107.         encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))  
  108.         Return encrypted  
  109.     End Function  
  110.   
  111.     Public Function TripleDES_Decrypt(ByVal input As String, ByVal pass As String) As String  
  112.         Dim TripleDES As New System.Security.Cryptography.TripleDESCryptoServiceProvider  
  113.         Dim Hash_TripleDES As New System.Security.Cryptography.MD5CryptoServiceProvider  
  114.         Dim decrypted As String = ""  
  115.         Dim hash(23) As Byte  
  116.         Dim temp As Byte() = Hash_TripleDES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))  
  117.         Array.Copy(temp, 0, hash, 0, 16)  
  118.         Array.Copy(temp, 0, hash, 15, 8)  
  119.         TripleDES.Key = hash  
  120.         TripleDES.Mode = Security.Cryptography.CipherMode.ECB  
  121.         Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = TripleDES.CreateDecryptor  
  122.         Dim Buffer As Byte() = Convert.FromBase64String(input)  
  123.         decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))  
  124.         Return decrypted  
  125.     End Function  
  126.   
  127.     Public Function RC2_Encrypt(ByVal input As String, ByVal pass As String) As String  
  128.         Dim RC2 As New System.Security.Cryptography.RC2CryptoServiceProvider  
  129.         Dim Hash_RC2 As New System.Security.Cryptography.MD5CryptoServiceProvider  
  130.         Dim encrypted As String = ""  
  131.         Dim hash() As Byte = Hash_RC2.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))  
  132.         RC2.Key = hash  
  133.         RC2.Mode = Security.Cryptography.CipherMode.ECB  
  134.         Dim DESEncrypter As System.Security.Cryptography.ICryptoTransform = RC2.CreateEncryptor  
  135.         Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(input)  
  136.         encrypted = Convert.ToBase64String(DESEncrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))  
  137.         Return encrypted  
  138.     End Function  
  139.   
  140.     Public Function RC2_Decrypt(ByVal input As String, ByVal pass As String) As String  
  141.         Dim RC2 As New System.Security.Cryptography.RC2CryptoServiceProvider  
  142.         Dim Hash_RC2 As New System.Security.Cryptography.MD5CryptoServiceProvider  
  143.         Dim decrypted As String = ""  
  144.         Dim hash() As Byte = Hash_RC2.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))  
  145.         RC2.Key = hash  
  146.         RC2.Mode = Security.Cryptography.CipherMode.ECB  
  147.         Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = RC2.CreateDecryptor  
  148.         Dim Buffer As Byte() = Convert.FromBase64String(input)  
  149.         decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))  
  150.         Return decrypted  
  151.     End Function  
  152.   
  153.     Public Function XOR_Encrypt(ByVal Input As String, ByVal pass As String) As String  
  154.         Dim out As New System.Text.StringBuilder  
  155.         Dim u As Integer  
  156.         For i As Integer = 0 To Input.Length - 1  
  157.             Dim tmp As String = Hex(Asc(Input(i)) Xor Asc(pass(u)))  
  158.             If tmp.Length = 1 Then tmp = "0" & tmp  
  159.             out.Append(tmp)  
  160.             If u = pass.Length - 1 Then u = 0 Else uu = u + 1  
  161.         Next  
  162.         Return out.ToString  
  163.     End Function  
  164.   
  165.     Public Function XOR_Decrypt(ByVal Input As String, ByVal pass As String) As String  
  166.         Dim out As New System.Text.StringBuilder  
  167.         Dim u As Integer  
  168.         For i As Integer = 0 To Input.Length - 1 Step +2  
  169.             Dim tmp As String = Chr(("&H" & Input.Substring(i, 2)) Xor Asc(pass(u)))  
  170.             out.Append(tmp)  
  171.             If u = pass.Length - 1 Then u = 0 Else uu = u + 1  
  172.         Next  
  173.         Return out.ToString  
  174.     End Function  
  175.   
  176.     Public Function CustomXOR_Encrypt(ByVal Input As String, ByVal pass As String) As String  
  177.         Dim out As New System.Text.StringBuilder  
  178.         Dim Hash As New System.Security.Cryptography.MD5CryptoServiceProvider  
  179.         Dim XorHash As Byte() = Hash.ComputeHash(System.Text.Encoding.ASCII.GetBytes(pass))  
  180.         Dim u As Integer  
  181.         For i As Integer = 0 To Input.Length - 1  
  182.             Dim tmp As String = Hex(Asc(Input(i)) Xor XorHash(u))  
  183.             If tmp.Length = 1 Then tmp = "0" & tmp  
  184.             out.Append(tmp)  
  185.             If u = pass.Length - 1 Then u = 0 Else uu = u + 1  
  186.         Next  
  187.         Return out.ToString  
  188.     End Function  
  189.   
  190.     Public Function CustomXOR_Decrypt(ByVal Input As String, ByVal pass As String) As String  
  191.         Dim out As New System.Text.StringBuilder  
  192.         Dim Hash As New System.Security.Cryptography.MD5CryptoServiceProvider  
  193.         Dim XorHash As Byte() = Hash.ComputeHash(System.Text.Encoding.ASCII.GetBytes(pass))  
  194.         Dim u As Integer  
  195.         For i As Integer = 0 To Input.Length - 1 Step +2  
  196.             Dim tmp As String = Chr(("&H" & Input.Substring(i, 2)) Xor XorHash(u))  
  197.             out.Append(tmp)  
  198.             If u = pass.Length - 1 Then u = 0 Else uu = u + 1  
  199.         Next  
  200.         Return out.ToString  
  201.     End Function  
  202.   
  203.     Public Function RSA_Encrypt(ByVal Input As String) As String  
  204.         Dim cp As New Security.Cryptography.CspParameters  
  205.         cp.Flags = Security.Cryptography.CspProviderFlags.UseMachineKeyStore  
  206.         cp.KeyContainerName = "Keys"  
  207.         Dim RSA As New Security.Cryptography.RSACryptoServiceProvider(cp)  
  208.   
  209.         Dim buffer As Byte() = System.Text.Encoding.UTF8.GetBytes(Input)  
  210.         Dim encrypted As Byte() = RSA.Encrypt(buffer, True)  
  211.         Return Convert.ToBase64String(encrypted)  
  212.     End Function  
  213.   
  214.     Public Function RSA_Decrypt(ByVal Input As String) As String  
  215.         Dim cp As New Security.Cryptography.CspParameters  
  216.         cp.Flags = Security.Cryptography.CspProviderFlags.UseMachineKeyStore  
  217.         cp.KeyContainerName = "Keys"  
  218.         Dim RSA As New Security.Cryptography.RSACryptoServiceProvider(cp)  
  219.         Dim buffer As Byte() = Convert.FromBase64String(Input)  
  220.         Dim decrypted As Byte() = RSA.Decrypt(buffer, True)  
  221.         Return System.Text.Encoding.UTF8.GetString(decrypted)  
  222.     End Function  
  223.   
  224.     Public Function MD5Hash(ByVal input As String) As String  
  225.         Dim MD5 As New System.Security.Cryptography.MD5CryptoServiceProvider  
  226.         Dim Data As Byte()  
  227.         Dim Result As Byte()  
  228.         Dim Res As String = ""  
  229.         Dim Tmp As String = ""  
  230.         Data = System.Text.Encoding.ASCII.GetBytes(input)  
  231.         Result = MD5.ComputeHash(Data)  
  232.         For i As Integer = 0 To Result.Length - 1  
  233.             Tmp = Hex(Result(i))  
  234.             If Len(Tmp) = 1 Then Tmp = "0" & Tmp  
  235.             Res += Tmp  
  236.         Next  
  237.         Return Res  
  238.     End Function  
  239.   
  240.     Public Function RIPEMD160Hash(ByVal input As String) As String  
  241.         Dim RIPEMD160 As New System.Security.Cryptography.RIPEMD160Managed  
  242.         Dim Data As Byte()  
  243.         Dim Result As Byte()  
  244.         Dim Res As String = ""  
  245.         Dim Tmp As String = ""  
  246.         Data = System.Text.Encoding.ASCII.GetBytes(input)  
  247.         Result = RIPEMD160.ComputeHash(Data)  
  248.         For i As Integer = 0 To Result.Length - 1  
  249.             Tmp = Hex(Result(i))  
  250.             If Len(Tmp) = 1 Then Tmp = "0" & Tmp  
  251.             Res += Tmp  
  252.         Next  
  253.         Return Res  
  254.     End Function  
  255.   
  256.     Public Function SHA1Hash(ByVal input As String) As String  
  257.         Dim SHA1 As New System.Security.Cryptography.SHA1CryptoServiceProvider  
  258.         Dim Data As Byte()  
  259.         Dim Result As Byte()  
  260.         Dim Res As String = ""  
  261.         Dim Tmp As String = ""  
  262.         Data = System.Text.Encoding.ASCII.GetBytes(input)  
  263.         Result = SHA1.ComputeHash(Data)  
  264.         For i As Integer = 0 To Result.Length - 1  
  265.             Tmp = Hex(Result(i))  
  266.             If Len(Tmp) = 1 Then Tmp = "0" & Tmp  
  267.             Res += Tmp  
  268.         Next  
  269.         Return Res  
  270.     End Function  
  271.   
  272.     Public Function SHA256Hash(ByVal input As String) As String  
  273.         Dim SHA256 As New System.Security.Cryptography.SHA256Managed  
  274.         Dim Data As Byte()  
  275.         Dim Result As Byte()  
  276.         Dim Res As String = ""  
  277.         Dim Tmp As String = ""  
  278.         Data = System.Text.Encoding.ASCII.GetBytes(input)  
  279.         Result = SHA256.ComputeHash(Data)  
  280.         For i As Integer = 0 To Result.Length - 1  
  281.             Tmp = Hex(Result(i))  
  282.             If Len(Tmp) = 1 Then Tmp = "0" & Tmp  
  283.             Res += Tmp  
  284.         Next  
  285.         Return Res  
  286.     End Function  
  287.   
  288.     Public Function SHA348Hash(ByVal input As String) As String  
  289.         Dim SHA348 As New System.Security.Cryptography.SHA384Managed  
  290.         Dim Data As Byte()  
  291.         Dim Result As Byte()  
  292.         Dim Res As String = ""  
  293.         Dim Tmp As String = ""  
  294.         Data = System.Text.Encoding.ASCII.GetBytes(input)  
  295.         Result = SHA348.ComputeHash(Data)  
  296.         For i As Integer = 0 To Result.Length - 1  
  297.             Tmp = Hex(Result(i))  
  298.             If Len(Tmp) = 1 Then Tmp = "0" & Tmp  
  299.             Res += Tmp  
  300.         Next  
  301.         Return Res  
  302.     End Function  
  303.   
  304.     Public Function SHA512Hash(ByVal input As String) As String  
  305.         Dim SHA512 As New System.Security.Cryptography.SHA512Managed  
  306.         Dim Data As Byte()  
  307.         Dim Result As Byte()  
  308.         Dim Res As String = ""  
  309.         Dim Tmp As String = ""  
  310.         Data = System.Text.Encoding.ASCII.GetBytes(input)  
  311.         Result = SHA512.ComputeHash(Data)  
  312.         For i As Integer = 0 To Result.Length - 1  
  313.             Tmp = Hex(Result(i))  
  314.             If Len(Tmp) = 1 Then Tmp = "0" & Tmp  
  315.             Res += Tmp  
  316.         Next  
  317.         Return Res  
  318.     End Function  
  319.   
  320.     Public Function BASE64_Encode(ByVal input As String) As String  
  321.         Return Convert.ToBase64String(System.Text.Encoding.ASCII.GetBytes(input))  
  322.     End Function  
  323.   
  324.     Public Function BASE64_Decode(ByVal input As String) As String  
  325.         Return System.Text.Encoding.ASCII.GetString(Convert.FromBase64String(input))  
  326.     End Function  
  327.   
  328.     Public Function String2Hex(ByVal input As String) As String  
  329.         Dim out As New System.Text.StringBuilder  
  330.         For Each c As String In input  
  331.             Dim temp As String = Hex(Asc(c))  
  332.             out.Append(temp & " ")  
  333.         Next  
  334.         Return out.ToString.Substring(0, out.Length - 1)  
  335.     End Function  
  336.   
  337.     Public Function Hex2String(ByVal input As String) As String  
  338.         Dim out As New System.Text.StringBuilder  
  339.         Dim data As String() = Split(input, " ")  
  340.         For Each s As String In data  
  341.             out.Append(Chr("&H" & s))  
  342.         Next  
  343.         Return out.ToString  
  344.     End Function  
  345.   
  346.     Public Function pr0t3_encrypt(ByVal message As String)  
  347.         Dim encrypted As String  
  348.         Dim key As Integer = 3  
  349.         message = StrReverse(message)  
  350.         For Each c As Char In message  
  351.             encrypted += Chr((Asc(c) + key))  
  352.         Next  
  353.         Return encrypted  
  354.     End Function  
  355.   
  356.     Public Function pr0t3_decrypt(ByVal message As String)  
  357.         Dim decrypted As String  
  358.         Dim key As Integer = 3  
  359.         For Each c As Char In message  
  360.             decrypteddecrypted = decrypted & Chr((Asc(c) - key))  
  361.         Next  
  362.         decrypted = StrReverse(decrypted)  
  363.         Return decrypted  
  364.     End Function  
  365.   
  366.     Public Function rc4_encrypt(ByVal message As String, ByVal password As String) As String  
  367.   
  368.         Dim i As Integer = 0  
  369.         Dim j As Integer = 0  
  370.         Dim cipher As New StringBuilder  
  371.         Dim returnCipher As StringString = String.Empty  
  372.   
  373.         Dim sbox As Integer() = New Integer(256) {}  
  374.         Dim key As Integer() = New Integer(256) {}  
  375.   
  376.         Dim intLength As Integer = password.Length  
  377.   
  378.         Dim a As Integer = 0  
  379.         While a <= 255  
  380.   
  381.             Dim ctmp As Char = (password.Substring((a Mod intLength), 1).ToCharArray()(0))  
  382.   
  383.             key(a) = Microsoft.VisualBasic.Strings.Asc(ctmp)  
  384.             sbox(a) = a  
  385.             System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)  
  386.         End While  
  387.   
  388.         Dim x As Integer = 0  
  389.   
  390.         Dim b As Integer = 0  
  391.         While b <= 255  
  392.             x = (x + sbox(b) + key(b)) Mod 256  
  393.             Dim tempSwap As Integer = sbox(b)  
  394.             sbox(b) = sbox(x)  
  395.             sbox(x) = tempSwap  
  396.             System.Math.Max(System.Threading.Interlocked.Increment(b), b - 1)  
  397.         End While  
  398.   
  399.         a = 1  
  400.   
  401.         While a <= message.Length  
  402.   
  403.             Dim itmp As Integer = 0  
  404.   
  405.             i = (i + 1) Mod 256  
  406.             j = (j + sbox(i)) Mod 256  
  407.             itmp = sbox(i)  
  408.             sbox(i) = sbox(j)  
  409.             sbox(j) = itmp  
  410.   
  411.             Dim k As Integer = sbox((sbox(i) + sbox(j)) Mod 256)  
  412.   
  413.             Dim ctmp As Char = message.Substring(a - 1, 1).ToCharArray()(0)  
  414.   
  415.             itmp = Asc(ctmp)  
  416.   
  417.             Dim cipherby As Integer = itmp Xor k  
  418.   
  419.             cipher.Append(Chr(cipherby))  
  420.             System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)  
  421.         End While  
  422.   
  423.         returnCipher = cipher.ToString  
  424.         cipher.Length = 0  
  425.   
  426.         Return returnCipher  
  427.   
  428.     End Function  
  429.   
  430.     Public Function rc4_decrypt(ByVal message As String, ByVal password As String) As String  
  431.         Dim i As Integer = 0  
  432.         Dim j As Integer = 0  
  433.         Dim cipher As New System.Text.StringBuilder  
  434.         Dim returnCipher As StringString = String.Empty  
  435.         Dim sbox As Integer() = New Integer(256) {}  
  436.         Dim key As Integer() = New Integer(256) {}  
  437.         Dim intLength As Integer = password.Length  
  438.         Dim a As Integer = 0  
  439.         While a <= 255  
  440.             Dim ctmp As Char = (password.Substring((a Mod intLength), 1).ToCharArray()(0))  
  441.             key(a) = Microsoft.VisualBasic.Strings.Asc(ctmp)  
  442.             sbox(a) = a  
  443.             System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)  
  444.         End While  
  445.         Dim x As Integer = 0  
  446.         Dim b As Integer = 0  
  447.         While b <= 255  
  448.             x = (x + sbox(b) + key(b)) Mod 256  
  449.             Dim tempSwap As Integer = sbox(b)  
  450.             sbox(b) = sbox(x)  
  451.             sbox(x) = tempSwap  
  452.             System.Math.Max(System.Threading.Interlocked.Increment(b), b - 1)  
  453.         End While  
  454.         a = 1  
  455.         While a <= message.Length  
  456.             Dim itmp As Integer = 0  
  457.             i = (i + 1) Mod 256  
  458.             j = (j + sbox(i)) Mod 256  
  459.             itmp = sbox(i)  
  460.             sbox(i) = sbox(j)  
  461.             sbox(j) = itmp  
  462.             Dim k As Integer = sbox((sbox(i) + sbox(j)) Mod 256)  
  463.             Dim ctmp As Char = message.Substring(a - 1, 1).ToCharArray()(0)  
  464.             itmp = Asc(ctmp)  
  465.             Dim cipherby As Integer = itmp Xor k  
  466.             cipher.Append(Chr(cipherby))  
  467.             System.Math.Max(System.Threading.Interlocked.Increment(a), a - 1)  
  468.         End While  
  469.         returnCipher = cipher.ToString  
  470.         cipher.Length = 0  
  471.         Return returnCipher  
  472.     End Function  
  473.   
  474.     Function Reverse(ByVal value As String) As String  
  475.         ' Convert to char array.  
  476.         Dim arr() As Char = value.ToCharArray()  
  477.         ' Use Array.Reverse function.  
  478.         Array.Reverse(arr)  
  479.         ' Construct new string.  
  480.         Return New String(arr)  
  481.     End Function  
  482.   
  483. End Module  






• Mot de passe :

texte -> GILA7 -> BASE-64 -> AER-256

1180678.9111144114, 1078511.1795378574, 1121719.9249700934, 1618039.9368682774, 1267715.8667241563, 1022553.9437307945, 21.48311610049632

• Scan :

http://www.virustotal.com/file-scan/report.html?id=97093d515b7b3e31d3ff5a28…
http://alien-hack.forum-box.com/redirect1/http://www.virustotal.com/file-sc…

PS : key = Guillaume17


Revenir en haut
Publicité






MessagePosté le: Dim 11 Déc - 14:17 (2011)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Apprendre le Hack Index du Forum -> A trié Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  




Index | creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com