Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - 79137913

Páginas 1 ... 28 29 30 31 32 33
#581
Seguridad Wireless / Re:Antena Parabolica Wifi casera Paso a Paso
Julio 08, 2013, 11:33:30 PM
HOLA!!!

Aqui un paper que hicimos en mi Hacklab de como armar una biquad mucho mas basica (la antena y el manual)

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

GRACIAS POR LEER!!!
#582
Presentaciones y cumpleaños / Re:Hola!
Julio 02, 2013, 10:24:54 AM
HOLA!!!

Bienvenido Ivanchuck!!!

Me alegro mucho de verte por aqui! :D

Cualquier cosa MP!

GRACIAS POR LEER!!!
#583
Wargames y retos / [PROXIMAMENTE] Reto de esteganografia con premio en $$ [REGISTRESE AQUI]
Julio 02, 2013, 09:51:49 AM
HOLA!!!

Les comento lo siguiente, en los proximos dias estare publicando un reto de esteganografia, en el cual podran jugar todos los users menos los staff.

Habra premios en EFECTIVO $$$:

5 USD al primero que lo resuelva,

2,5 USD al segundo que lo resuelva

y 1 USD al tercero que lo resuelva.

Se podran registrar en el foro hasta 50 users que publiquen aqui, asi que Apurense.

El reto no comenzara con menos de 25 users registrados.

El reto comenzara al haber 50 inscriptos, o pasada una semana y con mas de 25 inscriptos o cuando se llegue a 25 inscriptos.

Una vez finalizado el reto, para poder reclamar el $$ deberan hacer un detalle de como superar cada etapa...
y enviarme por mp dicho detalle.

Conocimientos recomendados:
Esteganografia Basico/Intermedio.
Criptografia Basico/Intermedio.
Uso de GOOGLE Intermedio.
Conocimientos varios Intermedio.

Asi que Manos a la obra!

P.D: no piensen que por que no se necesitan conocimientos Avanzados va a ser facil ;)

Inscriptos hasta el momento de la ultima modificacion de este mensaje:
Código: text
Mr.Blood
The_Swash
Nizzee
Aneraka
Mr.Foster
--------------- 05
Shckr
Underc0der
Iv3c
AcidKode
S00rk
--------------- 10
11Sep
StOrMd[4]rk
Fretenekk
PerverthsO
Chris
--------------- 15
doh-doh
Moy
TUNOVATO
F0M3T
3t0r4n
--------------- 20
zoro248
Aex12
MagoAstral
Amber
cr0c
--------------- 25


Staff que se ha registrado:
Código: text
Pr0ph3t
Snifer
Jimeno


GRACIAS POR LEER!!!
#584
Off Topic / Un pequeño chiste en viñetas
Junio 26, 2013, 10:33:44 AM
HOLA!!!



GRACIAS POR LEER!!!
#585
Cursos, manuales y libros / Curso basico de EXCEL INTENSIVO
Junio 18, 2013, 12:56:54 PM
HOLA!!!

Este pequeño curso abarca todo desde cero hasta Bases de datos.

Nota... Es muy INTENSIVO

You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

GRACIAS POR LEER!!!
#586
Dudas y pedidos generales / Re:Usar 2 mouses
Junio 18, 2013, 08:20:38 AM
HOLA!!!

A mi se me ocurre algo...
Conectas un mouse por un puerto comun y conectas otro por puerto joystick o emulas una coneccion serial desde un usb.

Una vez hecho esto tendras 2 dispositivos que te daran la variacion de X e Y al moverse.

Mediante api hooking inhibís el movimiento del mouse.

Tu soft debera hacer lo siguienteen un intervalo de tiempo de aprox 1/48 segs debera intercalar la posicion del puntero en 2 posiciones que tendras guardadas y a cada movimiento del mouse y el joystick guardaras sus variaciones asi el cada vez que intercales la posicion del mouse mediante Api lo posicionas en la ubicacion anterior + la variacion guardada.

