elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


  Mostrar Temas
Páginas: [1] 2 3
1  Programación / .NET (C#, VB.NET, ASP) / [source][no optimizado] creador de sopas de letras en consola vbnet en: 24 Enero 2013, 06:19 am
pues en estas madrugadas ayudando a los amigos con sus proyectos subo este

Código
  1. Module Module1
  2.  
  3.    Sub Main()
  4.        Dim x As Integer = 0
  5.        Dim y As Integer = 0
  6.        Dim z As Integer = 99
  7.        Dim contpalabras As Integer = 0
  8.        Dim aux1 = "", aux2 As String = ""
  9.        Dim Formato As String = "" '(vertical/horizontal)
  10.        Dim posicionX = -1, posicionY As Integer = -1
  11.  
  12.        Dim cantPalabras As Integer = 0
  13.        Dim rep As Boolean = True 'variable para pedir palabras
  14.        While x <= 0
  15.            Console.Write("Ingresar el numero de Columnas[X](mayor a 0): ")
  16.            x = Console.ReadLine
  17.        End While
  18.        While y <= 0
  19.            Console.Write("Ingresar el numero de Filas[Y](mayor a 0): ")
  20.            y = Console.ReadLine
  21.        End While
  22.        Dim Sopa(x, y) As Char 'matriz de sopa
  23.        Dim Palabras(z) As String 'vector palabras
  24.        Console.WriteLine("============ DIBUJADO DE SOPA DE LETRAS ============")
  25.         Console.WriteLine("Caja de posiciones")
  26.        For i = 0 To y - 1
  27.            For j = 0 To x - 1
  28.                Console.Write(j & "," & i & "|")
  29.            Next
  30.            Console.WriteLine()
  31.        Next
  32.        Console.WriteLine("============FIN DIBUJADO DE SOPA DE LETRAS ============")
  33.        While rep
  34.            aux1 = ""
  35.            aux2 = ""
  36.            posicionX = -1
  37.            posicionY = -1
  38.            While aux1 = ""
  39.                Console.Write("añada una palabra: ")
  40.                aux1 = Console.ReadLine
  41.                If aux1.ToCharArray.Length >= 3 And aux1.ToCharArray.Length <= x Or aux1.ToCharArray.Length <= y Then
  42.                    Palabras(contpalabras) = aux1
  43.                    contpalabras += 1
  44.                Else
  45.                    aux1 = ""
  46.                    Console.WriteLine("ERROR -> la palabra debe tener mas de 3 letras y debe ser menor al maximo X y maximo Y")
  47.                End If
  48.            End While
  49.            While aux2 = ""
  50.                Console.Write("Horizontal o Vertical: ")
  51.                aux2 = Console.ReadLine
  52.                If (aux2.ToLower = "horizontal" And aux1.ToCharArray.Length < x) Or (aux1.ToCharArray.Length < y And aux2.ToLower = "vertical") Then
  53.                    Formato = aux2.ToLower
  54.                Else
  55.                    aux2 = ""
  56.                    Console.WriteLine("ERROR -> debe escribir una de las 2 opciones, y revisar que la palabra pueda ser añadida en esa opcion")
  57.                End If
  58.            End While
  59.            While posicionX = -1 And posicionY = -1
  60.                Console.Write("Posicion inicial de la palabra en la matriz en X: ")
  61.                posicionX = Console.ReadLine
  62.                Console.Write("Posicion inicial de la palabra en la matriz en Y: ")
  63.                posicionY = Console.ReadLine
  64.                If Formato = "horizontal" Then
  65.                    If posicionX + aux1.ToCharArray.Length > x Or posicionX < 0 Or posicionY < 0 Or posicionY > y Then
  66.                        posicionX = -1
  67.                        posicionY = -1
  68.                    End If
  69.                ElseIf Formato = "vertical" Then
  70.                    If posicionY + aux1.ToCharArray.Length > y Or posicionY < 0 Or posicionX < 0 Or posicionX > x Then
  71.                        posicionX = -1
  72.                        posicionY = -1
  73.                    End If
  74.                End If
  75.                If posicionX < 0 Or posicionY < 0 Then
  76.                    Console.WriteLine("ERROR -> la suma de la posicion y el tamaño de la palabra supera el limite de la sopa de letras")
  77.                End If
  78.            End While
  79.            If Formato = "horizontal" Then
  80.                For i = 0 To aux1.ToCharArray.Length - 1
  81.                    Sopa(posicionX + i, posicionY) = aux1.ToCharArray()(i).ToString.ToLower
  82.                Next
  83.            ElseIf Formato = "vertical" Then
  84.                For i = 0 To aux1.ToCharArray.Length - 1
  85.                    Sopa(posicionX, posicionY + i) = aux1.ToCharArray()(i).ToString.ToLower
  86.                Next
  87.            End If
  88.            'dibujado de la sopa de letras
  89.            Console.WriteLine("============ DIBUJADO DE SOPA DE LETRAS ============")
  90.            Console.WriteLine("Caja de posiciones")
  91.            For i = 0 To y - 1
  92.                For j = 0 To x - 1
  93.                    Console.Write(j & "," & i & "|")
  94.                Next
  95.                Console.WriteLine()
  96.            Next
  97.            Console.WriteLine()
  98.            For i = 0 To y - 1
  99.                For j = 0 To x - 1
  100.                    If Sopa(j, i) = "" Then
  101.                        Console.Write(" |")
  102.                    Else
  103.                        Console.Write(Sopa(j, i) & "|")
  104.                    End If
  105.                Next
  106.                Console.WriteLine()
  107.            Next
  108.            Console.WriteLine("============FIN DIBUJADO DE SOPA DE LETRAS ============")
  109.            'añadir mas palabras
  110.            aux2 = ""
  111.            While aux2 = ""
  112.                Console.Write("Desea añadir otra palabra[si/no]?: ")
  113.                aux2 = Console.ReadLine
  114.                If aux2 = "si" Then
  115.                    rep = True
  116.                ElseIf aux2 = "no" Then
  117.                    rep = False
  118.                Else
  119.                    aux2 = ""
  120.                End If
  121.            End While
  122.        End While
  123.        aux2 = ""
  124.        rep = True
  125.        While aux2 = ""
  126.            Console.Write("Desea Rellenar la sopa de letras[si/no]?: ")
  127.            aux2 = Console.ReadLine
  128.            If aux2 = "si" Then
  129.                rep = True
  130.            ElseIf aux2 = "no" Then
  131.                rep = False
  132.            Else
  133.                aux2 = ""
  134.            End If
  135.        End While
  136.        If rep Then
  137.            Dim r As New Random
  138.            Dim letras As Char() = {"a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "ñ", "o", "p", "q", "r", "s", "t", "u", "v", "w", "x", "y", "z"}
  139.            For i = 0 To y - 1
  140.                For j = 0 To x - 1
  141.                    If Sopa(j, i) = "" Or Sopa(j, i) = Nothing Then
  142.                        Sopa(j, i) = letras(r.Next(0, letras.Length))
  143.                    End If
  144.                Next
  145.            Next
  146.        End If
  147.        Console.WriteLine()
  148.        Console.WriteLine("============ DIBUJADO FINAL DE SOPA DE LETRAS ============")
  149.        For i = 0 To y - 1
  150.            For j = 0 To x - 1
  151.                If Sopa(j, i) = "" Then
  152.                    Console.Write(" |")
  153.                Else
  154.                    Console.Write(Sopa(j, i) & "|")
  155.                End If
  156.            Next
  157.            Console.WriteLine()
  158.        Next
  159.        Console.WriteLine()
  160.        Console.WriteLine("Palabras utilizadas")
  161.        For i = 0 To Palabras.Length - 1
  162.            If Palabras(i) = Nothing Or Palabras(i) = "" Then
  163.            Else
  164.                Console.WriteLine(Palabras(i))
  165.            End If
  166.        Next
  167.        Console.WriteLine("============FIN DIBUJADO FINAL DE SOPA DE LETRAS ============")
  168.        Console.WriteLine("Presiona una tecla para salir...")
  169.        Console.ReadKey()
  170.    End Sub
  171.  
  172. End Module

NO ESTA OPTIMIZADO
USO TECNICAS PERMITIDAS EN SUS CURSOS (no hay subs, no hay functions,nada de eso)

desarrollado para consola, y en un simple Sub :)

UNICO DETALLE = NO INTERCEPTAR PALABRAS  ( me dio flojera añadirlo)

saludos :)
2  Informática / Software / Avances del proyecto GRec en: 21 Enero 2013, 16:21 pm
  :) que se puede decir dejo 1 pic :)

