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 - **Aincrad**

#321
Citarpodrías especificar para que sirve exactamente tu programa puesto que el nombre resulta algo confuso/poco intuitivo, o soy yo que por "chatbot" puedo interpretar varias cosas.

Bueno solo son Ejemplos de Bot con el que puedes mantener una conversación.

Son Ejemplos , para el que quiera crear un Chatbot y no sabe como comenzar yo les doy el código fuente para que se guien.

También he implementado una forma Eficiente de Actualización de Base de Datos por medio de PASTEBIN  ;D

Esepero que les sea util el aporte XD.
#322
hola a todos , bueno hoy les traigo  Unos Códigos Fuentes de Chatbots , Para el que los quiera:

Link:

[SOURCE-CODE] ChatBot Samples VB.NET

[EXE-FILE]ChatBot Samples VB.NET




Bueno algunas imágenes:





Bueno Espero sus Criticas Constructivas , NO Me dejen ignorado plis  Comenten
;D
#323
No as intentado usar un rootkit ?

Rootkit Startup Method ( full hidden startup x32 x86 working ) vb.net  ;D

[youtube=640,360]https://www.youtube.com/watch?v=Vko4cdNCCT8[/youtube]

#324
Y yo todavía aquí con mi tostadora . con Procesador : Intel(R) Pentium(R) 4 CPU 2.66GHz 2.66GHz  :P
#325
Como dice el titulo estuve buscando en internet pero no halle nada .
alguien me puede decir como puedo ver las contraseñas guardadas de wifi de mi pc con vb.net?   :huh:

#326
gracias por la por el comentario.




Cita de: Eleкtro en 14 Abril 2018, 22:23 PM
Cita de: **Aincrad** en 14 Abril 2018, 22:23 PM
*estar ligado a un ProgressBar

Con la cantidad de directorios a procesar y archivos en dicho directorio puedes crear un valor máximo para la barra de progeso, y un porcentaje.

bueno quiero poner un progressbar pero no logro como hacerlo . como tu dices la progressbar tiene un valor maximo , en ese caso tendria que hacer una regla de 3 .

numeros de archivos ---------------------------  100%
archivos procesados ----------------------------   x %

pero, no se si tu lo podrías hacer mejor harías mejor, como dije ayer :

lo intentare hacer, haber como me sale .

Pero si puedes ayudarme un poco con un ejemplo de como lo harias tu  XD . disculpa la molestias .  ;D


#327
Bueno lo he hecho así espero sus criticas constructivas:  :xD

Código (vbnet) [Seleccionar]
Imports System.IO

Public Class Form1
Public Shared MyDrive As String
Private Sub buttonScan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonScan.Click
        Using folder As New FolderBrowserDialog
            With folder
                If .ShowDialog = 1 Then
                    MyDrive = .SelectedPath.ToString
                    Unhide()
                End If
            End With
        End Using
    End Sub

#Region "unhide"

    Private Function GetFilesRecursive(ByVal initial As String) As List(Of String)

        Dim result As New List(Of String)

        Dim stack As New Stack(Of String)

        stack.Push(initial)

        Do While (stack.Count > 0)
            Dim dir As String = stack.Pop
            Try
                result.AddRange(Directory.GetFiles(dir, "*.*"))

                Dim directoryName As String
                For Each directoryName In Directory.GetDirectories(dir)
                    stack.Push(directoryName)
                Next

            Catch ex As Exception
            End Try
        Loop

        Return result
    End Function

    Private Function GetDirectoriesRecursive(ByVal initial As String) As List(Of String)

        Dim result As New List(Of String)


        Dim stack As New Stack(Of String)


        stack.Push(initial)


        Do While (stack.Count > 0)

            Dim dir As String = stack.Pop
            Try

                result.AddRange(Directory.GetDirectories(dir, "*.*"))


                Dim directoryName As String
                For Each directoryName In Directory.GetDirectories(dir)
                    stack.Push(directoryName)
                Next

            Catch ex As Exception
            End Try
        Loop


        Return result
    End Function

    Public Sub Unhide()
        Dim FileCounter As Integer = 0
        Dim FolderCounter As Integer = 0

        Dim Files As List(Of String) = GetFilesRecursive(MyDrive)
        Dim Directories As List(Of String) = GetDirectoriesRecursive(MyDrive)

        For Each Filename In Files
            If (IO.File.GetAttributes(Filename) And IO.FileAttributes.Hidden) = IO.FileAttributes.Hidden Then

                IO.File.SetAttributes(Filename, IO.FileAttributes.Normal)
                FileCounter = FileCounter + 1
            End If
        Next

        For Each DirectoryName In Directories
            If (IO.File.GetAttributes(DirectoryName) And IO.FileAttributes.Hidden) = IO.FileAttributes.Hidden Then

                IO.File.SetAttributes(DirectoryName, IO.FileAttributes.Normal)
                FolderCounter = FolderCounter + 1
            End If
        Next
    End Sub

#End Region

End Class


lo único que me falta es el ProgressBar. pero estoy pensando en mejor poner unos labels que muestren los numeros de archivos y otro que muestre el directorio.



#328
.NET (C#, VB.NET, ASP) / Re: Crypter
15 Abril 2018, 14:45 PM
Busca en google hay demasiados resultados .

aqui estan varios codigo fuentes de muchos cypter :

https://github.com/malwares/Crypter

y aqui hay otro (en este tienes que hacerle el stub):

https://github.com/jozemberi/PE-Crypter


#329
Hola a todos , bueno como dice el titulo estoy necesitando un code que tenga buena recursividad  y que este ligado a un progressbar .

(No estoy pidiendo que me hagan la tarea ni nada por el estilo) , yo mismo lo puedo hacer , pero cuando se trata de leer directorios y archivos soy pesimo.

solo hago este post haber si alguien tiene un buen code que quiera compartirlo.

el code que necesito debe tener:

*buscar archivos y carpetas ocultas de un directorio y volverlos visibles . (o viceversa).
*tener buena recursividad.
*estar ligado a un ProgressBar

Bueno de todos modos yo tambien lo intentare hacer, haber como me sale .  :xD
#330
Capa sin Héroe...

aunque es mas fácil crear una cuenta falsa de google  y ver todos los videos con restricción sin tener que hacer esto a cada rato :v  ;-)