Últimos Temas de: Eleкtro

Mostrar Temas
Páginas: 1 ... 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 [96] 97 98 99 100 101 102 103 104 105 106 107

951

Programación / Scripting / [Batch] [APORTE] Text Protector

en: 23 Marzo 2012, 21:07 pm

Un pequeño programa commandline para proteger sus archivos con contenido de texto para que queden inteligibles a ojos de otra persona.

Ejemplo:

Antes:

Código:

@Echo off
chcp 1252 >nul
Echo Test | More
Echo abc123 áéíóú ñ Ñ € ^
Pause

Después:

Código:

charlist[65,1]charlist[31,1]charlist[3,1]charlist[8,1]charlist[15,1]charlist[0,1]charlist[15,1]charlist[6,1]charlist[6,1]
charlist[3,1]charlist[16,1]charlist[3,1]charlist[8,1]charlist[0,1]charlist[54,1]charlist[55,1]charlist[58,1]charlist[55,1]charlist[0,1]charlist[78,1]charlist[14,1]charlist[21,1]charlist[12,1]
charlist[31,1]charlist[3,1]charlist[8,1]charlist[15,1]charlist[0,1]charlist[46,1]charlist[5,1]charlist[19,1]charlist[20,1]charlist[0,1]charlist[64,1]charlist[0,1]charlist[39,1]charlist[15,1]charlist[18,1]charlist[5,1]
charlist[31,1]charlist[3,1]charlist[8,1]charlist[15,1]charlist[0,1]charlist[1,1]charlist[2,1]charlist[3,1]charlist[54,1]charlist[55,1]charlist[56,1]charlist[0,1]charlist[172,1]charlist[147,1]charlist[174,1]charlist[175,1]charlist[110,1]charlist[0,1]charlist[202,1]charlist[0,1]charlist[203,1]charlist[0,1]charlist[210,1]charlist[0,1]charlist[92,1]
charlist[42,1]charlist[1,1]charlist[21,1]charlist[19,1]charlist[5,1]

- Testeado con archivos .bat (ANSI y UTF-8), .cmd, .rb, .rbw, .py, .pyw, .txt (ANSI y UTF-8), .reg y .vbs. Pero debería soportar cualquier archivo de tipo texto.

- No hay ningún tipo de problema con ningún caracter convencional de un teclado.

- Soporta una gran cantidad de caracteres adicionales.

DESCARGA (Correjido un despiste con el caracter "x" e "y"): http://www.mediafire.com/?rv7lk7k2zgf55yf
Espero que os guste.

Salu2.

Citar

Modo de empleo:

Protector.exe [Opción] [Archivo]

Opciones:

[-p] [--proteger] | Protege un archivo.

[-d] [--desproteger] | Desprotege un archivo.

Un código de ejemplo:

Código

@Echo OFF
For /F "Tokens=*" %%_ in ('Dir /B C:\Contraseñas\*.txt') Do (
     Echo: "%%_"
     Protector.exe --proteger "%%_" | Find "protegido" | More
     Del /Q "%%_")
Pause
Exit

PD: El script está codeado en Ruby, Lo pueden encontrar aquí: http://foro.elhacker.net/scripting/ruby_aporte_text_protector-t357330.0.html

952

Programación / Scripting / [Ruby] [APORTE] Text Protector

en: 23 Marzo 2012, 21:06 pm

Un pequeño code para proteger sus archivos con contenido de texto para que queden inteligibles a ojos de otra persona.

Ejemplo:

Antes:

Código:

En un lugar de la Mancha, de cuyo nombre no quiero acordarme...

Después:

Código:

charlist[31,1]charlist[14,1]charlist[0,1]charlist[21,1]charlist[14,1]charlist[0,1]charlist[12,1]charlist[21,1]charlist[7,1]charlist[1,1]charlist[18,1]charlist[0,1]charlist[4,1]charlist[5,1]charlist[0,1]charlist[12,1]charlist[1,1]charlist[0,1]charlist[39,1]charlist[1,1]charlist[14,1]charlist[3,1]charlist[8,1]charlist[1,1]charlist[80,1]charlist[0,1]charlist[4,1]charlist[5,1]charlist[0,1]charlist[3,1]charlist[21,1]charlist[25,1]charlist[15,1]charlist[0,1]charlist[14,1]charlist[15,1]charlist[13,1]charlist[2,1]charlist[18,1]charlist[5,1]charlist[0,1]charlist[14,1]charlist[15,1]charlist[0,1]charlist[17,1]charlist[21,1]charlist[9,1]charlist[5,1]charlist[18,1]charlist[15,1]charlist[0,1]charlist[1,1]charlist[3,1]charlist[15,1]charlist[18,1]charlist[4,1]charlist[1,1]charlist[18,1]charlist[13,1]charlist[5,1]charlist[81,1]charlist[81,1]charlist[81,1]

Citar

Modo de empleo:

  Protector.rb [Opción] [Archivo]

Opciones:

  [-p] [--proteger] | Protege un archivo.

  [-d] [--desproteger] | Desprotege un archivo.

Código:

# -*- coding: UTF-8 -*-
exit if Object.const_defined?(:Ocra)

