Últimos Temas de: 79137913

Mostrar Temas
Páginas: 1 2 3 4 5 [6] 7 8 9 10 11 12 13

51	Programación / Scripting / [AYUDA] descifrar RSA en vbs.	en: 21 Mayo 2012, 14:56 pm
HOLA!!! En fin es eso, necesito crear un codigo para descifrar RSA con vbs. Si saben de algun codigo o algo me dicen... Si saben el algoritmo me lo pueden pasar y lo escribo yo el codigo. GRACIAS POR LEER!!!

Programación / Programación Visual Basic / [RECOPILACION DE RETOS] VBClassic Por 79137913

en: 4 Mayo 2012, 19:40 pm

HOLA!!!

RECOPILACION DE RETOS:

[RETO] + Funcion Extraer Numeros de Cadenas!

Código

Function ExtractNums_ByUser(expression As String) As String

Ejemplo:

Código:

Input: ewiuc3dskhd8nkd62ndsnk9
Ouput: 38629

Participan: Karcrack, 79137913, BlackZeroX, Elemental code y RHL.

[RETO] Reemplazo de Funcion IsNumeric

Código

Private Function IsNumeric_ByUser(str As String) As Boolean

Ejemplo:

Código:

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

Function IsDate_ByUser(str As String) As Boolean

Ejemplo:

Código:

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

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

Ejemplo:

Código:

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

Public Function IsHour_ByUser(str As String) As Boolean

Ejemplo:

Código:

* 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

Private Function Palabras_ByUser(Letras As Long) As String

Ejemplo:

Código:

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

Codigo que se auto muestra

Ejemplo:

Código:

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

Function getFileName(ByVal path As String) As String

Ejemplo:

Código:

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

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

Ejemplo:

Código:

Una función que hace lo mismo que Instr().

Participan: 79137913, Miseryk, TGa, Tokes, raul338, krabby, gaston93, BlackZeroX y Psyke1.

[RETO] CompWordsAlphabetically

Código

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

Ejemplo:

Código:

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

Private Function uCaseCorrect_ByUser(Txt As String) As String

Ejemplo:

Código:

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

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

Ejemplo:

Código:

Simple reto de recrear una matriz bidimensional

Participan: 79137913, LeandroA, BlackZeroX y Psyke1.

[RETO] IsFibonacciNumber(N as long) as Boolean

Código

Private Function IsFibonacci_ByUser(ByVal N As Long) As Boolean

Ejemplo:

Código:

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

Private Function IsLuckyNumber(ByVal Num As Long) As Boolean

Ejemplo:

Código:

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

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:

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

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

Ejemplo:

Código:

Simple reto de recrear una matriz bidimensional

Participan: 79137913 y LeandroA.

[RETO] Comprobar si un numero es Oblongo/Pronico

Código

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

Ejemplo:

Código:

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

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

Ejemplo:

Código:

Simple reto de recrear una matriz bidimensional

Participan: 79137913, LeandroA, Psyke1 y BlackZeroX.

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

Código

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

Ejemplo:

Código:

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

Public Function IsItPrime(ByVal lNumber As Long) As Boolean

Ejemplo:

Código:

Verificar si es primo

Participan: Karcrack, Psyke1, cobein y e500.

[RETO] Entero a cadena

Código

Public Function ItoA01(ByVal lNumb As Long) As String

Ejemplo:

Código:

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

Private Function IsItOdious(ByVal lNumb As Long) As Boolean

Ejemplo:

Código:

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

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

Ejemplo:

Código:

Simple reto de recrear una matriz bidimensional

Participan: Tenient101, BlackZeroX y LeandroA.

[RETO] GetMaskColor

Código

Private Function GetMaskColor(oPic As PictureBox) As Long

Ejemplo:

Código:

Obtiene el color de la mascara transparente de una imagen.

Participan: LeandroA y seba123neo.

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

Código

Public Function iFactorize(ByVal n As Long) As Collection