Finalizando... esta solucion que te doy lograria lo que estas buscando pero no te daria 2 punteros, seria 1 solo que ejecuta acciones mandadas por 2 dispositivos y a su vez tiene 2 posiciones base distintas.

GRACIAS POR LEER!!!
#587
Off Topic / Re:una pregunta para todos
Junio 13, 2013, 09:35:16 AM
HOLA!!!

Yo estudio para Contador publico, el mundo de la informatica es un simple hobby para mi, por ende "soy autodidacta".

GRACIAS POR LEER!!!
#588
Dudas y pedidos generales / Re:Duda sobre redes
Junio 13, 2013, 09:33:23 AM
HOLA!!!

Ahh, perfecto, no tenia en mente esos niveles de aplicacion.

Gracias por ilustrarme.-

GRACIAS POR LEER!!!
#589
Dudas y pedidos generales / Re:Duda sobre redes
Junio 12, 2013, 07:42:38 PM
HOLA!!!

@CrazyKade:
Segun lo que tengo entendido el protocolo de red es lo que figura aca:
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

Un FTP es un Protocolo de intercambio de archivos como su nombre lo dice.

Si sigo equivocado, por favor hazmelo saber.

GRACIAS POR LEER!!!
#590
Dudas y pedidos generales / Re:Duda sobre redes
Junio 12, 2013, 03:35:55 PM
HOLA!!!

Por que deberias tener una coneccion de internet para cada PC y aparte la transferencia no seria tan veloz.

GRACIAS POR LEER!!!
#591
Dudas y pedidos generales / Re:Duda sobre redes
Junio 12, 2013, 03:11:02 PM
HOLA!!!

Error 1: FTP = FILE TRANSFER PROTOCOL, no es un protocolo de red, vos estas conectado a 2 redes, una local y otra que se llama internet asi que si podes conectarte a el servidor por que compartis el mismo cableado.

Error 2: SSH = SECURE SHELL,  es un sistema de interprete de ordenes seguro. Y como dije antes si estas en la misma red que el servidor (siempre y cuando ambos esten conectados a internet).

GRACIAS POR LEER!!!
#592
Informática Forense / Re:Como calcular la estatura de una persona, a través de una fotografía
Junio 10, 2013, 09:56:39 AM
HOLA!!!

Esto es muy impresiso.

Para que esa formula resulte correcta, ambos objetos tienen que estar a la misma distancia de la camara.

Para saber la altura de un objeto sin tener una referencia en el mismo  plano se puede usar esta formula que detallare luego:
X = H (Dx/Dh)

Aqui la explicacion que dibuje al tun tun.



P.D:
Me olvide de aclarar que hay que hacer la proporcion de altura relativa a X para saber su altura final.
Como hacerlo:
Se mide la altura de Hr que seria lo que mide en este caso el arbol en mi foto
Y se mide la altura de Xr que seria lo que mide el hombre en la foto
Se saca la proporcion y se obtiene la altura de X (luego de multiplicar  X · (Xr/Hr) )

GRACUAS POR LEER!!!
#593
Off Topic / Re:Vale la pena pasarme windows 8
Junio 04, 2013, 09:09:30 AM
HOLA!!!

Mira, a mi me gusto mas W8 que 7 por que lo manejo casi integramente con el teclado, es mas fluido, el escritorio sigue funcionando con [tecla inicio + D] el menu de inicio tampoco es imprescindible yo tengo toolbars en la barra de inicio.

En cuanto a los juegos, es un quilombo que funcionen muchos pero cuando hiciste funcionar 4 ya haces funcionar cualquiera.

Es mas rapido a mi parecer, mas limpio y simple.

No tiene aero y esas cosas molestas que destruyen los graficos de 16bits...

Una desventaja es que no podes poner estilo de Windows Clasico, (al igual que en 7) el cual se descontinuo en XP.

Tenes que tener una maquina medianamente buena yo diria desde un i3 de 2700 o un AMD A6-4400.

Conclusion, si tu pc tiene hardware incompatible con xp (que es mi favorito) y tiene un procesador como los anteriores o mejor y ademas mas de 4 gb de ram instala 8.

Si y solo si no vas a usar programas incompatibles con XP instala XP

W7 nunca fue una opcion. (lo era a W-Vista por que eso era un asco)

GRACIAS POR LEER!!!
#594
Cursos, manuales y libros / Re:50 Lessiones de Ingles
Junio 04, 2013, 08:47:42 AM
HOLA!!!

Aca tengo una microclase de ingles mexicano para yankees!



GRACIAS POR LEER!!!
#595
ASM / Re:Lista procesos de forma nativa con NtQuerySystemInformation
Mayo 30, 2013, 01:05:20 PM
HOLA!!!

Felicitaciones Lo LOGRASTE!

GRACIAS POR LEER!!!
#596
Galería / Re:Mi galeria de dibujos en Paint (4)
Mayo 30, 2013, 12:52:24 PM
HOLA!!!

Nueva imagen!
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

GRACIAS POR LEER!!!
#597
Dudas y pedidos generales / Re:¿Como generar un diccionario?
Mayo 28, 2013, 03:20:52 PM
HOLA!!!

Binario y source de un generador que arme y funciona rapido:
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

Y si lo queres aprender a hacer hice un tutorial:
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

GRACIAS POR LEER!!!
#598
Visual Basic / [TUTORIAL] Generador de diccionarios.
Mayo 28, 2013, 03:20:05 PM
HOLA!!!

Este tutorial lo arme para explicar como hacer un generador de diccionarios como mi You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

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: vb
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: vb
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: vb
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!!!
#599
Códigos Fuentes / [SOURCE] Brute Force Dictionary Creator 7913
Mayo 28, 2013, 03:17:55 PM
HOLA!!!

Bueno... es un creador de diccionarios ni mas ni menos, pero al trabajar con strings anda rapido. Igual funciona bastante bienn :P.

Siguiendo... les dejo una captura, el source y el binario.


Es mas para ejemplo que para usarlo, pero si no tenemos nada funciona :P.