proyecto = http://foro.elhacker.net/net/gamesrec_proyecto_grupo_completo_sigue_nuestro_avances-t379736.0.html



progreso
website = 10%
integracion website-foro-software =75%
UI = 30%
Modulos (c++/asm/c#/vbnet) = 40%

funciones
-screenshots games
-record video game (audio proximamente)
-draw fps in the corners (todavia falta DX11 y DX11.1)
-social network
-system users
-system multimedia

:D q puedo decir la gente de aca es muy talentosa
3  Programación / .NET (C#, VB.NET, ASP) / ideas en: 1 Enero 2013, 00:31 am
buenas :D

queria proponer este post, para plantear ideas y desarrollar algo en grupo,

el copyright si se decide sera elhacker.net o los que participen (queda a discucion en el momento de hacerse)

como se trabajaria ?

-usando conferencias en teamviewer
-email
-el mismo foro

nose ando aburrido, alguna idea interesante q podamos desarrollar ?

como 1 plataforma para subir musica, users q muestren que estan oyendo

alguna idea ?

si eres nivel intermedio no te preocupes, la idea tambien es aprender :)

de adelanto yo puedo aportar bastante en la parte del servidor
4  Programación / .NET (C#, VB.NET, ASP) / duda de regex en: 28 Diciembre 2012, 16:38 pm
buenas buenas

alguno q pueda aclararme y echarme 1 mano

necesito 1 regex que detecte este patron

@nick <--- tipo twitter

ejemplos de como debe cumplirse

@nick <- bien
qweqwe @nick qeqweqwe <- bien
qweqwe @nick <- bien
asd@nick.com <-- mal
@nick.com <-- mal
@nick'qweqwe <- mal

alguna idea ? tengo este pero no me convence  "(?<!\w)(@(\w+))" <-- bug con el patron  @nick.com
5  Programación / .NET (C#, VB.NET, ASP) / Parsear HTML en: 26 Diciembre 2012, 21:45 pm
alguno tiene buen menejo de las clases htmlelement, htmldocument,htmlelementcollection

para descomponer esto bien ?

Código:
<div id="print-conversation" style="display: block;">
<div class="comment clearfix">
<div class="comment-data">
<a class="min-avatar" href="/eduardocque3">
<img class="avatar-48" src="http://o1.t26.net/img/avatares/m/48/9.jpg">
</a>
</div>
<div class="comment-text">
<div class="comment-author clearfix">
@<a href="/eduardocque3" data-uid="20491876" class="hovercard">eduardocque3</a>
<span class="subtext">
<span title="26.12.2012 a las 8:06 hs." ts="1356520010">Hace 9 horas</span>
</span>
<div class="comment-content">
esto es 1 comentario </div>
</div>
</div>
</div>
.
.
.
.
:/ xD esta vez si me jodio

necesito separarle primero en un vector de "class=comment-content" y despues desglozar cada <div class=comment-content>

para extraer ciertos datos q le busco :/

EDITADO: Poner titulos descriptivos.
6  Programación / .NET (C#, VB.NET, ASP) / Nuevo proyecto en: 26 Diciembre 2012, 12:59 pm
buenas tardes señores

estoy en la busqueda de 1 persona que domine perfectamente la libreria

Newtonsoft.Json.dll

y todo lo referente a PARSEO xml,etc

para 1 proyecto serio, tendra acceso total al proyecto (esta en etapa de desarrollo)

1 pista =)
-sera algo referente con Taringa

  requisitos para trabajar en el proyecto
- tener teamviewer y usarle activamente

proyecto SERIO

estoy desarrollando una API para taringa, de manera no-oficial para consumo especifico del software q estoy desarrollando desde 0, y necesito 1 lector xml con su respectivo parseo bien desarrollado para la correcta lectura de la DATA q adquiero del server

el resultado del proyecto sera publicado en Taringa q estoy seguro sera muy bien aceptado, y como consecuencia, obtendra a cambio 1 buena forma de poner su publicidad mas a futuro

saludos
7  Programación / .NET (C#, VB.NET, ASP) / Busco STAFF en: 24 Diciembre 2012, 20:29 pm
:) buenas a tardes
en el dia de hoy me honra decir

el equipo de FDTareas esta en la busqueda de nuevos desarrolladores

requisitos minimos

-> 1 año de experiencia en las plataformas c#/vbnet
-> 1-2 proyectos demostrables de la experiencia del programador
-> Muchas ganas e ideas para crecer como software Free
-> tener instalado minimo Teamviewer para conferencias

(para los q solo buscan dinero, si el proyecto genera algun tipo de ganancia sera dividido segun aporten al proyecto)

algunos post del software para que tomen idea de lo grande del proyecto
http://foro.elhacker.net/net/me_honra_mostrar-t379082.0.html
aca ven 1 poco la evolucion
http://foro.elhacker.net/software/fdtareas_software-t366926.0.html

si quieren info actual escribirme

saludos
8  Programación / .NET (C#, VB.NET, ASP) / [MEGA APORTE][source] Como detectar errores de hilo padre en prearranque en: 24 Diciembre 2012, 11:51 am
buenas tardes a todos
en el dia de hoy, os enseñare como detectar esos dichosos bugs de arranque q ni el mismo visual studio te los ubica :P dando por error

--> Error desconocido, cerrando la aplicacion <--

suelen suceder al migrar la aplicacion a otras pcs y a veces se les olvidan librerias, o alguna incompatibilidad no administrada por el desarrollador

a la hora de atacar dichos problemas siempre debemos tener a mano un Sub modulo de arranque, que monitoree el arranque principal

porque ? porque el submodulo tendria 1 metodo de captado de error, q al ejecutar el verdadero hilo (hilo-padre) y falle directamente el submodulo lo detecte e informe para su rapido fix

suelen denominarse Versiones Debug o para detectar errores

os dejo esta pequeña muestra de codigo

Código
  1. 'usada para testear errores de thread en caso de emergencia usar
  2. 'cuando se use este submain para analisis de bugs de arranque debemos apagar en las propiedades la opcion (habilitar el marco de trabajo de la aplicacion)
  3. 'al terminar de reparar el bug debemos volver habilitarle!
  4. Public Class submain
  5.    <STAThread()> _
  6.    Friend Shared Sub Main()
  7.  
  8.        Application.EnableVisualStyles()
  9.        Application.SetCompatibleTextRenderingDefault(False)
  10.  
  11.        AddHandler Application.ThreadException, AddressOf Application_ThreadException
  12.        'Added this
  13.        AddHandler AppDomain.CurrentDomain.UnhandledException, AddressOf UnhandledExceptionEventRaised
  14.        Application.Run(New Form1())
  15.  
  16.    End Sub
  17.  
  18.    Private Shared Sub Application_ThreadException(ByVal sender As Object, ByVal e As System.Threading.ThreadExceptionEventArgs)
  19.  
  20.        MessageBox.Show(e.Exception.Message)
  21.  
  22.    End Sub
  23.    'Added this
  24.    Private Shared Sub UnhandledExceptionEventRaised(ByVal sender As Object, ByVal e As UnhandledExceptionEventArgs)
  25.        If e.IsTerminating Then
  26.            Dim o As Object = e.ExceptionObject
  27.            MessageBox.Show(o.ToString) ' use EventLog instead
  28.        End If
  29.    End Sub
  30.  
  31. End Class
  32.  

esta clase, para que puedan ejecutarle como metodo principal de arranque, en las propiedades de vuestro proyecto deben desactivar la opcion  habilitar el marco de trabajo de la aplicacion

con ese tremendo submain, pueden detectar el 100% de los errores ocultos en el arranque, ideal para esas pcs q no les quiere correr vuestro soft y necesitan a fuerza bruta hacer salir el error y lograr repararle :)

disfrutenlo ;)

yo siempre guardo este submain en mis proyectos, y tengo mis versiones debugger para las pcs problematicas ;)

saludos
9  Programación / .NET (C#, VB.NET, ASP) / :) me honra mostrar en: 22 Diciembre 2012, 15:57 pm
para mis amigos webmasters y requieren de un cliente FTP liviano-portable

miren la nueva imagen del FTP del FDTareas :)

proximo changelog del FDTareas V:2.6.0.5 ( http://fdtareas.com/ )
-change retoques en el diseño de las playlist
-change rediseñado los modulos del FTP
-added soporte multi-subida,multi-borrado,multi-descarga,subidas-descargas en paralelo en el ftp
-change rediseñado el sistema de playlist
-removed ejecutar en modo administrador
-change reparado el Drag & Drop en el modulo de imagenes
-added Drag & Drop en el modulo FTP para subida de archivos
-added boton supr en el FTP para borrar archivos
-change rediseño de la interface del panel FTP


10  Programación / .NET (C#, VB.NET, ASP) / busco en: 21 Diciembre 2012, 23:27 pm
buenas tardes :) con el fin de dar apertura a mi comunidad FDT :)

busco moderadores para el foro .net del foro (http://foro.fdtareas.com)

busco colaboradores en cuanto a algoritmia e ideas para el software :D

busco SOCIOS que tengan de buen nivel de programacion para darle realizar codigos mas avanzados :)


todo el que desee participar, sera bienvenido =)

http://fdtareas.com
http://foro.fdtareas.com el foro oficial
Páginas: [1] 2 3
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines