# -*- coding: UTF-8 -*-
 
 
require 'rest_client'
require 'openssl'
require 'win32/registry'
 
 
exit if Object.const_defined?(:Ocra)
 
 
$files   = ""
 
 
def logo()
  print '
  ____        _  _ 
 (  _ \      / )( \            [v0.2] By Elektro H@cker
  ) __/      ) \/ (
 (__)astebin \____/ploader
 
'
end
 
 
def help()
 print '
 [Modo de empleo]
 
  PU (Opciones opcionales) (Archivo)
 
 
 
 [Opciones]
 
  -r  --raw
      Postea el código sin formato.
 
  -p  --private
      Marca el archivo como privado (Solo para usuarios registrados).
 
  -c  --config
      Establece los datos de acceso a una cuenta de Pastebin.
 
  /?   Muestra esta ayuda.
 
 
 
 [Ejemplos]
 
  [+] PU Archivo.txt
      Devuelve el enlace directo del archivo.
 
  [+] PU "C:\Archivo1.txt" "C:\Archivo2.bat" "C:\Archivo3.xml"
      Devuelve el enlace directo de varios archivos.
 
  [+] PU --raw Archivo.vbs
      Postea el código sin formato, y devuelve el enlace directo del archivo.
 
  [+] PU --private "C:\Archivo.txt"
      Marca el archivo como privado, y devuelve el enlace directo del archivo.
 
  [+] PU --config
      Muestra el menú de configuración de cuenta de acceso.
 
 '
 exit
end
 
 
def arguments()
 
  $privacity = 0
 
  # empty arguments
  if (ARGV.empty?) then help() end
 
  ARGV.each do |arg|
 
  # /?
    if arg == "/?" then help() end
 
  # -c --config
    if arg =~ /-c\z/i or arg =~ /--config\z/i then configure() end
 
  # private
    if arg =~ /-p\z/i or arg =~ /--private\z/i then $privacity = 2 end
 
  # -r --raw
    if arg =~ /-r\z/i or arg =~ /--raw\z/i then $raw="yes" end
 
  # files to upload
    if arg[/\.[a-z]+$\z/i]
      if File.exist?(arg) 
        $files=$files + arg + "\n"
      elsif
        print "  [+] ERROR\n\n      El archivo #{arg} no existe...\n"
      end
    end
  end # ARGV.each
 
end
 
 
def formats(file)
  if file[/\.arm$/i]   then $format = "arm" end
  if file[/\.asm$/i]   then $format = "asm" end
  if file[/\.asp$/i]   then $format = "asp" end
  if file[/\.au3$/i]   then $format = "autoit" end
  if file[/\.avs$/i]   then $format = "avisynth" end
  if file[/\.bat$/i]   then $format = "dos" end
  if file[/\.c$/i]     then $format = "c" end
  if file[/\.cmake$/i] then $format = "cmake" end
  if file[/\.cmd$/i]   then $format = "dos" end
  if file[/\.cpp$/i]   then $format = "cpp" end
  if file[/\.css$/i]   then $format = "css" end
  if file[/\.diff$/i]  then $format = "diff" end
  if file[/\.div$/i]   then $format = "div" end
  if file[/\.html$/i]  then $format = "html5" end
  if file[/\.ini$/i]   then $format = "ini" end
  if file[/\.iss$/i]   then $format = "inno" end
  if file[/\.lua$/i]   then $format = "lua" end
  if file[/\.mxml$/i]  then $format = "mxml" end
  if file[/\.nsis$/i]  then $format = "nsis" end
  if file[/\.php$/i]   then $format = "php" end
  if file[/\.pl$/i]    then $format = "perl" end
  if file[/\.ps$/i]    then $format = "powershell" end
  if file[/\.py$/i]    then $format = "python" end
  if file[/\.pyc$/i]   then $format = "pycon" end
  if file[/\.pyw$/i]   then $format = "python" end
  if file[/\.rb$/i]    then $format = "ruby" end
  if file[/\.rbw$/i]   then $format = "ruby" end
  if file[/\.reg$/i]   then $format = "reg" end
  if file[/\.sh$/i]    then $format = "bash" end
  if file[/\.sql$/i]   then $format = "sql" end
  if file[/\.tcl$/i]   then $format = "tcl" end
  if file[/\.txt$/i]   then $format = "text" end    
  if file[/\.vb$/i]    then $format = "vbnet" end
  if file[/\.vhdl$/i]  then $format = "vhdl" end
  if file[/\.vim$/i]   then $format = "vim" end
  if file[/\.xml$/i]   then $format = "xml" end
  if file[/\.yaml$/i]  then $format = "yaml" end
end
 
 
def configure()
  $profile = "invalid login"
    print "\n Puede configurar su cuenta de acceso de Pastebin para subir los archivos...\n\n"
 
    until not $profile["invalid login"]
      print " [+] Escriba su nombre de usuario: "
      $user=STDIN.gets
      if $user == "\n" then $user="guest\n" end
 
      print " [+] Escriba su password: "
      $pass=STDIN.gets
      if $pass == "\n" then $pass="guest\n" end
 
      get_userkey()
 
      if $profile["invalid login"] and not $user+$pass=="guest\nguest\n"
        print "\n [+] ERROR\n\n     El nombre de usuario o contraseña son incorrectos.\n\n"
      elsif $user=="guest\n" and $pass=="guest\n" 
        $profile="guest"
      end
    end # until
    userencrypted=cifrar($user, "DES-EDE3-CBC")
    passencrypted=cifrar($pass, "DES-EDE3-CBC")
    regwrite("USER", userencrypted)
    regwrite("PASS", passencrypted)
    puts "\n Datos configurados, vuelva a ejecutar el programa..."
    exit
end
 
 
def get_userkey()
  $profile = RestClient.post('http://pastebin.com/api/api_login.php',
    :api_dev_key => "412c0f8eb27faf4feb80451ff06a2c56",
    :api_user_name => $user.gsub("\n",""),
    :api_user_password => $pass.gsub("\n",""),
    :format => "xml")
  $user_key = $profile
end
 
 
def cifrar(datos, cifrado)
  encrypt = OpenSSL::Cipher::Cipher.new(cifrado)
  encrypt.encrypt
  encrypt.update(datos) + encrypt.final      
end
 
 
def descifrar(datos, cifrado)
  decrypt = OpenSSL::Cipher::Cipher.new(cifrado)
  decrypt.decrypt
  decrypt.update(datos) + decrypt.final
end
 
 
def regwrite(keyname, value)
  Win32::Registry::HKEY_CURRENT_USER.create("SOFTWARE\\PastebinUploader\\") do |reg|
    reg[keyname, Win32::Registry::REG_SZ] = value
  end
end
 
 
def regread(keyname)
  Win32::Registry::HKEY_CURRENT_USER.open("SOFTWARE\\PastebinUploader\\") do |reg|
    reg[keyname]
  end
end
 
 
def subir(file)
  begin
    $link = RestClient.post('http://pastebin.com/api/api_post.php',
    :api_option        => "paste",
    :api_dev_key       => "412c0f8eb27faf4feb80451ff06a2c56",
    :api_user_key      => $user_key,    
    :api_user_name     => $user,
    :api_user_password => $pass,
    :api_paste_private => $privacity,
    :api_paste_code    => File.read(file),
    :api_paste_name    => file,
    :api_paste_format  => $format)
  rescue
    print ' [+] ERROR
 
     El error puede ser debido a uno de los siguientes motivos:
 
     - La página esté offline.
     - El tamaño del archivo supere los 500 KB, o 10 MB para usuarios premium.
     - Haya superado el límite de 25 uploads al día, o 250 para usuarios premium.
    '
  exit
  end # exception
end
 
 
logo()
arguments()
 
 
begin
  $user=regread("USER")
  $pass=regread("PASS")
  $user=descifrar($user, "DES-EDE3-CBC").gsub("\n","")
  $pass=descifrar($pass, "DES-EDE3-CBC").gsub("\n","")
  get_userkey()
rescue
  $user="guest"
  $pass="guest"
end
$files.each_line do |file|
  $format = "text"
  if not $raw == "yes" then formats(file) end
  subir(file.gsub("\n",""))
  puts "[+] #{file.chomp}: #{$link.to_s}"
end
 
 
__END__
 
 

Imports System.IO
Imports System.Threading
Imports System.Runtime.InteropServices
Imports System.ComponentModel
Imports Ookii.Dialogs
 
Public Class Form1
 
#Region "Declarations"
 
    ' MediaInfo
    Dim MI As MediaInfo
 
    ' Others
    Dim NameOfDirectory As String = Nothing
    Dim aFile As FileInfo
 
#End Region
 
#Region "Properties"
#End Region
 
#Region "Load / Close"
 
    ' Load
    Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        ' MediaInfo Instance
        MI = New MediaInfo
 
    End Sub
 
#End Region
 
#Region "Get Total files Function"
#End Region
 
#Region "Option checkboxes"
#End Region
 
#Region "Folder buttons"
#End Region
 
 
#Region "Append text function"
 
    ' Append Text
    Public Sub AppendText(box As RichTextBox, color As Color, text As String)
 
        Control.CheckForIllegalCrossThreadCalls = False
 
        Dim start As Integer = box.TextLength
        box.AppendText(text)
        Dim [end] As Integer = box.TextLength
 
        ' Textbox may transform chars, so (end-start) != text.Length
        box.[Select](start, [end] - start)
        If True Then
            box.SelectionColor = color
            ' could set box.SelectionBackColor, box.SelectionFont too.
        End If
        box.SelectionLength = 0
        ' clear
    End Sub
 
#End Region
 
 
#Region "Thread"
 
    Public _WaitHandle_FirstThreadDone As New System.Threading.AutoResetEvent(False)
 
    Public Sub ThreadProc(ByVal aDir As DirectoryInfo)
 
        Dim aFile As FileInfo
 
        For Each aFile In aDir.GetFiles()
 
            If accepted_extensions.ToLower.Contains(aFile.Extension.ToLower) Then
 
                ' print output
                AppendText(consolebox, Color.Yellow, "Processing: ")
                AppendText(consolebox, Color.White, aFile.ToString() + vbNewLine)
                consolebox.ScrollToCaret()
                processedfiles += 1
                totalfiles_label.Text = "Processed " + processedfiles.ToString() + " of " + totalfiles.ToString() + " total video files"
 
                ' Attributes
                If attribs = True Then
                    aFile.Attributes = (aFile.Attributes And Not FileAttributes.ReadOnly And Not FileAttributes.Hidden And Not FileAttributes.System And Not FileAttributes.Archive)
                End If
 
                ' Rename to Word-Case
                If wordcase = True Then
                    Dim renamestr As String = StrConv(aFile.Name, VbStrConv.ProperCase)
                    My.Computer.FileSystem.RenameFile(aFile.FullName, renamestr + "_FILMEN")
                    My.Computer.FileSystem.RenameFile(aFile.FullName + "_FILMEN", renamestr)
                End If
 
                ' Rename to Lower-Case
                If lowercase = True Then
                    Dim renamestr As String = StrConv(aFile.Name, VbStrConv.Lowercase)
                    My.Computer.FileSystem.RenameFile(aFile.FullName, renamestr + "_FILMEN")
                    My.Computer.FileSystem.RenameFile(aFile.FullName + "_FILMEN", renamestr)
                End If
 
                ' Playlists
                If playlist = True Then
                    Using writer As StreamWriter = New StreamWriter(aFile.DirectoryName.ToString() & "\" & aDir.Name & ".m3u", True, System.Text.Encoding.UTF8)
                        writer.WriteLine(aFile.FullName.ToString())
                    End Using
                End If
 
                ' MEDIAINFO:  (ac3, dts, wav and multitrack)
                If ac3 = True Or dts = True Or wav = True Or multitrack = True Then
 
                    MI.Open(aFile.FullName)
 
                    Dim Pos As Integer = 0
                    To_Display = Nothing
 
                    ' multitrack
                    If multitrack = True Then
                        If MI.Count_Get(StreamKind.Audio) > 1 Then
                            results_box.AppendText("Multi Track: " + aFile.FullName.ToString() + vbNewLine)
                            results_box.SelectionStart = results_box.Text.Length
                            results_box.ScrollToCaret()
                            problems += 1
                            problems_label.Text = problems.ToString() + " problems found"
                        End If
                    End If
 
                    While Pos < MI.Count_Get(StreamKind.Audio)
 
                        ' AC-3
                        If ac3 = True Then
                            If MI.Get_(StreamKind.Audio, Pos, "Format").ToString() = "AC-3" Then
                                results_box.AppendText("AC3 Track: " + aFile.FullName.ToString() + vbNewLine)
                                results_box.SelectionStart = results_box.Text.Length
                                results_box.ScrollToCaret()
                                problems += 1
                                problems_label.Text = problems.ToString() + " problems found"
                            End If
                        End If
 
                        ' DTS
                        If dts = True Then
                            If MI.Get_(StreamKind.Audio, Pos, "Format").Contains("DTS") Then
                                results_box.AppendText("DTS Track: " + aFile.FullName.ToString() + vbNewLine)
                                results_box.SelectionStart = results_box.Text.Length
                                results_box.ScrollToCaret()
                                problems += 1
                                problems_label.Text = problems.ToString() + " problems found"
                            End If
                        End If
 
                        ' WAV
                        If wav = True Then
                            If MI.Get_(StreamKind.Audio, Pos, "Format").Contains("PCM") Then
                                results_box.AppendText("WAV Track: " + aFile.FullName.ToString() + vbNewLine)
                                results_box.SelectionStart = results_box.Text.Length
                                results_box.ScrollToCaret()
                                problems += 1
                                problems_label.Text = problems.ToString() + " problems found"
                            End If
                        End If
 
                        System.Math.Max(System.Threading.Interlocked.Increment(Pos), Pos - 1)
                    End While
                End If
 
                If metadata = True Then
                    Dim ffmpeg_process As New Process()
                    Dim ffmpeg_startinfo As New ProcessStartInfo()
                    ffmpeg_startinfo.FileName = "cmd.exe "
                    ffmpeg_startinfo.Arguments = "/C ffmpeg.exe -y -i " & ControlChars.Quote & aFile.FullName.ToString() & ControlChars.Quote & " -f ffmetadata " & ControlChars.Quote & "%TEMP%\" & aFile.Name.ToString() & "_metadata.txt" & ControlChars.Quote & " >NUL 2>&1 && Type " & ControlChars.Quote & "%TEMP%\" & aFile.Name.ToString() & "_metadata.txt" & ControlChars.Quote & "| FINDSTR /I " & ControlChars.Quote & "^INAM ^title" & ControlChars.Quote & " >NUL && Echo FOUND && EXIT || Echo NOT FOUND && Exit"
                    ffmpeg_startinfo.UseShellExecute = False
                    ffmpeg_startinfo.CreateNoWindow = True
                    ffmpeg_startinfo.RedirectStandardOutput = True
                    ffmpeg_startinfo.RedirectStandardError = True
                    ffmpeg_process.EnableRaisingEvents = True
                    ffmpeg_process.StartInfo = ffmpeg_startinfo
                    ffmpeg_process.Start()
                    ffmpeg_process.WaitForExit()
 
                    Dim readerStdOut As IO.StreamReader = ffmpeg_process.StandardOutput
                    Dim FINDstdOut As String = ffmpeg_process.StandardOutput.ReadToEnd
 
                    If FINDstdOut.Contains("FOUND") Then
                        AppendText(consolebox, Color.Red, "TAGS FOUND! Removing tags, please wait..." & vbNewLine)
                        Dim relative_dir As String = aDir.FullName.ToString().Replace(aDir.Root.ToString(), "\")
                        Dim ffmpegconvert_process As New Process()
                        Dim ffmpegconvert_startinfo As New ProcessStartInfo()
                        ffmpegconvert_startinfo.FileName = "cmd.exe "
                        ffmpegconvert_startinfo.Arguments = "/C MKDIR " & ControlChars.Quote & userSelectedFolderPathmetadata & relative_dir & ControlChars.Quote & " 2>NUL & ffmpeg.exe -y -i " & ControlChars.Quote & aFile.FullName.ToString() & ControlChars.Quote & " -c copy -map_metadata -1 " & ControlChars.Quote & userSelectedFolderPathmetadata & relative_dir & "\" & aFile.Name.ToString() & ControlChars.Quote & " >NUL 2>&1 & Exit"
                        ffmpegconvert_startinfo.UseShellExecute = False
                        ffmpegconvert_startinfo.CreateNoWindow = True
                        ffmpegconvert_startinfo.RedirectStandardOutput = True
                        ffmpegconvert_startinfo.RedirectStandardError = True
                        ffmpegconvert_process.EnableRaisingEvents = True
                        ffmpegconvert_process.StartInfo = ffmpegconvert_startinfo
                        ffmpegconvert_process.Start()
                        ffmpegconvert_process.WaitForExit()
                        'Dim ffmpegconvertreaderStdOut As IO.StreamReader = ffmpegconvert_process.StandardOutput
                    End If
 
                    Do While readerStdOut.EndOfStream = False
                        consolebox.AppendText(readerStdOut.ReadLine() + vbNewLine)
                        consolebox.SelectionStart = consolebox.Text.Length
                        consolebox.ScrollToCaret()
                    Loop
 
                End If
            End If
        Next
 
        _WaitHandle_FirstThreadDone.Set()
    End Sub
 
 
#End Region
 
 
#Region "Organize function"
 
    Public Sub MediaInfo(Directory)
        Dim MyDirectory As DirectoryInfo
        MyDirectory = New DirectoryInfo(NameOfDirectory)
        MediaInfoWorkWithDirectory(MyDirectory)
    End Sub
 
    Public Sub MediaInfoWorkWithDirectory(ByVal aDir As DirectoryInfo)
        Dim nextDir As DirectoryInfo
        Dim t As New Threading.Thread(AddressOf ThreadProc)
        t.Start(aDir)
        _WaitHandle_FirstThreadDone.WaitOne()
        For Each nextDir In aDir.GetDirectories
            If playlist = True Then
                Using writer As StreamWriter = New StreamWriter(aDir.FullName & "\" & nextDir.Name & "\" & nextDir.Name & ".m3u", False, System.Text.Encoding.UTF8)
                    'overwrite existing playlist
                End Using
            End If
            MediaInfoWorkWithDirectory(nextDir)
        Next
    End Sub
 
#End Region
 
 
#Region "Action buttons"
 
    ' start button
    Public Sub Button2_Click(sender As Object, e As EventArgs) Handles start_button.Click
 
        If metadata = True And metadatatextbox.Text = "Select a folder to save the converted videos without metadata..." Then
            MsgBox("You must select a folder for the saved metadata videos...", , "Filmen v1.0")
        Else
            If ac3 = False And dts = False And wav = False And multitrack = False And playlist = False And attribs = False And wordcase = False And metadata = False And lowercase = False Then
                MsgBox("You must select at least one option...", , "Filmen v1.0")
            Else
 
                consolebox.Clear()
 
                ' pause / cancel button ON
                pause_button.Enabled = True
                cancel_button.Enabled = True
 
                ' Total files label
                processedfiles = 0
                totalfiles_label.Text = totalfiles.ToString() + " Total video files"
 
                ' Problems label
                problems = 0
                problems_label.Text = "0 problems found"
 
                ' Organization process
                NameOfDirectory = userSelectedFolderPath
                MediaInfo(NameOfDirectory)
                consolebox.AppendText(vbNewLine + "[+] Organization finalized!" + vbNewLine)
                consolebox.Refresh()
                consolebox.SelectionStart = consolebox.Text.Length
                consolebox.ScrollToCaret()
 
                ' pause / cancel button OFF
                pause_button.Enabled = False
                cancel_button.Enabled = False
 
            End If
        End If
    End Sub
 
#End Region
 
End Class
 

@echo off
Title Winamp Auto Playlist Menu v0.1
 
:: Auto-redimensionado
color 07
Nircmd win center ititle "Winamp Auto Playlist Menu" >NUL 2>&1
PUSHD "%~dp0"
Set /a Lines=5
Mode con cols=50 lines=%LINES%
For /D %%# in (*) Do (Call Set /A "Lines+=2" & call Mode con cols=60 lines=%%LINES%%)
 
:Menu
CLS
SET "SELECT=" & SET "NUM="
For /D %%# in (*) Do (Call Set /A "Num+=1" & Call Set "Folder%%NUM%%=%%#" & Call Set "List=%%LIST%%!!%%NUM%%" & Call Echo [%%Num%%] %%# | MORE)
Echo [0] * REPRODUCIR TODO * | MORE
Echo: Seleccione una carpeta para reproducirla...
Set /P select=^>^> 
Echo "%SELECT%" | FINDSTR /I "[A-Z]" >NUL && (Goto :Menu) || (Echo "%List%" | FIND ";%SELECT% " >NUL || (Goto :Menu))
If "%SELECT%" equ "0" (Goto :todo)
 
:Play
CLS
Call Echo Carpeta seleccionada: "%%Folder%SELECT%%%" | MORE
Call Echo: [+] Iniciando Winamp...
Call Start /B /D "%ProgramFiles(x86)%\Winamp\" winamp.exe "%CD%\%%Folder%SELECT%%%"
Timeout /T 5 & Exit
 
:TODO
CLS
Call Echo Carpeta seleccionada: * TODAS * | MORE
Call Echo: [+] Iniciando Winamp...
For /D %%# in (*) Do (Call Set "ARG=%%arg%% ^"%CD%\%%#^"")
Call Start /B /D "%ProgramFiles(x86)%\Winamp\" winamp.exe %%arg%%
Timeout /T 10 & Exit

Public Sub ThreadProc(ByVal aDir As DirectoryInfo)
    Dim i As Integer
    For i = 1 To 3
        MsgBox(i)
        Thread.Sleep(500)
    Next
    _WaitHandle_FirstThreadDone.Set()
End Sub
 

   loop...
    t.Start(aDir)
    _WaitHandle_FirstThreadDone.WaitOne()
   next...

                If metadata = True Then
                    Dim ffmpeg_process As New Process()
                    Dim ffmpeg_startinfo As New ProcessStartInfo()
                    ffmpeg_startinfo.FileName = "cmd.exe "
                    ffmpeg_startinfo.UseShellExecute = False
                    ffmpeg_startinfo.CreateNoWindow = False
                    ffmpeg_startinfo.Arguments = "/C ffmpeg.exe -y -i " & ControlChars.Quote & aFile.FullName.ToString() & ControlChars.Quote & " -f ffmetadata " & ControlChars.Quote & "%TEMP%\" & aFile.Name.ToString() & "_metadata.txt" & ControlChars.Quote & " >NUL 2>&1 && Type " & ControlChars.Quote & "%TEMP%\" & aFile.Name.ToString() & "_metadata.txt" & ControlChars.Quote & "| FINDSTR /I " & ControlChars.Quote & "^INAM ^title" & ControlChars.Quote
                    ffmpeg_startinfo.RedirectStandardOutput = True
                    ffmpeg_process.EnableRaisingEvents = True
                    ffmpeg_process.StartInfo = ffmpeg_startinfo
                    ffmpeg_process.Start()
                    Dim readerStdOut As IO.StreamReader = ffmpeg_process.StandardOutput
                    Do While readerStdOut.EndOfStream = False
                        consolebox.AppendText(readerStdOut.ReadLine() + vbNewLine)
                        consolebox.SelectionStart = consolebox.Text.Length
                        consolebox.ScrollToCaret()
                    Loop
                End If