Código: vb

    Const Sym As String = "/\!·$%&/()='""¡¿?<>., :;-_*+" 'Simbolos
    Const Num As String = "0123456789"                   'Numeros
    Const Min As String = "abcdefghijklmnopqrstuvwxyz"   'Letras Minusculas
    Const May As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"   'Letras Mayusculas
    Const SpL As String = "áéíóúàèìòùâêîôûäëïöüçñ"       'Letras Especiales Minusculas
    Const SpU As String = "ÁÉÍÓÚÀÈÌÒÙÊÎÔÛÄËÏÖÜÇÑ"       'Letras Especiales Mayusculas
    Dim Cad As String                                    'Cadena entera de caracteres
    Dim X As Long                                        'Para los Bucles
     
    Private Sub Inicio()
    Dim Letras() As String
    Dim Posiciones() As Long
    Dim Palabras() As String
    Dim a As Long
    Dim CT As Long
    Dim CantPos As Long
    Dim CantLet As Long
       Letras = CharSplit7913(Cad)
       CantLet = UBound(Letras)
       Open "C:\Dic7913.txt" For Output As #1
       Close #1
       ReDim Palabras(1000)
       For a = 0 To Val(MinMaxL(1).Text) - Val(MinMaxL(0).Text)
           CantPos = MinMaxL(0) + a - 1
           ReDim Posiciones(CantPos)
           Do
           For X = 0 To CantPos
               Palabras(CT) = Palabras(CT) & Letras(Posiciones(X))
           Next
           CT = CT + 1
           Posiciones(0) = Posiciones(0) + 1
           For X = 0 To CantPos - 1
               If Posiciones(X) > CantLet Then Posiciones(X) = 0: Posiciones(X + 1) = Posiciones(X + 1) + 1
           Next
           If CT = 1001 Then
               Open "C:\Dic7913.txt" For Append As #1
                   For X = 0 To 1000
                       Print #1, Palabras(X)
                   Next
               Close #1
               ReDim Palabras(1000)
               CT = 0
           End If
           If Posiciones(CantPos) = CantLet + 1 Then GoTo Terminado
           Loop
    Terminado:
       Next
       If CT <> 0 Then
           Open "C:\Dic7913.txt" For Append As #1
               For X = 0 To CT
                   Print #1, Palabras(X)
               Next
           Close #1
           CT = 0
       End If
       MsgBox "Terminado", vbInformation, "Atencion"
    End Sub
     
    Private Sub Caracteres_Click(Index As Integer)
       'Limita el checkbox de los caracteres extra si el cuadro de texto esta vacio
       If Index = 6 And Len(ExtraCHR.Text) = 0 Then Caracteres(6).Value = 0: MsgBox "El cuadro de texto de caracteres extra debe tener al menos un caracter", vbCritical, "Error"
    End Sub
     
    Private Sub Go_Click()
    Dim FlagCheck As Boolean
       'Comprobacion de los minimos y maximos de longitud
       If Val(MinMaxL(0).Text) = 0 Then MsgBox "El minimo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
       If Val(MinMaxL(1).Text) = 0 Then MsgBox "El maximo de longitud no puede ser cero", vbCritical, "Error": Exit Sub
       If Val(MinMaxL(0).Text) - Val(MinMaxL(1).Text) > 0 Then MsgBox "El maximo de longitud no puede ser menor que el minimo", vbCritical, "Error": Exit Sub
       'Comprobacion de los checkboxes, minimo uno debe estar tildado
       For X = 0 To 6
           If Caracteres(X).Value = 1 Then FlagCheck = True
       Next
       If FlagCheck = False Then MsgBox "Seleccione primero con que caracteres quiere hacer el diccionario", vbCritical, "Error": Exit Sub
       Cad = vbNullString 'Vacio el string Cad por si estaba lleno
       'Lleno cad con la seleccion del usuario
       If Caracteres(0).Value = 1 Then Cad = Num
       If Caracteres(1).Value = 1 Then Cad = Cad & Sym
       If Caracteres(2).Value = 1 Then Cad = Cad & Min
       If Caracteres(3).Value = 1 Then Cad = Cad & Max
       If Caracteres(4).Value = 1 Then Cad = Cad & SpL
       If Caracteres(5).Value = 1 Then Cad = Cad & SpU
       If Caracteres(6).Value = 1 Then Cad = Cad & ExtraCHR.Text
       MsgBox "El Proceso esta por Comenzar, esto podria tardar mucho tiempo para frenarlo presione Ctrl+Shift+Esc y termine el proceso, el diccionario quedara incompleto (este se guarda en c:\Dic7913.txt)", vbInformation, "Atencion - Por Comenzar"
       Call Inicio ' llamo al inicio de proceso
    End Sub
     
    Private Sub MinMaxL_KeyPress(Index As Integer, KeyAscii As Integer)
       If Not IsNumeric(Chr(KeyAscii)) Then KeyAscii = 0 'Verifica que solo se ingresen numeros en el desde hasta.
    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

     


Descargar Source y Binario:
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login

GRACIAS POR LEER!!!
#600
Visual Basic / [SUB] <FUNCION> Print7913Char (Imprime en PicBox caracteres tipo Google Fair).
Mayo 27, 2013, 03:36:32 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
You are not allowed to view links. You are not allowed to view links. Register or Login or You are not allowed to view links. Register or Login
mira abajo

Código: vb
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!!!
Páginas 1 ... 28 29 30 31 32 33