def logo
 puts "
   _____           _       ___           _             _
  /__   \\_____  __| |_    / _ \\_ __ ___ | |_  ___  ___| |_  ___  _ __
    / /\\/ _ \\ \\/ /| __|  / /_)/ '__/ _ \\| __|/ _ \\/ __| __|/ _ \\| '__|
   / / |  __/>  < | |_  / ___/| | | (_) | |_|  __/ (__| |_| (_) | |
   \\/   \\___/_/\\_\\ \\__| \\/    |_|  \\___/ \\__|\\___|\\___|\\__|\\___/|_|

"
 sleep 0.50
 puts "
                           By Elektro H@cker

                   ▄░░░░░░░░░░░░░░░░░░░░░░░░▄█████░░
                   ███▄▄░░░░░░░░▄▄▄▄▄▄▄▄█████████▀░░
                   ██████▀░▄▄████████████████████░░░
                   ▀████░▄███████████████████████▄░░
                   ░███░▄███████████████████████████
                   ░▀█░█████████████████▀▀░░░██░████
                   ▄▄█████████████████▀░░░░░░██░████
                   ███▀▀████████████▀░░░░░░░▄█░░████
                   ███▄░░░░▀▀█████▀░▄▀▄░░░░▄█░░▄████
                   ░███▄▄░░▄▀▄░▀███▄▀▀░░▄▄▀█▀░░█████
                   ▄▄█▄▀█▄▄░▀▀████████▀███░░▄░██████
                   ▀████▄▀▀▀██▀▀██▀▀██░░▀█░░█▄█████░
                   ░░▀▀███▄░▀█░░▀█░░░▀░█░░░▄██████░▄
                   ████▄▄▀██▄░█░░▄░░█▄░███░████▀▀░▄█
                   █▀▀▀▀▀▀░█████▄█▄▄████████▀░▄▄░▄██
                   ░▄▄█▀▀░░░▀█▀██████████▀░▄███░░█▀░
                   ██▀░░░▄▄▀░░▄░▀▀▀████▀░▄████░░░░░░
                   █▀░░▄██░░▄██░░░░░░▀█░░████░░▄███▄
                   ░░▄███░▄███░░░░░░░░░░░░▀▀░░▄░░░▀▀
 "
 sleep 1
end

def help()
  print "\n Modo de empleo:\n\n"
  print "  " + __FILE__.split('/').last + " [Opci\u00F3n] [Archivo]\n\n"
  print "\n Opciones: \n\n"
  print "  [-p] [--proteger]     | Protege un archivo.\n\n"
  print "  [-d] [--desproteger]  | Desprotege un archivo.\n"
  Process.exit
end

def proteger(file)
 File.open(file, 'r').each_line do |string|
  print "Procesando línea: " + string.encode("utf-8")
  length = (string.length)-1
   until $long == length
    enc(string[$long,1])
   end
 write($newstring)
 $newstring = ''
 $long = 0
 end 
end

def desproteger(file)
 File.open(file, 'r').each_line do |string|
  dec(string)
 end 
end

def enc(character)
 while not character.eql? $charlist[$shift,1] and not character.encode("utf-8").eql? $charlist[$shift,1] 
  $shift += 1
 end
 $newstring = $newstring + "charlist[" + $shift.to_s + ",1]"
 $shift = 0
 $long += 1
end

def dec(string)
 string = string.gsub("charlist[0,1]", ' ').gsub("charlist[1,1]", 'a').gsub("charlist[2,1]", 'b').gsub("charlist[3,1]", 'c').gsub("charlist[4,1]", 'd').gsub("charlist[5,1]", 'e').gsub("charlist[6,1]", 'f').gsub("charlist[7,1]", 'g').gsub("charlist[8,1]", 'h').gsub("charlist[9,1]", 'i').gsub("charlist[10,1]", 'j').gsub("charlist[11,1]", 'k').gsub("charlist[12,1]", 'l').gsub("charlist[13,1]", 'm').gsub("charlist[14,1]", 'n').gsub("charlist[15,1]", 'o').gsub("charlist[16,1]", 'p').gsub("charlist[17,1]", 'q').gsub("charlist[18,1]", 'r').gsub("charlist[19,1]", 's').gsub("charlist[20,1]", 't').gsub("charlist[21,1]", 'u').gsub("charlist[22,1]", 'v').gsub("charlist[23,1]", 'w').gsub("charlist[24,1]", 'x').gsub("charlist[25,1]", 'y').gsub("charlist[26,1]", 'z').gsub("charlist[27,1]", 'A').gsub("charlist[28,1]", 'B').gsub("charlist[29,1]", 'C').gsub("charlist[30,1]", 'D').gsub("charlist[31,1]", 'E').gsub("charlist[32,1]", 'F').gsub("charlist[33,1]", 'G').gsub("charlist[34,1]", 'H').gsub("charlist[35,1]", 'I').gsub("charlist[36,1]", 'J').gsub("charlist[37,1]", 'K').gsub("charlist[38,1]", 'L').gsub("charlist[39,1]", 'M').gsub("charlist[40,1]", 'N').gsub("charlist[41,1]", 'O').gsub("charlist[42,1]", 'P').gsub("charlist[43,1]", 'Q').gsub("charlist[44,1]", 'R').gsub("charlist[45,1]", 'S').gsub("charlist[46,1]", 'T').gsub("charlist[47,1]", 'U').gsub("charlist[48,1]", 'V').gsub("charlist[49,1]", 'W').gsub("charlist[50,1]", 'X').gsub("charlist[51,1]", 'Y').gsub("charlist[52,1]", 'Z').gsub("charlist[53,1]", '0').gsub("charlist[54,1]", '1').gsub("charlist[55,1]", '2').gsub("charlist[56,1]", '3').gsub("charlist[57,1]", '4').gsub("charlist[58,1]", '5').gsub("charlist[59,1]", '6').gsub("charlist[60,1]", '7').gsub("charlist[61,1]", '8').gsub("charlist[62,1]", '9').gsub("charlist[63,1]", '\\').gsub("charlist[64,1]", '|').gsub("charlist[65,1]", '@').gsub("charlist[66,1]", '#').gsub("charlist[67,1]", '~').gsub("charlist[68,1]", '!').gsub("charlist[69,1]", '$').gsub("charlist[70,1]", '%').gsub("charlist[71,1]", '&').gsub("charlist[72,1]", '/').gsub("charlist[73,1]", '(').gsub("charlist[74,1]", ')').gsub("charlist[75,1]", '=').gsub("charlist[76,1]", '?').gsub("charlist[77,1]", '<').gsub("charlist[78,1]", '>').gsub("charlist[79,1]", ';').gsub("charlist[80,1]", ',').gsub("charlist[81,1]", '.').gsub("charlist[82,1]", '-').gsub("charlist[83,1]", '_').gsub("charlist[84,1]", '+').gsub("charlist[85,1]", '*').gsub("charlist[86,1]", '[').gsub("charlist[87,1]", ']').gsub("charlist[88,1]", '{').gsub("charlist[89,1]", '}').gsub("charlist[90,1]", '`').gsub("charlist[91,1]", '\'').gsub("charlist[92,1]", '^').gsub("charlist[93,1]", '"').gsub("charlist[94,1]", ':').gsub("charlist[95,1]", '…').gsub("charlist[108,1]", '…').gsub("charlist[109,1]", '‚').gsub("charlist[135,1]", '¡').gsub("charlist[136,1]", '¢').gsub("charlist[129,1]", '£').gsub("charlist[139,1]", 'Š').gsub("charlist[145,1]", 'Ö').gsub("charlist[141,1]", '•').gsub("charlist[142,1]", '—').gsub("charlist[143,1]", 'µ').gsub("charlist[121,1]", 'à').gsub("charlist[147,1]", 'é').gsub("charlist[148,1]", '·').gsub("charlist[149,1]", 'Ô').gsub("charlist[150,1]", 'Þ').gsub("charlist[151,1]", 'ã').gsub("charlist[152,1]", 'ë').gsub("charlist[158,1]", 'Ž').gsub("charlist[114,1]", '‰').gsub("charlist[132,1]", '‹').gsub("charlist[156,1]", '”').gsub("charlist[162,1]", 'š').gsub("charlist[158,1]", 'Ž').gsub("charlist[159,1]", 'Ó').gsub("charlist[160,1]", 'Ø').gsub("charlist[102,1]", '™').gsub("charlist[162,1]", 'š').gsub("charlist[163,1]", '¤').gsub("charlist[164,1]", '¥').gsub("charlist[165,1]", '¦').gsub("charlist[166,1]", 'ç').gsub("charlist[110,1]", 'ú').gsub("charlist[168,1]", '¨').gsub("charlist[97,1]", '').gsub("charlist[170,1]", 'ï').gsub("charlist[172,1]", 'á').gsub("charlist[112,1]", 'é').gsub("charlist[174,1]", 'í').gsub("charlist[175,1]", 'ó').gsub("charlist[179,1]", 'ì').gsub("charlist[180,1]", 'ò').gsub("charlist[130,1]", 'ù').gsub("charlist[182,1]", 'Á').gsub("charlist[183,1]", 'É').gsub("charlist[184,1]", 'Í').gsub("charlist[186,1]", 'Ú').gsub("charlist[187,1]", 'À').gsub("charlist[188,1]", 'È').gsub("charlist[189,1]", 'Ì').gsub("charlist[190,1]", 'Ò').gsub("charlist[191,1]", 'Ù').gsub("charlist[192,1]", 'ä').gsub("charlist[195,1]", 'ö').gsub("charlist[196,1]", 'ü').gsub("charlist[197,1]", 'Ä').gsub("charlist[198,1]", 'Ë').gsub("charlist[125,1]", 'Ï').gsub("charlist[201,1]", 'Ü').gsub("charlist[202,1]", 'ñ').gsub("charlist[203,1]", 'Ñ').gsub("charlist[204,1]", 'ª').gsub("charlist[205,1]", 'º').gsub("charlist[207,1]", '¿').gsub("charlist[209,1]", '´').gsub("charlist[210,1]", '€').gsub("charlist[211,1]", 'ç').gsub("charlist[212,1]", 'Ç').gsub("charlist[214,1]", 'Û').gsub("charlist[215,1]", '°').gsub("charlist[216,1]", 'ß')
 print "Procesando línea: " + string.encode("utf-8")
 File.open('desprotegido.bat', 'a+') do |escribir|
  escribir.print string
 end
end

def write(string)
 File.open(ARGV[1].split('.').first + "_PROTEGIDO_." + ARGV[1].split('.').last, 'a+') do |escribir|
  escribir.print $newstring + "\n"
 end
end



### Control de errores ###

def errors()
 if ARGV.empty? or ARGV[0] == "/?"
   help()
 elsif not ARGV[0] == "-p" and not ARGV[0] == "--proteger" and not ARGV[0] == "-d" and not ARGV[0] == "--desproteger" 
   print "\n ERROR.   Opcion incorrecta...\n\n"
   help()
 elsif (ARGV[1])==()
   print "\n ERROR.            Debe escribir la ruta del archivo...\n\n"
   Process.exit
 elsif not File.exist? (ARGV[1]) 
   print "\n ERROR.            El archivo no existe...\n\n"
   Process.exit
 elsif 
  fileext = (ARGV[1].split('.').last)
  ext = $extensions.include?fileext
    if ext == false 
      print "\n ERROR.            ." + fileext + " no es un formato compatible...\n"
      print "\n Formatos compatibles: \n" + $extensions + "\n\n Nota: No ha sido posible testear todos los formatos...\n"
      Process.exit
    end
  end
end



### vars ###

$charlist = ' abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789\\|@#~!$%&/()=?<>;,.-_+*[]{}`\'^":…‚¡¢£…ŠÖ•—µ‚Öàé·ÔÞãëŽ‰‹”šŽÓØ™š¤¥¦§ú¨ïáéíóúàèìòùÁÉÍÓÚÀÈÌÒÙäëïöüÄËÏÖÜñÑªº·¿¡´€ßÚÝ¾·ÓÞý‗¨┴╔═Ë┌└╚╠Ê┘õÙ´÷³─╦¤Í▄±Ð¬║À┐í┤ÇþÃ▄█░▀├┬ø'
$extensions = "
 .1st .ans .bat .cmd .cs  .diz .doc .eml .err .fft 
 .js  .log .lst .me  .nfo .odt .php .py  .pyw .rb  
 .rbw .rft .reg .rpt .rtd .rtf .rtx .saf .sig .sub
 .sxg .sxw .tex .thp .tmd .tvj .txt .unx .vbs .vct 
 .vnt .wbk .wp  .wpd .wpt .wri .xdl .xml .yml"
$newstring = ''
$long = 0
$shift = 0
file = ARGV[1]



### Proceso ###

logo()
errors()

if ARGV[0] == "-p" or ARGV[0] == "--proteger"
  File.open(file, 'a+') do |escribir|
    escribir.print "\n"
  end
 proteger(file)
 print "\n\nArchivo protegido.\n"
end

if ARGV[0] == "-d" or ARGV[0] == "--desproteger"
 desproteger(file)
 print "\nArchivo desprotegido.\n"
end


__END__

953	Sistemas Operativos / Windows / (Solucionado) Código ALT+ Para introducir un "Enter" ?	en: 21 Marzo 2012, 19:47 pm
Para introducir un espacio usando los códigos alt de windows es: "ALT+32", Pero... ¿Existe algún código ALT+ para introducir un "Enter"? PD: He visto los 255 ALT caracteres y no hay nada sobre el enter... Pero quizás exista algún "Truco"? u otra forma? gracias...

954	Sistemas Operativos / Windows / (Solucionado) Crear un archivo desde el menú contextual con contenido escrito?	en: 21 Marzo 2012, 18:56 pm
Hola Se me ha ocurrido que estaría muy bien por ejemplo para los que practicamos mucho scripting... Que al usar la opción del menú contextual "Nuevo > archivo de texto" se creara el archivo con un contenido de texto dentro (Personalizado)... Como si fuese una plantilla vamos. Por ejemplo "Nuevo > Archivo bat" y dentro del bat por defecto: Código @Echo off Pause Exit Creo que debe haber alguna opción en el registro de Windows para poder hacerlo... ¿Alguien sabe algo? EDITO: Ya lo he conseguido, Solo hay que crear una clave de nombre "Data" y de valor "SZ" o "BINARY" y colocar el texto Pero tiene una limitación, No se pueden agregar saltos de linea, me refiero a lineas vacías... Quizás si, pero no se hacerlo. Un saludo

955

Programación / Scripting / [BATCH] [APORTE] MouseXY (Devuelve las coordenadas del mouse)

en: 21 Marzo 2012, 13:39 pm

No es un Bat, Pero es una herramienta commandline para Windows que devuelve la posición del mouse. Sirve para usarla en un bat.

Hay 2 versiones:

1ª.
x64:
x86:
Esta versión devuelve la posición una sola vez.

2ª
http://www.mediafire.com/?koxk9r3tykf1tad
Esta versión devuelve la posición en un ciclo infinito.

EDITO: Los links me los borran de todos los servers, será mejor que lo conviertan a exe ustedes mismos.

Salu2

El script original desde el cual he compilado la versión x64 es este:

Código

# Python
# Script original: http://www.daniweb.com/software-development/python/code/230886/get-the-mouse-position-on-the-screen-on-linux
 
import ctypes as ct
import os, time
 
class GetPoint(ct.Structure):
    _fields_ = [("x", ct.c_ulong), ("y", ct.c_ulong)]
 
def get_mousepos():
    pt = GetPoint()
    ct.windll.user32.GetCursorPos(ct.byref(pt))
    return int(pt.x), int(pt.y)
 
os.system('Title Mouse XY coordenates MOD by Elektro H@cker')
 
infinito = 1
while infinito == 1 :
	time.sleep(0.10)
	os.system('cls')
	print( "x=%d, y=%d" % get_mousepos() )
show()

- El script original desde el cual he compilado la versión x86 es este:

Código

# Ruby
# Script original: http://www.tobiasbraner.de/2011/07/04/windows-get-the-mouse-position-with-ruby/
 
 
require 'Win32API'
exit if Object.const_defined?(:Ocra)
 
infinito = 1
getCursorPos = Win32API.new("user32", "GetCursorPos", ['P'], 'V')
lpPoint = " " * 8
system('Title MouseXY MOD By Elektro H@cker')
 
while infinito == 1
  system('cls')
  getCursorPos.Call(lpPoint)
  x, y = lpPoint.unpack("LL")
  print "X:", x, " Y:", y,""
  sleep 0.15
end
 
# Fin

956

Programación / Scripting / [BATCH] [APORTE] BatOfuser Ofuscador/Desofuscador para bats.

en: 21 Marzo 2012, 12:02 pm

BatOfuser
By Elektro H@cker

Esto es un versión experimental, La he probado con varios scripts y funciona. También sirve para ofuscar texto plano y supongo que con otros formatos también debería funcionar.

Me ha costado bastante esfuerzo realizar un ofuscador sin usar la expansion (Todos los ofuscadores de bats que he visto la usan, Y eso conlleva incompatibilidad con algunos caracteres)

Este ofuscador soporta muchos, muchos más caracteres que otro ofuscador (Hecho en batch) convencional.

Errores conocidos:

Si una linea del script contiene un número impar de comilals dobles (Debido a una mala sintaxis del usuario) esa línea no se llegará a ofuscar correctamente, Asegurense de cerrar las comillas en sus códigos.
Elcaracter del escape ^ se desofusca 2 veces SI NO SE TRATA DE UN .BAT

Espero que lo disfruten.

Salu2

PD: En cuanto pueda, El proyecto lo codearé en Ruby para eliminar de golpe los errores y agregar una mejor compatibilidad sobre los caracteres utf-8, Y de paso lo compilaré para Windows para poder usar el ofuscador por linea de comandos, Como una herramienta más.

Test.bat

Código

@echo off
Title BatOfuser Test
REM Elektro H@cker
REM Visita: Foro.ElHacker.Net
CHCP 1252 >NUL
Echo+
Echo: 0123456789
Echo: abcdefghijklmnopqrstuvwxyz
Echo: ABCDEFGHIJKLMNOPQRSTUVWXYZ
Echo: áéíóú àèìòù ÁÉÍÓÚ ÀÈÌÒÙ äëïöü ÄËÏÖÜ ñ Ñ ª º · ¿ ¡ '
Echo: \|@#~!$%&/()=?<>:;,.-_+*[]{}`'^^ ""
Echo+
Pause
Exit

BatOfuser.bat

Código:

@Echo OFF
Title BatOfuser

REM By Elektro H@cker
:: Visita: Foro.elhacker.net

Mode con cols=108 lines=25
NirCMD Win Center Ititle "BatOfuser" >NUL 2>&1
REM chcp 1252 >NUL

:Logo
Echo+
Echo: 88888888ba                          ,ad8888ba,       ad88
Echo: 88      "8b                ,d      d8"'    `"8b     d8"
Echo: 88      ,8P                88     d8'        `8b    88
Echo: 88aaaaaa8P'  ,adPPYYba,  MM88MMM  88          88  MM88MMM  88       88  ,adPPYba,   ,adPPYba,  8b,dPPYba,
Echo: 88""""""8b,  ""     `Y8    88     88          88    88     88       88  I8[    ""  a8P_____88  88P'   "Y8
Echo: 88      `8b  ,adPPPPP88    88     Y8,        ,8P    88     88       88   `"Y8ba,   8PP"""""""  88
Echo: 88      a8P  88,    ,88    88,     Y8a.    .a8P     88     "8a,   ,a88  aa    ]8I  "8b,   ,aa  88
Echo: 88888888P"   `"8bbdP"Y8    "Y888    `"Y8888Y"'      88      `"YbbdP'Y8  `"YbbdP"'   `"Ybbd8"'  88
Echo+
Echo: By Elektro H@cker
Echo+ 
Echo: ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ
Goto :Menu

:Charlist
Set "Alpha=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
Set "Numeric=0123456789"
Set "Special=\|@#~!$%&/()=?<>;,.-_+*[]{}`'^^":
Set "Special_UTF8=…‚¡¢£…ŠÖ•—µ‚Öàé·ÔÞãëŽ‰‹”šŽÓØ™š¤¥¦§ú¨ï"
Rem Special_UTF8= áéíóú àèìòù ÁÉÍÓÚ ÀÈÌÒÙ äëïöü ÄËÏÖÜ ñ Ñ ª º · ¿ ¡ '

:Menu
Echo+
Echo: Arrastra a la ventana el archivo que quieres ofuscar/desofuscar... | More
Set /P Archivo=^>^>^> 
If not defined archivo (Goto :Menu)
Type %archivo%| Find "By Elektro H@cker" >NUL 2>&1
If %Errorlevel% EQU 0 (Goto :Desofuscador) 
Cls




:::::::::::::::::
:Ofuscador
:::::::::::::::::

:Lineas
Set Linea=0
For /F "Tokens=*" %%a in ('Type %Archivo% ^| Find /V /C ""') do (Set Total=%%a)

:Leer_Ofuscador
If "%linea%" EQU "%total%" (Goto :Fin_Ofuscador)

For /F "Tokens=*" %%a in ('Type %Archivo% ^| MORE +%Linea%') do (
    Echo: Ofuscando: "%%a"
    Set /A Linea+=1
    Set "String=%%a"
    If not defined string (Goto :Leer_Ofuscador)
    Echo %%a>"%TEMP%\String.tmp"
    FOR %%? IN (%TEMP%\String.tmp) DO ( SET /A Longitud=%%~z? - 2 )
    Goto :Ofuscar
)




::::::::::::::::::::::
:Desofuscador
::::::::::::::::::::::

:Lineas
Set Linea=0
For /F "Tokens=*" %%a in ('Type %Archivo% ^| Find /V /C ""') do (Set Total=%%a)


:Leer_Desofuscador
For /F "Tokens=*" %%a in ('Type %Archivo% ^| MORE /E +%Linea%') do (
    Set /A Linea+=1
    Set "String=%%a"
    Goto :Desofuscar
)




:Ofuscar


If "%Count%" EQU "%Longitud%" (
    call :Write_Ofuscador
    Goto :Leer_Ofuscador)

::Comilladoble
Set "String=%String:"=€%"& rem "

::Espacio
If "%String:~0,1%" EQU " " (Set "New_String=%New_String% ")

::Alpha
If "%String:~0,1%" EQU "a" (Set "New_String=%New_String%%%Alpha:~0,1%%")
If "%String:~0,1%" EQU "b" (Set "New_String=%New_String%%%Alpha:~1,1%%")
If "%String:~0,1%" EQU "c" (Set "New_String=%New_String%%%Alpha:~2,1%%")
If "%String:~0,1%" EQU "d" (Set "New_String=%New_String%%%Alpha:~3,1%%")
If "%String:~0,1%" EQU "e" (Set "New_String=%New_String%%%Alpha:~4,1%%")
If "%String:~0,1%" EQU "f" (Set "New_String=%New_String%%%Alpha:~5,1%%")
If "%String:~0,1%" EQU "g" (Set "New_String=%New_String%%%Alpha:~6,1%%")
If "%String:~0,1%" EQU "h" (Set "New_String=%New_String%%%Alpha:~7,1%%")
If "%String:~0,1%" EQU "i" (Set "New_String=%New_String%%%Alpha:~8,1%%")
If "%String:~0,1%" EQU "j" (Set "New_String=%New_String%%%Alpha:~9,1%%")
If "%String:~0,1%" EQU "k" (Set "New_String=%New_String%%%Alpha:~10,1%%")
If "%String:~0,1%" EQU "l" (Set "New_String=%New_String%%%Alpha:~11,1%%")
If "%String:~0,1%" EQU "m" (Set "New_String=%New_String%%%Alpha:~12,1%%")
If "%String:~0,1%" EQU "n" (Set "New_String=%New_String%%%Alpha:~13,1%%")
If "%String:~0,1%" EQU "o" (Set "New_String=%New_String%%%Alpha:~14,1%%")
If "%String:~0,1%" EQU "p" (Set "New_String=%New_String%%%Alpha:~15,1%%")
If "%String:~0,1%" EQU "q" (Set "New_String=%New_String%%%Alpha:~16,1%%")
If "%String:~0,1%" EQU "r" (Set "New_String=%New_String%%%Alpha:~17,1%%")
If "%String:~0,1%" EQU "s" (Set "New_String=%New_String%%%Alpha:~18,1%%")
If "%String:~0,1%" EQU "t" (Set "New_String=%New_String%%%Alpha:~19,1%%")
If "%String:~0,1%" EQU "u" (Set "New_String=%New_String%%%Alpha:~20,1%%")
If "%String:~0,1%" EQU "v" (Set "New_String=%New_String%%%Alpha:~21,1%%")
If "%String:~0,1%" EQU "w" (Set "New_String=%New_String%%%Alpha:~22,1%%")
If "%String:~0,1%" EQU "x" (Set "New_String=%New_String%%%Alpha:~23,1%%")
If "%String:~0,1%" EQU "y" (Set "New_String=%New_String%%%Alpha:~24,1%%")
If "%String:~0,1%" EQU "z" (Set "New_String=%New_String%%%Alpha:~25,1%%")
If "%String:~0,1%" EQU "A" (Set "New_String=%New_String%%%Alpha:~26,1%%")
If "%String:~0,1%" EQU "B" (Set "New_String=%New_String%%%Alpha:~27,1%%")
If "%String:~0,1%" EQU "C" (Set "New_String=%New_String%%%Alpha:~28,1%%")
If "%String:~0,1%" EQU "D" (Set "New_String=%New_String%%%Alpha:~29,1%%")
If "%String:~0,1%" EQU "E" (Set "New_String=%New_String%%%Alpha:~30,1%%")
If "%String:~0,1%" EQU "F" (Set "New_String=%New_String%%%Alpha:~31,1%%")
If "%String:~0,1%" EQU "G" (Set "New_String=%New_String%%%Alpha:~32,1%%")
If "%String:~0,1%" EQU "H" (Set "New_String=%New_String%%%Alpha:~33,1%%")
If "%String:~0,1%" EQU "I" (Set "New_String=%New_String%%%Alpha:~34,1%%")
If "%String:~0,1%" EQU "J" (Set "New_String=%New_String%%%Alpha:~35,1%%")
If "%String:~0,1%" EQU "K" (Set "New_String=%New_String%%%Alpha:~36,1%%")
If "%String:~0,1%" EQU "L" (Set "New_String=%New_String%%%Alpha:~37,1%%")
If "%String:~0,1%" EQU "M" (Set "New_String=%New_String%%%Alpha:~38,1%%")
If "%String:~0,1%" EQU "N" (Set "New_String=%New_String%%%Alpha:~39,1%%")
If "%String:~0,1%" EQU "O" (Set "New_String=%New_String%%%Alpha:~40,1%%")
If "%String:~0,1%" EQU "P" (Set "New_String=%New_String%%%Alpha:~41,1%%")
If "%String:~0,1%" EQU "Q" (Set "New_String=%New_String%%%Alpha:~42,1%%")
If "%String:~0,1%" EQU "R" (Set "New_String=%New_String%%%Alpha:~43,1%%")
If "%String:~0,1%" EQU "S" (Set "New_String=%New_String%%%Alpha:~44,1%%")
If "%String:~0,1%" EQU "T" (Set "New_String=%New_String%%%Alpha:~45,1%%")
If "%String:~0,1%" EQU "U" (Set "New_String=%New_String%%%Alpha:~46,1%%")
If "%String:~0,1%" EQU "V" (Set "New_String=%New_String%%%Alpha:~47,1%%")
If "%String:~0,1%" EQU "W" (Set "New_String=%New_String%%%Alpha:~48,1%%")
If "%String:~0,1%" EQU "X" (Set "New_String=%New_String%%%Alpha:~49,1%%")
If "%String:~0,1%" EQU "Y" (Set "New_String=%New_String%%%Alpha:~50,1%%")
If "%String:~0,1%" EQU "Z" (Set "New_String=%New_String%%%Alpha:~51,1%%")

::Numeric
If "%String:~0,1%" EQU "0" (Set "New_String=%New_String%%%Numeric:~0,1%%")
If "%String:~0,1%" EQU "1" (Set "New_String=%New_String%%%Numeric:~1,1%%")
If "%String:~0,1%" EQU "2" (Set "New_String=%New_String%%%Numeric:~2,1%%")
If "%String:~0,1%" EQU "3" (Set "New_String=%New_String%%%Numeric:~3,1%%")
If "%String:~0,1%" EQU "4" (Set "New_String=%New_String%%%Numeric:~4,1%%")
If "%String:~0,1%" EQU "5" (Set "New_String=%New_String%%%Numeric:~5,1%%")
If "%String:~0,1%" EQU "6" (Set "New_String=%New_String%%%Numeric:~6,1%%")
If "%String:~0,1%" EQU "7" (Set "New_String=%New_String%%%Numeric:~7,1%%")
If "%String:~0,1%" EQU "8" (Set "New_String=%New_String%%%Numeric:~8,1%%")
If "%String:~0,1%" EQU "9" (Set "New_String=%New_String%%%Numeric:~9,1%%")

::Special_UTF8
If "%String:~0,1%" EQU "á" (Set "New_String=%New_String%%%Special_UTF8:~0,1%%")
If "%String:~0,1%" EQU "é" (Set "New_String=%New_String%%%Special_UTF8:~1,1%%")
If "%String:~0,1%" EQU "í" (Set "New_String=%New_String%%%Special_UTF8:~2,1%%")
If "%String:~0,1%" EQU "ó" (Set "New_String=%New_String%%%Special_UTF8:~3,1%%")
If "%String:~0,1%" EQU "ú" (Set "New_String=%New_String%%%Special_UTF8:~4,1%%")
If "%String:~0,1%" EQU "à" (Set "New_String=%New_String%%%Special_UTF8:~5,1%%")
If "%String:~0,1%" EQU "è" (Set "New_String=%New_String%%%Special_UTF8:~6,1%%")
If "%String:~0,1%" EQU "ì" (Set "New_String=%New_String%%%Special_UTF8:~7,1%%")
If "%String:~0,1%" EQU "ò" (Set "New_String=%New_String%%%Special_UTF8:~8,1%%")
If "%String:~0,1%" EQU "ù" (Set "New_String=%New_String%%%Special_UTF8:~9,1%%")
If "%String:~0,1%" EQU "Á" (Set "New_String=%New_String%%%Special_UTF8:~10,1%%")
If "%String:~0,1%" EQU "É" (Set "New_String=%New_String%%%Special_UTF8:~11,1%%")
If "%String:~0,1%" EQU "Í" (Set "New_String=%New_String%%%Special_UTF8:~12,1%%")
If "%String:~0,1%" EQU "Ó" (Set "New_String=%New_String%%%Special_UTF8:~13,1%%")
If "%String:~0,1%" EQU "Ú" (Set "New_String=%New_String%%%Special_UTF8:~14,1%%")
If "%String:~0,1%" EQU "À" (Set "New_String=%New_String%%%Special_UTF8:~15,1%%")
If "%String:~0,1%" EQU "È" (Set "New_String=%New_String%%%Special_UTF8:~16,1%%")
If "%String:~0,1%" EQU "Ì" (Set "New_String=%New_String%%%Special_UTF8:~17,1%%")
If "%String:~0,1%" EQU "Ò" (Set "New_String=%New_String%%%Special_UTF8:~18,1%%")
If "%String:~0,1%" EQU "Ù" (Set "New_String=%New_String%%%Special_UTF8:~19,1%%")
If "%String:~0,1%" EQU "ä" (Set "New_String=%New_String%%%Special_UTF8:~20,1%%")
If "%String:~0,1%" EQU "ë" (Set "New_String=%New_String%%%Special_UTF8:~21,1%%")
If "%String:~0,1%" EQU "ï" (Set "New_String=%New_String%%%Special_UTF8:~22,1%%")
If "%String:~0,1%" EQU "ö" (Set "New_String=%New_String%%%Special_UTF8:~23,1%%")
If "%String:~0,1%" EQU "ü" (Set "New_String=%New_String%%%Special_UTF8:~24,1%%")
If "%String:~0,1%" EQU "Ä" (Set "New_String=%New_String%%%Special_UTF8:~25,1%%")
If "%String:~0,1%" EQU "Ë" (Set "New_String=%New_String%%%Special_UTF8:~26,1%%")
If "%String:~0,1%" EQU "Ï" (Set "New_String=%New_String%%%Special_UTF8:~27,1%%")
If "%String:~0,1%" EQU "Ö" (Set "New_String=%New_String%%%Special_UTF8:~28,1%%")
If "%String:~0,1%" EQU "Ü" (Set "New_String=%New_String%%%Special_UTF8:~29,1%%")
If "%String:~0,1%" EQU "ñ" (Set "New_String=%New_String%%%Special_UTF8:~30,1%%")
If "%String:~0,1%" EQU "Ñ" (Set "New_String=%New_String%%%Special_UTF8:~31,1%%")
If "%String:~0,1%" EQU "ª" (Set "New_String=%New_String%%%Special_UTF8:~32,1%%")
If "%String:~0,1%" EQU "º" (Set "New_String=%New_String%%%Special_UTF8:~33,1%%")
If "%String:~0,1%" EQU "·" (Set "New_String=%New_String%%%Special_UTF8:~34,1%%")
If "%String:~0,1%" EQU "¿" (Set "New_String=%New_String%%%Special_UTF8:~35,1%%")
If "%String:~0,1%" EQU "¡" (Set "New_String=%New_String%%%Special_UTF8:~36,1%%")
If "%String:~0,1%" EQU "´" (Set "New_String=%New_String%%%Special_UTF8:~37,1%%")

::Special
If "%String:~0,1%" EQU "€" (Set "New_String=%New_String%€")
If "%String:~0,1%" EQU "\" (Set "New_String=%New_String%%%Special:~0,1%%")
If "%String:~0,1%" EQU "|" (Set "New_String=%New_String%%%Special:~1,1%%")
If "%String:~0,1%" EQU "@" (Set "New_String=%New_String%%%Special:~2,1%%")
If "%String:~0,1%" EQU "#" (Set "New_String=%New_String%%%Special:~3,1%%")
If "%String:~0,1%" EQU "~" (Set "New_String=%New_String%%%Special:~4,1%%")
If "%String:~0,1%" EQU "!" (Set "New_String=%New_String%%%Special:~5,1%%")
If "%String:~0,1%" EQU "$" (Set "New_String=%New_String%%%Special:~6,1%%")
If "%String:~0,1%" EQU "%%" (Set "New_String=%New_String%%%Special:~7,1%%")
If "%String:~0,1%" EQU "&" (Set "New_String=%New_String%%%Special:~8,1%%")
If "%String:~0,1%" EQU "/" (Set "New_String=%New_String%%%Special:~9,1%%")
If "%String:~0,1%" EQU "(" (Set "New_String=%New_String%%%Special:~10,1%%")
If "%String:~0,1%" EQU ")" (Set "New_String=%New_String%%%Special:~11,1%%")
If "%String:~0,1%" EQU "=" (Set "New_String=%New_String%%%Special:~12,1%%")
If "%String:~0,1%" EQU "?" (Set "New_String=%New_String%%%Special:~13,1%%")
If "%String:~0,1%" EQU "<" (Set "New_String=%New_String%%%Special:~14,1%%")
If "%String:~0,1%" EQU ">" (Set "New_String=%New_String%%%Special:~15,1%%")
If "%String:~0,1%" EQU ";" (Set "New_String=%New_String%%%Special:~16,1%%")
If "%String:~0,1%" EQU "," (Set "New_String=%New_String%%%Special:~17,1%%")
If "%String:~0,1%" EQU "." (Set "New_String=%New_String%%%Special:~18,1%%")
If "%String:~0,1%" EQU "-" (Set "New_String=%New_String%%%Special:~19,1%%")
If "%String:~0,1%" EQU "_" (Set "New_String=%New_String%%%Special:~20,1%%")
If "%String:~0,1%" EQU "+" (Set "New_String=%New_String%%%Special:~21,1%%")
If "%String:~0,1%" EQU "*" (Set "New_String=%New_String%%%Special:~22,1%%")
If "%String:~0,1%" EQU "[" (Set "New_String=%New_String%%%Special:~23,1%%")
If "%String:~0,1%" EQU "]" (Set "New_String=%New_String%%%Special:~24,1%%")
If "%String:~0,1%" EQU "{" (Set "New_String=%New_String%%%Special:~25,1%%")
If "%String:~0,1%" EQU "}" (Set "New_String=%New_String%%%Special:~26,1%%")
If "%String:~0,1%" EQU "`" (Set "New_String=%New_String%%%Special:~27,1%%")
If "%String:~0,1%" EQU "'" (Set "New_String=%New_String%%%Special:~28,1%%")
If "%String:~0,1%" EQU "^" (Set "New_String=%New_String%%%Special:~29,1%%")
If "%String:~0,1%" EQU ":" (Set "New_String=%New_String%%%Special:~30,1%%")

Set "String=%String:~1%"
Set /A Count+=1
Goto :Ofuscar




:Desofuscar

::Alpha
Set "String=%String:Alpha:~0,1=a%"
Set "String=%String:Alpha:~1,1=b%"
Set "String=%String:Alpha:~2,1=c%"
Set "String=%String:Alpha:~3,1=d%"
Set "String=%String:Alpha:~4,1=e%"
Set "String=%String:Alpha:~5,1=f%"
Set "String=%String:Alpha:~6,1=g%"
Set "String=%String:Alpha:~7,1=h%"
Set "String=%String:Alpha:~8,1=i%"
Set "String=%String:Alpha:~9,1=j%"
Set "String=%String:Alpha:~10,1=k%"
Set "String=%String:Alpha:~11,1=l%"
Set "String=%String:Alpha:~12,1=m%"
Set "String=%String:Alpha:~13,1=n%"
Set "String=%String:Alpha:~14,1=o%"
Set "String=%String:Alpha:~15,1=p%"
Set "String=%String:Alpha:~16,1=q%"
Set "String=%String:Alpha:~17,1=r%"
Set "String=%String:Alpha:~18,1=s%"
Set "String=%String:Alpha:~19,1=t%"
Set "String=%String:Alpha:~20,1=u%"
Set "String=%String:Alpha:~21,1=v%"
Set "String=%String:Alpha:~22,1=w%"
Set "String=%String:Alpha:~23,1=x%"
Set "String=%String:Alpha:~24,1=y%"
Set "String=%String:Alpha:~25,1=z%"
Set "String=%String:Alpha:~26,1=A%"
Set "String=%String:Alpha:~27,1=B%"
Set "String=%String:Alpha:~28,1=C%"
Set "String=%String:Alpha:~29,1=D%"
Set "String=%String:Alpha:~30,1=E%"
Set "String=%String:Alpha:~31,1=F%"
Set "String=%String:Alpha:~32,1=G%"
Set "String=%String:Alpha:~33,1=H%"
Set "String=%String:Alpha:~34,1=I%"
Set "String=%String:Alpha:~35,1=J%"
Set "String=%String:Alpha:~36,1=K%"
Set "String=%String:Alpha:~37,1=L%"
Set "String=%String:Alpha:~38,1=M%"
Set "String=%String:Alpha:~39,1=N%"
Set "String=%String:Alpha:~40,1=O%"
Set "String=%String:Alpha:~41,1=P%"
Set "String=%String:Alpha:~42,1=Q%"
Set "String=%String:Alpha:~43,1=R%"
Set "String=%String:Alpha:~44,1=S%"
Set "String=%String:Alpha:~45,1=T%"
Set "String=%String:Alpha:~46,1=U%"
Set "String=%String:Alpha:~47,1=V%"
Set "String=%String:Alpha:~48,1=W%"
Set "String=%String:Alpha:~49,1=X%"
Set "String=%String:Alpha:~50,1=Y%"
Set "String=%String:Alpha:~51,1=Z%"

::Numeric
Set "String=%String:Numeric:~0,1=0%"
Set "String=%String:Numeric:~1,1=1%"
Set "String=%String:Numeric:~2,1=2%"
Set "String=%String:Numeric:~3,1=3%"
Set "String=%String:Numeric:~4,1=4%"
Set "String=%String:Numeric:~5,1=5%"
Set "String=%String:Numeric:~6,1=6%"
Set "String=%String:Numeric:~7,1=7%"
Set "String=%String:Numeric:~8,1=8%"
Set "String=%String:Numeric:~9,1=9%"

::Special_UTF8
Set "String=%String:Special_UTF8:~0,1=…%"
Set "String=%String:Special_UTF8:~1,1=‚%"
Set "String=%String:Special_UTF8:~2,1=¡%"
Set "String=%String:Special_UTF8:~3,1=¢%"
Set "String=%String:Special_UTF8:~4,1=£%"
Set "String=%String:Special_UTF8:~5,1=…%"
Set "String=%String:Special_UTF8:~6,1=Š%"
Set "String=%String:Special_UTF8:~7,1=Ö%"
Set "String=%String:Special_UTF8:~8,1=•%"
Set "String=%String:Special_UTF8:~9,1=—%"
Set "String=%String:Special_UTF8:~10,1=µ%"
Set "String=%String:Special_UTF8:~11,1=‚%"
Set "String=%String:Special_UTF8:~12,1=Ö%"
Set "String=%String:Special_UTF8:~13,1=à%"
Set "String=%String:Special_UTF8:~14,1=é%"
Set "String=%String:Special_UTF8:~15,1=·%"
Set "String=%String:Special_UTF8:~16,1=Ô%"
Set "String=%String:Special_UTF8:~17,1=Þ%"
Set "String=%String:Special_UTF8:~18,1=ã%"
Set "String=%String:Special_UTF8:~19,1=ë%"
Set "String=%String:Special_UTF8:~20,1=Ž%"
Set "String=%String:Special_UTF8:~21,1=‰%"
Set "String=%String:Special_UTF8:~22,1=‹%"
Set "String=%String:Special_UTF8:~23,1=”%"
Set "String=%String:Special_UTF8:~24,1=š%"
Set "String=%String:Special_UTF8:~25,1=Ž%"
Set "String=%String:Special_UTF8:~26,1=Ó%"
Set "String=%String:Special_UTF8:~27,1=Ø%"
Set "String=%String:Special_UTF8:~28,1=™%"
Set "String=%String:Special_UTF8:~29,1=š%"
Set "String=%String:Special_UTF8:~30,1=¤%"
Set "String=%String:Special_UTF8:~31,1=¥%"
Set "String=%String:Special_UTF8:~32,1=^ª%"
Set "String=%String:Special_UTF8:~33,1=§%"
Set "String=%String:Special_UTF8:~34,1=^·%"
Set "String=%String:Special_UTF8:~35,1=¿%"
Set "String=%String:Special_UTF8:~36,1=%"
Set "String=%String:Special_UTF8:~37,1=ï%"

::Special
Set "String=%String:Special:~0,1=^\%"
Set "String=%String:Special:~1,1=^|%"
Set "String=%String:Special:~2,1=@%"
Set "String=%String:Special:~3,1=#%"
Set "String=%String:Special:~4,1=^~%"
Set "String=%String:Special:~5,1=^^^!%"
Set "String=%String:Special:~6,1=$%"
Set "String=%String:Special:~7,1=€%"
Set "String=%String:Special:~8,1=^&%"
Set "String=%String:Special:~9,1=/%"
Set "String=%String:Special:~10,1=(%"
Set "String=%String:Special:~11,1=)%"
Set "String=%String:Special:~12,1==%"
Set "String=%String:Special:~13,1=?%"
Set "String=%String:Special:~14,1=^<%"
Set "String=%String:Special:~15,1=^>%"
Set "String=%String:Special:~16,1=;%"
Set "String=%String:Special:~17,1=,%"
Set "String=%String:Special:~18,1=.%"
Set "String=%String:Special:~19,1=-%"
Set "String=%String:Special:~20,1=_%"
Set "String=%String:Special:~21,1=+%"
Set "String=%String:Special:~22,1=*%"
Set "String=%String:Special:~23,1=^[%"
Set "String=%String:Special:~24,1=^]%"
Set "String=%String:Special:~25,1={%"
Set "String=%String:Special:~26,1=}%"
Set "String=%String:Special:~27,1=`%"
Set "String=%String:Special:~28,1='%"
Set "String=%String:Special:~29,1=^^^^%"
Set "String=%String:Special:~30,1=:%"

Echo string "%STRING%"
Call :Write_Desofuscador




:Write_Ofuscador
Set "New_String=%New_String:€="%"& rem "
Echo %New_String%>>"Script Ofuscado con BatOfuser.bat"
If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
Set "New_String="
Set "Count="
Goto :EOF


:Write_Desofuscador
Echo %String%>>"%TEMP%\Batofuser_DESOFUSCAR_.bat"
If NOT Errorlevel 0 (Echo ERROR & pause & Exit /B 1)
Set "String="
If "%linea%" EQU "%total%" (Goto :Fin_Desofuscador)
Goto :Leer_Desofuscador


:Fin_Ofuscador
Echo REM By Elektro H@cker >> "Script Ofuscado con BatOfuser.bat"
Del /Q "%TEMP%\String.tmp"
Cls
echo Fin | More
pause
Exit


:Fin_Desofuscador
CLS
setlocal enabledelayedexpansion
Set "String=!String:%%=!"
Set "String=!String:€=%%!"

For /F "Tokens=*" %%a in ('Type "%TEMP%\Batofuser_DESOFUSCAR_.bat"') do (
    Set "String=%%a"
    Set "String=!String:%%=!"
    echo !String!
    Set "String=!String:€=%%!"
    Echo !String!>>"Script Desofuscado con BatOfuser.bat"
)
Del /Q "%TEMP%\Batofuser_DESOFUSCAR_.bat"
echo Fin | More
Pause
Exit

957	Programación / Scripting / (Solucionado) [Batch] Como reemplazar el caracter "%" dentro de una variable...?	en: 20 Marzo 2012, 12:24 pm
Hola Lo que necesito es eliminar el caracter "%". Lo he intentado de todas las maneras que se me ha ocurrido... Escapando, Expandiendo, Usando 2 porcentages, 3, 4.. y volviendo a escapar xD... Creo que no es posible reemplazar el caracter "%" ni el "~" ¿Alguien sabe si se puede hacer? Código @Echo OFF Set "String=%%Special:~2,1%%" Echo Antes : %String% Set "String=%String:%=%" Echo Despues: %String% Pause >nul Exit Este es el resultado que busco: Gracias...

958	Foros Generales / Sugerencias y dudas sobre el Foro / [OFFTOPIC] Petición para El brujo [OFFTOPIC]	en: 20 Marzo 2012, 08:30 am
Buenas Me gustaría poder contactar contigo Alex, Bueno, Solo busco una respuesta a 2 o 3 mp's que te he ido mandando en los últimos meses, nada más El problema es que no se si has llegado a leerlos. Si los has leido ya capto la indirecta xD y entendería que este post que acabo de hacer es una tontería, Pero como no he tenido respuesta de ti en nínguno de esos mp no se si debo dejarme llevar por la intuición... Puedo estar equivocado. "Jopé", Todos nos merecemos al menos una respuesta... Si no has podido leerlos dimelo y mando un email PD: No he querido molestar mandando un email al staff preguntandote esto porque no se si lo que te dije en el mp es que no te interesaba o es que nunca llegaste a poder leer mis mp Crear este post es lo menos molesto que se me ocurre. Tampoco busco crear polémica con este post (Me extrañaria que hubiese alguna...) pueden cerrar este post si quieren, yo con que el brujo lo léa me conformo. Un saludo!

959	Programación / Scripting / [APORTE] [BATCH] Shack (Imageshack Uploader)	en: 19 Marzo 2012, 16:08 pm
SHACK An Imageshack commandline uploader. By Elektro H@cker. Esto no es más que la versión compilada del script para usarla desde la CMD sin necesidad del intérprete de Ruby. (Bueno, más o menos xD) El code original lo posteé en este topic: http://foro.elhacker.net/scripting/aporte_ruby_shack_imageshack_uploader-t356878.0.html IMPORTANTE: Para usar este script necesitan obtener una developer key (No es un capricho mio), Simplemente rellenen este formulario y enseguida recibiran un email con la clave: http://stream.imageshack.us/api/ Luego hay que introducirla (Una única vez) usando el script de tal forma: Código: shack.exe -k "CLAVE" Y ya podrán disfrutar del libre uso de este script. Citar Modo de empleo: shack.exe [Opción] [Imagen] Ejemplo: shack.exe -d C:\Test.jpg Opciones: -a --all Devuelve el enlace de la imagen en todos los formatos. -b --bb Devuelve el enlace de la imagen en formato BB. -d --directo Devuelve el enlace directo a la imagen. -h --html Devuelve el enlace de la imagen en formato HTML. -t --thumb Devuelve el thumb de la imagen. -k --key Establece su Developer key. /? Muestra esta ayuda. El archivo lo he subido aqui: Es un autoextraible de Winrar, Se instala SHACK y una opción en el menú contextual para subir imagenes desde el menú contextual de Windows. Por otro lado, Si no les interesa lo del menú y solo quieren la aplicación, Descompriman el .RAR y guarden el archivo "shack.exe" donde quieran

960

Programación / Scripting / [APORTE] [RUBY] Shack (Imageshack Uploader)

en: 19 Marzo 2012, 15:18 pm

SHACK
An Imageshack commandline uploader.
By Elektro H@cker.

Todas las tools y scripts que conozco para subir una imagen, como por ejemplo "shag" ya no funcionan por culpa de la developer key, Así que debido a la falta de un uploader para imageshack por línea de comandos he querido hacer este útil script.

Espero que os guste y si encontrais fallos o mejoras hagánmelo saber, Gracias.

IMPORTANTE:
Para usar este script necesitan obtener una developer key (No es un capricho mio), Simplemente rellenen este formulario y enseguida recibiran un email con la clave:
http://stream.imageshack.us/api/

Luego hay que introducirla (Una única vez) usando el script de tal forma:

Código:

shack.rb -k "CLAVE"

Y ya podrán disfrutar del libre uso de este script.

Citar

Modo de empleo:
shack.rb [Opción] [Imagen]

Ejemplo:
shack.rb -d C:\Test.jpg

Opciones:
-a --all
   Devuelve el enlace de la imagen en todos los formatos.
-b --bb
   Devuelve el enlace de la imagen en formato BB.
-d --directo
   Devuelve el enlace directo a la imagen.
-h --html
   Devuelve el enlace de la imagen en formato HTML.
-t --thumb
   Devuelve el thumb de la imagen.
-k --key
   Establece su Developer key.
/? Muestra esta ayuda.

Código

# -*- coding: UTF-8 -*-
 
 
 
# Modulos
 
require 'rest_client'
exit if Object.const_defined?(:Ocra)
 
 
 
# Metodos
 
def logo()
  print "
     @@
    @   @                  
   @    @      @@@   @@@  @   @
    @   @         @ @   @ @  @
     @  @ @@      @ @     @ @
      @ @@  @  @@@@ @     @@
      @ @   @ @   @ @     @ @
  @  @  @   @ @   @ @   @ @  @
   @@   @   @  @@@@  @@@  @   @
 
 
                                By Elektro H@cker\n\n"
end
 
def help()
  print "\n Modo de empleo:\n\n"
  print "  " + __FILE__.split('/').last + " [Opci\u00F3n] [Imagen]\n\n"
  print "\n Ejemplo:\n\n"
  print "  " + __FILE__.split('/').last + " -d C:\\Test.jpg \n\n"
  print "\n Opciones: \n\n"
  print "  -a --all \n       Devuelve el enlace de la imagen en todos los formatos. \n\n"
  print "  -b --bb \n       Devuelve el enlace de la imagen en formato BB. \n\n"
  print "  -d --directo \n       Devuelve el enlace directo a la imagen. \n\n"
  print "  -h --html \n       Devuelve el enlace de la imagen en formato HTML. \n\n"
  print "  -t --thumb \n       Devuelve el thumb de la imagen. \n\n"
  print "  -k --key \n       Establece su Developer key. \n\n"	
  print "  /?   Muestra esta ayuda. \n\n"
  Process.exit
end
 
def keycode(imput)
 if ARGV[1] == () or not imput.length.eql? 40
   puts "\n Porfavor introduzca una developer key válida..."
   puts "\n Ejemplo:\n\n " + __FILE__.split('/').last + " --key 148CAPSV9465b858a45dc1b4cdb32dee95ff6f59 \n\n"
   puts "\n Para más información, Visite: http://stream.imageshack.us/api/"
   Process.exit
  end # length
 
 if File.exist?("key")
   oldkey = File.read('key')
   print "\n ¿Desea reemplazar el archivo que contiene su developer key?\n\n"
   print " Clave anterior: " + oldkey 
   print "\n Clave nueva   : " + imput
   print  "\n\n [SI/NO] \n\n>> "
   $sino = STDIN.gets
    if $sino[/si/i]
      keyfile = File.new("key", "w")
      keyfile.print(imput)
      print "\nClave reemplazada correctamente.\n"
    elsif $sino[/no/i]
      Process.exit
    elsif
      keycode(imput)
    end # Reemplazar
  else
      keyfile = File.new("key", "w")
      keyfile.print(imput)
      print "\nClave configurada correctamente.\n"
 end # File exist
end
 
def subir(file)
 print "\n Subiendo la imagen, Espere...\n\n" 
 $Imagen = RestClient.post('http://www.imageshack.us/upload_api.php',
   :key => $devkey,
#  :a_username => "USUARIO",
#  :a_password => "PASSWORD",
   :fileupload => File.new(file)
 )
end
 
def show(opcion)
  if opcion == "-d" or opcion == "--directo" 
    print $Imagen.split("<image_link>").last.split("</image_link>").first + "\n"
  elsif opcion == "-b" or opcion == "--bb" 
    print $Imagen.split("<image_bb>").last.split("</image_bb>").first + "\n"
  elsif opcion == "-h" or opcion == "--html" 
    print $Imagen.split("<image_html>").last.split("</image_html>").first.gsub("&gt;", ">").gsub("&lt;", "<").gsub("&quot;", "'") + "\n"
  elsif opcion == "-t" or opcion == "--thumb" 
    print $Imagen.split("<thumb_link>").last.split("</thumb_link>").first + "\n"
  elsif opcion == "-a" or opcion == "--all" 
    print "\nDirecto: \n" + $Imagen.split("<image_link>").last.split("</image_link>").first + "\n\n" 
    print "BB Forum: \n" + $Imagen.split("<image_bb>").last.split("</image_bb>").first + "\n\n"
    print "HTML: \n" + $Imagen.split("<image_html>").last.split("</image_html>").first.gsub("&gt;", ">").gsub("&lt;", "<").gsub("&quot;", "'") + "\n\n"
    print "Thumb: \n" + $Imagen.split("<thumb_link>").last.split("</thumb_link>").first + "\n"
  end
 Process.exit
end
 
 
 
# Control de errores
 
logo()
 
if ARGV[0] == "-k" or ARGV[0] == "--key"
  keycode(ARGV[1])
  Process.exit
end
 
if not File.exist?("key")
  print "\n ERROR.   Debe configurar su developer key para usar este programa...\n"
  puts "\n Ejemplo:\n\n " + __FILE__.split('/').last + " --key 148CAPSV9465b858a45dc1b4cdb32dee95ff6f59 \n\n"
  puts "\n Para más información, Visite: http://stream.imageshack.us/api/"
  Process.exit
elsif
  $devkey = File.read('key')
end
 
if (ARGV.empty?) or ARGV[0] == "/?"
  help()
end
 
if (ARGV[1])==()
  print "\n ERROR.   Debe introducir la ruta local de la imagen...\n"
  Process.exit
end
 
if not File.exist?(ARGV[1])
  print "\n ERROR.   La imagen no existe...\n"
  Process.exit
elsif not (ARGV[1].split('.').last)[/bmp\z/i] and not (ARGV[1].split('.').last)[/bmp\z/i] and not (ARGV[1].split('.').last)[/gif\z/i] and not (ARGV[1].split('.').last)[/ico\z/i] and not (ARGV[1].split('.').last)[/jpg\z/i] and not (ARGV[1].split('.').last)[/jpeg\z/i] and not (ARGV[1].split('.').last)[/png\z/i] and not (ARGV[1].split('.').last)[/tif\z/i] and not (ARGV[1].split('.').last)[/tiff\z/i] 
    print "\n ERROR.   Archivo de imagen no soportado...\n"
    print "\n Formatos soportados: .BMP, .GIF, .ICO, .JPG, .JPEG, .PNG, .TIF, .TIFF\n"
  Process.exit
end
 
if not ARGV[0] == "-d" and not ARGV[0] == "--directo" and not ARGV[0] == "-a" and not ARGV[0] == "--all" and not ARGV[0] == "-b" and not ARGV[0] == "--bb" and not ARGV[0] == "-h" and not ARGV[0] == "--html" and not ARGV[0] == "-t" and not ARGV[0] == "--thumb"
  print "\n ERROR.   Opcion incorrecta...\n\n"
  print " Use la opcion [/?] para mostrar la ayuda. \n\n"
  print " " +__FILE__.split('/').last +  " /?  \n"
  Process.exit
end
 
 
 
# Proceso
 
subir(ARGV[1])
show(ARGV[0])

Páginas: 1 ... 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 [96] 97 98 99 100 101 102 103 104 105 106 107