Ejemplo:

Código:

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

Private Function F_Exist(sPath as string) As Boolean

Ejemplo:

Código:

File Exist

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

[RETO] Ruta más oculta

Código

Public Function getLastFolder(Byval sStartPath As String) As String

Ejemplo:

Código:

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

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:

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!!!

53	Foros Generales / Foro Libre / Soplete de Hidrogeno Que opinan...	en: 16 Abril 2012, 17:25 pm
HOLA!!! Hoy voy a armar un soplete de hidrogeno hecho con una botella de plastico, soda caustica, aluminio, agua, un tubo de cobre, tela, algodon y papel secante. La idea es tomar el H2 resultante de la reaccion de corrocion del aluminio a traves de la soda caustica y agua. una foto de como lo tengo pensado. Diganme que opinan y si ven alguna falla en el diseño haganmelo saber pronto por que dentro de 5 hs me pongo a hacerlo. IMAGENES DEL PROYECTO TERMINADO! http://imgur.com/Dr9Ig http://imgur.com/ZlErm http://imgur.com/IXksZ http://imgur.com/LMID7 http://imgur.com/SptHR http://imgur.com/P9Hjf http://imgur.com/lRRBp http://imgur.com/h2w5U GRACIAS POR LEER!!!

Programación / Programación Visual Basic / [TUTORIAL] Generador de diccionarios.

en: 13 Abril 2012, 15:57 pm

HOLA!!!

Este tutorial lo arme para explicar como hacer un generador de diccionarios como mi BruteForceDicctionaryCreator o BFDC7913.

Empecemos...

Suponiendo que tenes esta cadena de posibles caracteres:
Código:

"ABCDEFGHIJKLMNOPQRSTUVWXYabcdefghijklmnopqrstuvwxyz0123456789"

Es la mas comun y tiene 26+26+10 osea 62 caracteres correcto?
Eso yo recomendaria guardarlo en un Vector (array).

Para eso yo uso la funcion:
Código

Código

Private Function CharSplit7913(expression As String) As String()
    Dim lExp     As Long
    Dim ExpB()   As Byte
    Dim AuxArr() As String
    ExpB = expression
    lExp = UBound(ExpB)
    ReDim AuxArr(lExp)
    For X = 0 To lExp Step 2
        AuxArr(X / 2) = ChrW(ExpB(X))
    Next
    ReDim Preserve AuxArr(Int(lExp / 2))
    CharSplit7913 = AuxArr
End Function

El vector resultante suponete que lo llamamos Chars() queda compuesto asi:
Chars(0 to 61) : "A","B","C",...,"7","8","9".
Espero que hasta ahi me sigas.

En este punto solo tenemos en un Vector (array) guardados todos los caracteres que vamos a usar.

Ahora, solicitamos la longitud en este caso la guardaremos en la variable Tam (de tamaño)

Ahora vamos a crear un vector donde guardaremos la cadena actual, su index maximo sera tam-1.

Suponiendo que tam = 3

hacemos asi:

Código

Dim Palabra() as integer
'dentro del proceso de creacion de diccionario
Redim Palabra(Tam-1)

Aca lo que hicimos es hacer que Palabra quedara (0 to 2) inicializandose asi:
Palabra(0 to 2): 0,0,0

aca empieza el proceso de creacion de strings...

Código

Código

Dim AuxPalabra As String
Do
    AuxPalabra = 0
    For X = 0 To tam - 1
        AuxPalabra = AuxPalabra & chars(palabra(X)) ' aca concatenamos todas las letras
    Next
    Print AuxPalabra ' aca imprimo la palabra resultante.
    palabra(0) = palabra(0) + 1 ' aca muevo un caracter
    For X = 0 To UBound(palabra) - 1
        If palabra(X) = UBound(chars) + 1 Then
            'aca verificamos que ninguna casilla quede con un numero mayor a los
            'caracteres que hay y si pasa eso aumenta la siguiente casilla
            'y la actual se vuelve a 0
            palabra(X + 1) = palabra(X + 1) + 1
            palabra(X) = 0
        End If
        'esto de abajo es para ver cuando se termino el proceso
        'osea cuando se han hecho todas las combinaciones.
        If palabra(UBound(palabra)) = UBound(chars) + 1 Then Exit Do
    Next
