# -*- 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__
Mostrar Mensajes
.