Loop

Entonces como te quedaria todo el codigo completo...

Código

Código

Dim Diccionario As String
Dim chars() As String
Dim Tam As Integer
Dim Palabra() As Integer
Private Sub Form_Load()
'aca en diccionario pone lo que quieras
Diccionario = "ABCDEFGHIJKLMNOPQRSTUVWXYabcdefghijklmnopqrstuvwxyz0123456789"
chars = CharSplit7913(Diccionario)
Tam = InputBox("inserte cantidad de caracteres")
ReDim Palabra(Tam - 1)
End Sub
 
 
Private Sub InicioDeProceso()
Dim AuxPalabra As String
    Do
        AuxPalabra = 0
        For X = 0 To Tam - 1
            AuxPalabra = AuxPalabra & chars(Palabra(X)) ' aca concatenamos todas las letras
        Next
        Debug.Print AuxPalabra ' aca imprimo la palabra resultante.
        Palabra(0) = Palabra(0) + 1 ' aca muevo un caracter
        For X = 0 To UBound(Palabra) - 1
            If Palabra(X) = UBound(chars) + 1 Then
                'aca verificamos que ninguna casilla quede con un numero mayor a los
                'caracteres que hay y si pasa eso aumenta la siguiente casilla
                'y la actual se vuelve a 0
                Palabra(X + 1) = Palabra(X + 1) + 1
                Palabra(X) = 0
            End If
            'esto de abajo es para ver cuando se termino el proceso
            'osea cuando se han hecho todas las combinaciones.
            If Palabra(UBound(Palabra)) = UBound(chars) + 1 Then Exit Do
        Next
    Loop
    MsgBox "Proceso Terminado"
End Sub
 
Private Function CharSplit7913(expression As String) As String()
    Dim lExp     As Long
    Dim ExpB()   As Byte
    Dim AuxArr() As String
        ExpB = expression
        lExp = UBound(ExpB)
        ReDim AuxArr(lExp)
        For X = 0 To lExp Step 2
            AuxArr(X / 2) = ChrW(ExpB(X))
        Next
        ReDim Preserve AuxArr(Int(lExp / 2))
        CharSplit7913 = AuxArr
End Function

GRACIAS POR LEER!!!

55	Foros Generales / Foro Libre / [APLICACION] El zootropo de Eadweard J. Muybridge (carrera del caballo)	en: 9 Abril 2012, 19:16 pm
HOLA!!! Hoy vi el logo de google y pense en hacer el experimento yo mismo da un resultado muy bueno, el que quiera el source code me avisa... Este programa permite modificar la velocidad con la que se mueven las fotos y asi experimentar un poco como fue eso en su tiempo. Para que lo descarguen, es un exe muy simple pero esta bueno para probar. http://www.mediafire.com/?b297ai2gqgq2686 Captura: Pd: Mods, no muevan a soft. GRACIAS POR LEER!!!

Foros Generales / Dudas Generales / Uploading Mediafire help

en: 30 Enero 2012, 19:20 pm

HOLA!!!

La cuestion es la siguiente, estoy intentando hacer un uploader para mediafire, pero leyendo los hearders y las respuestas tengo un problema...

Obtengo la cookie:

Código:

GET / HTTP/1.1
Accept: image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/x-ms-application, application/x-ms-xbap, application/vnd.ms-xpsdocument, application/xaml+xml, */*
Accept -Language: es -ar
User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; FunWebProducts; .NET CLR 2.0.50727; FunWebProducts; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)
Accept -Encoding: gzip , deflate
Host: mediafire.com
Connection: Keep -Alive

Busco los datos para la configuracion de subida, con el siguiente hearder...

Código:

GET /basicapi/uploaderconfiguration.php?71487 HTTP/1.1
Accept: */*
Accept-Language: es-ar
Referer: http://www.mediafire.com/
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; FunWebProducts; .NET CLR 2.0.50727; FunWebProducts; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729)
Host: www.mediafire.com
Connection: Keep-Alive
Cookie: ukey=anb6yti5a66b1cdpd55e1unribuo7r7n

La respuesta es: http://pastebin.com/4H2kS3FB

Luego de ahi hay que sacar los datos para el siguiente hearder, el de subida:

Código:

POST /douploadtoapi/?track=%track%&ukey=%ukey%&user=%user%&uploadkey=%uploadkey%&upload=0 HTTP/1.1
Accept: text/*
Content-Type: multipart/form-data; boundary=%boundary%
User -Agent: Shockwave Flash
Host: www.mediafire.com
Content-Length: 469
Connection: Keep -Alive
cache -Control: no -cache
Cookie: ukey=%ukey%;

Como veran ahi ya coloque para reemplazar las variables...

Track la tengo es la etiqueta trackkey, Ukey es la cookie que obtengo al principio,user lo obtengo de la config.

Pero uploadkey y boundary no se de donde sacarlos, alguna idea?

GRACIAS POR LEER!!!

Programación / Programación Visual Basic / [SUB] <FUNCION> Print7913Char (Imprime en PicBox caracteres tipo Google Fair).

en: 16 Enero 2012, 16:44 pm

HOLA!!!

Una imagen vale mas que 1000 palabras:

Y un link de donde salio la idea (miren abajo de la pagina)
depende la conbinacion de colores que uses
http://www.google.com/intl/en/events/sciencefair/index.html
mira abajo

Código

Private Sub Command1_Click()
Call Print7913Char(Picture1, Text2.Text, RGB(128, 128, 128), RGB(0, 255, 0), 2, 1, 10)
Call Print7913Char(Picture2, Text1.Text, RGB(128, 128, 128), RGB(0, 255, 0), 2, 1, 10)
Call Print7913Char(Picture3, Text3.Text, RGB(128, 128, 128), RGB(0, 255, 0), 2, 1, 10)
Call Print7913Char(Picture4, Text4.Text, RGB(128, 128, 128), RGB(0, 255, 0), 2, 1, 10)
End Sub
 
Private Sub Print7913Char(Pic As PictureBox, expression As String, Optional ColorOff As Long = 8421504, Optional ColorOn As Long = 65280, Optional AnchorOn As Long = 3, Optional AnchorOff As Long = 2, Optional BetweenChars As Long = 0)
Dim ChrPos As String
Dim char(72) As Boolean
Dim charpos(288) As Long
Dim a() As String
Dim AChr As Double
'123456789
'    5      0
' 25/|\75 1 125
' /|\|/|\ 2 25
'|\|/|\|/|3 375
'|/|\|/|\|4 500
'|\|/|\|/|5 625
'|/|\|/|\|6 750
' \|/|\|/ 7 875
'   \|/   8 1000
'                        "99.72X1...72Y1...72X2...72Y2"
ChrPos = "99.0.0.0.500.500.500.0.0.0.0.250.250.250.500.750.750.750.0.0.0.250.500.500.500.750.1000.1000.0.250.250.250.500.750.750.750.1000.0.0.250.500.500.500.750.1000.1000.0.250.250.250.500.750.750.750.1000.0.0.250.500.500.500.750.1000.0.0.0.0.250.500.750.0.0.0.0.0.0.0.0.0.0.0.0.0.125.125.125.125.125.125.125.0.250.250.250.250.250.250.250.250.250.375.375.375.375.375.375.375.375.375.500.500.500.500.500.500.500.500.500.625.625.625.625.625.625.625.625.625.0.750.750.750.750.750.750.750.0.0.0.0.875.875.875.0.0.0.0.0.0.250.500.750.0.0.0.0.0.250.500.500.500.750.1000.0.0.250.250.250.500.750.750.750.1000.0.0.250.500.500.500.750.1000.1000.0.250.250.250.500.750.750.750.1000.0.0.250.500.500.500.750.1000.1000.0.250.250.250.500.750.750.750.0.0.0.0.500.500.500.0.0.0.0.0.0.125.125.125.0.0.0.0.250.250.250.250.250.250.250.0.375.375.375.375.375.375.375.375.375.500.500.500.500.500.500.500.500.500.625.625.625.625.625.625.625.625.625.750.750.750.750.750.750.750.750.750.0.875.875.875.875.875.875.875.0.0.0.0.1000.1000.1000.0.0.0"
Pic.ScaleMode = 3
Pic.DrawWidth = AnchorOff
Pic.Cls
AChr = Pic.ScaleHeight / 1000
a = Split(ChrPos, ".")
For x = 1 To 288
charpos(x) = a(x)
Next
For y = 1 To Len(expression)
    Select Case Asc(Mid(LCase(expression), y, 1))
            Case 48 '0
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
            Case 49 '1
                a = Split("9 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 0 0 0")
            Case 50 '2
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 0 0 1 1 1 1 1 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 0 0 0 0 0 0 0 0 0 0")
            Case 51 '3
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
            Case 52 '4
                a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
            Case 53 '5
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 1 0 1 1 1 0 1 1 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
            Case 54 '6
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 1 1 1 1 0 0 0 0 0 1 1 1 0 0 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
            Case 55 '7
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
            Case 56 '8
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 0 0 0 1 1 0 0 1 1 1 0 1 1 1 0 0 1 1 1 0 1 1 1 0 0 1 1 0 0 0 1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
            Case 57 '9
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 1 1 1 1 0 0 0 0 0 1 1 0 0 0")
            Case 97 'a
                a = Split("9 0 1 0 1 1 1 0 0 0 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
            Case 98 'b
                a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
            Case 99 'c
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
            Case 100 'd
                a = Split("9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
            Case 101 'e
                a = Split("9 0 0 1 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
            Case 102 'f
                a = Split("9 0 0 1 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 0 1 1 1 1 0 0 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0")
            Case 103 'g
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 1 1 1 1 0 0 0 0 0 1 1 1 0 0 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
            Case 104 'h
                a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 0 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 1 1 1 0 1 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
            Case 105 'i
                a = Split("9 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0")
            Case 106 'j
                a = Split("9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 1 1 1 0 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
            Case 107 'k
                a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 0 0 1 1 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0")
            Case 108 'l
                a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
            Case 109 'm
                a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 1 0 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 0 1 1 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0")
            Case 110 'n
                a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 1 1 1 0 1 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
            Case 111 'o
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
            Case 112 'p
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0")
            Case 113 'q
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0")
            Case 114 'r
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 0 0 1 1 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0")
            Case 115 's
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 1 0 1 1 1 0 1 1 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 1 1 0 1 1 1 0 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
            Case 116 't
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0")
            Case 117 'u
                a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0")
            Case 118 'v
                a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 0 1 1 0 0 0 1 1 0 0 0 1 1 0 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0")
            Case 119 'w
                a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 0 1 1 1 0 1 1 1 0 0 0 0 0 0 0 0 0 0")
            Case 120 'x
                a = Split("9 0 0 0 0 0 0 0 0 0 0 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 0 0 0 0 0 0 0 0 0 0")
            Case 121 'y
                a = Split("9 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 0 1 1 1 1 0 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0")
            Case 122 'z
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 1 1 0 1 1 1 0 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 0 0 0")
            Case 32 '" "
                a = Split("9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0")
            Case 46 '.
                a = Split("9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 1 1 1 1 1 0 0 0 0 1 1 1 1 1 0 0 0 0 0 1 1 1 0 0 0")
            Case Else
                a = Split("9 0 0 0 1 1 1 0 0 0 0 1 1 1 1 1 1 1 0 0 1 1 1 0 1 1 1 1 0 0 0 0 0 1 1 1 1 0 0 0 0 1 1 1 1 0 0 0 0 0 1 1 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 1 1 0 0 0")
    End Select
    For x = 1 To 72
    char(x) = a(x)
    Next
    For x = 1 To 72
        If char(x) Then
            Pic.DrawWidth = AnchorOn
            Pic.Line (((BetweenChars + (AChr * 1000)) * (y - 1)) + charpos(x) * AChr, charpos(x + 72) * AChr)-(((BetweenChars + (AChr * 1000)) * (y - 1)) + charpos(x + 144) * AChr, charpos(x + 216) * AChr), ColorOn
            Pic.DrawWidth = AnchorOff
        Else
            Pic.Line (((BetweenChars + (AChr * 1000)) * (y - 1)) + charpos(x) * AChr, charpos(x + 72) * AChr)-(((BetweenChars + (AChr * 1000)) * (y - 1)) + charpos(x + 144) * AChr, charpos(x + 216) * AChr), ColorOff
        End If
    Next
Next
 
End Sub

GRACIAS POR LEER!!!

58	Informática / Hardware / Consulta Tarjeta de video integrada y RAM	en: 4 Diciembre 2011, 19:30 pm
HOLA!!! La pregunta es simple, tengo mi notebook, una acer aspire 4732z con 4gb de ram, un dual core de 2.2 por nucleo osea 4.4 creo, arquitectura de 64bits y una placa de video de 1.7 gb de ram creo que es intel mobile 4 sin pixel sharing (que no se que es). Mi duda surge de por que no puedo correr el lost via domus por que tengo + de 3 veces los requerimientos (anda lento). Y la otra es si los 1.7 gb de la ram de video se me restan de los 4gb que tengo. Esto me lo comento un amigo que dice que cuando son placas integradas desde la bios se le asigna una porcion de la ram del equipo para que utilicen. GRACIAS POR LEER!!!

59	Foros Generales / Noticias / WIKIPEDIA Pide ayuda	en: 24 Noviembre 2011, 17:35 pm
HOLA!!! Citar Un mensaje del fundador de Wikipedia, Jimmy Wales. Google debe tener cerca de un millón de servidores. Yahoo, alrededor de 13000 empleados. Nosotros contamos con 679 servidores y 95 empleados. Wikipedia es el quinto sitio en la red y sirve a 450 millones de personas diferentes todos los meses, con miles de millones de visitas. El negocio es bueno, la publicidad no es mala, pero eso aquí no tiene cabida. No en Wikipedia. Wikipedia es algo especial. Es como una biblioteca o parque público. Como un templo para la mente. Un lugar en el que todos podemos ir a pensar, a aprender, a compartir nuestros conocimientos con los demás. Cuando fundé Wikipedia, pude haberla creado como una compañía lucrativa con anuncios publicitarios, pero decidí hacer algo diferente. En estos últimos años hemos trabajado bastante para no malgastar. Cumplimos nuestra misión y dejamos que otros sean los que derrochen. Si todas las personas que leen este mensaje donaran $25, sólo tendríamos que recaudar un día al año. Pero no todos pueden donar o van a hacerlo. Y así está bien. Cada año el número de personas que deciden donar es suficiente. Este año, por favor considere hacer una donación de $25, $50, $100 o la cantidad que pueda permitirse para proteger y mantener Wikipedia. Gracias, Jimmy Wales Fundador de Wikipedia Para donar Click aqui GRACIAS POR LEER!!!

60	Foros Generales / Foro Libre / No al OffTopic	en: 16 Noviembre 2011, 01:18 am
HOLA!!! //tema creado para seguir el OffTopic de otro// GRACIAS POR LEER!!!

Páginas: 1 2 3 4 5 [6] 7 8 9 10 11 12 13