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

 

 


Tema destacado: Como proteger una cartera - billetera de Bitcoin


  Mostrar Mensajes
Páginas: 1 ... 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 [41] 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 ... 72
401  Foros Generales / Foro Libre / Re: Los terraplanistas cabezaplanos no tienen verguenza... en: 5 Agosto 2018, 00:12 am
guárdate el aguijón y relájate un poco... deja de tocar los cojones, gracias.

Quería decirle lo mismo pero no hallaba las palabras correctas! .
402  Foros Generales / Foro Libre / Re: Los terraplanistas cabezaplanos no tienen verguenza... en: 3 Agosto 2018, 18:29 pm
Uno esperaria que en un foro serio este tipo de temas inutiles e imbeciles que no aportan nada ni son fuente de sustento para ningun tipo de debate fueran cerrados de inmediato. Pero luego veo que el moderador fue quien abrio el tema y es ahí cuando me doy cuenta que tal vez el problema sea mio por malgastar mi tiempo en un sitio como este...  !Daajjj!!.
 

De todas manera da igual lo que compartamos, cuando compartimos cosas relacionadas con la informática en cualquier parte de los subforos o los paséis por el forro de los huevos, esta visto y comprobado que aquí en foro libre interesa mas temas como este o temas extraterrestre o cosas parecidas cuando se os pone un tema de noticia relacionado con la informática ni comentáis ni tenéis interés debatirlo y apenas visitas por parte de los visitantes.

Y ahora venir algunos a criticar pues coges pon tu algún tema interesante que podamos debatirlo aquí pero como bien dice Elektro esto es foro libre, si no te gusta con no comentar tienes bastante mira como no he entrado a debatir esto porque ya lo hemos debatido muchas veces en foro libre y ya me aburría el tema.

Ahora solo he entrado para aclarar estas cosas. ;)




Estoy de acuerdo con @El_Andaluz y ademas esto es Foro libre como dice @Eleкtro temática libre! (@Avispon99 este foro es serio! el tema puede que no sea de tu interes, si ese caso puedes irte por donde viniste  y dejar de criticar . has un post tu y debatimos, pero no criticaremos cosas innecesarias ;("este temas es inutil e inbecil")).

Acerca del tema : "Pienso que la "teoria terraplanista" en pleno siglo 21 es una completa estupidez , pensar que hay gente que se lo cree. si estuviéramos en la antigüedad no fuera tan loca la idea!.
la Tierra es esférica . esa es mi creencia y esta demostrada por muchos medios (Satélites etc..) y ciencias (Fisica, Mecanica. etc..) " .
403  Programación / .NET (C#, VB.NET, ASP) / Ayuda con Scaneer Hexadecimal en: 3 Agosto 2018, 02:12 am
Bueno como dice el titulo. necesito ayuda con un escaner hex. Bueno pondré el code y de ultimo mis preguntas!

Bueno tengo un Listbox con el sig directorio de archivos:

Código:
C:\Users\S4LXenox\Desktop\Ransomware Wannacry - copia.exe
C:\Users\S4LXenox\Desktop\eicartest.exe
C:\Users\S4LXenox\Desktop\parite.exe

y con un boton escaneo cada archivo  del listbox :

code del boton:

Código
  1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  2.        listv.Items.Clear()
  3.        For abc = 0 To ListBox1.Items.Count - 1
  4.  
  5.             Scan(ListBox1.Items(a).ToString)
  6.  
  7.        Next abc
  8.    End Sub


Y aquí la Función de scaneo hex:

Código
  1.  
  2.  
  3. Dim xml = <?xml version="1.0"?>
  4.              <signatures>
  5.                  <signature>
  6.                      <name>Eicar-Test-Signature</name>
  7.                      <hex>58354f2150254041505b345c505a58353428505e2937434329377d2445494341522d5354414e4441</hex>
  8.                  </signature>
  9.                  <signature>
  10.                      <name>Hybris.Gen</name>
  11.                      <hex>f649e7cc1e00d37e7f3bc85fff3486ac6de91433aa3a39ef1b114d37b534b8323f6ff67132638a3fe2f2afb4aaf9b7e3b4669bb3cab028298aab533c5d73546cdd396fd58c2c7734c50bca68eb709b889a086fb3db5f8ae533a4d5816e8c5f560983695efa14e291c204b1316e657773</hex>
  12.                  </signature>
  13. </signatures>
  14.  
  15. Private Sub Scan(ByVal dir As String)
  16.  
  17.  
  18.        Dim myStreamReader As StreamReader = Nothing
  19.        myStreamReader = File.OpenText(dir)
  20.        InputString = myStreamReader.ReadToEnd()
  21.        ArrayHold = Encoding.Default.GetBytes(InputString)
  22.  
  23.        Do
  24.            IndexEnd = Index + 9
  25.  
  26.            For x As Integer = Index To IndexEnd
  27.  
  28.                If x > UBound(ArrayHold) Then
  29.                    tempStr = tempStr
  30.                Else
  31.                    tStr = UCase(Convert.ToString(ArrayHold(x), 16))
  32.  
  33.                    If tStr.Length < 2 Then tStr = "0" & tStr
  34.  
  35.                    Str.Append(tStr)
  36.                    tempStr = tempStr & Chr(ArrayHold(x))
  37.  
  38.                End If
  39.            Next
  40.  
  41.            Index = Index + 10
  42.        Loop While IndexEnd < UBound(ArrayHold)
  43.        For Each signature As XElement In xml.Root.Elements
  44.            If InStr(1, Str.ToString, signature.<hex>.Value, vbTextCompare) Then
  45.                listv.Items.Add(signature.<name>.Value)
  46.                If listv.Items.Count > 0 Then
  47.                    Label1.Text = "Virus"
  48.                Else
  49.                    Label1.Text = "No Virus"
  50.                End If
  51.            End If
  52.        Next
  53.  
  54.    End Sub



Bueno ahora mis dudas:

1) Cuando Utilizo el OPENFILEDIALOG En el botón y selecciono un virus el sacanner funciona y lo detecta! , Pero cuando coloco el directorio del virus en el listbox asi como puse arriba , el scanner no detecta nada! como corrigo eso?


2) Cuando intento escanear un archivo de mas de 10 mb tarda muchísimo! aunque eso se puede arreglar con un BackgrounWorker y asi no se pegue la app, pero no hay manera de hacer el escaneo hex mas rapido?

Bueno eso es todo, Gracias de antemano!
404  Informática / Software / Re: Algun activador windows 7 limpio en: 2 Agosto 2018, 06:01 am
Casualmente yo acabo de activar mi windows 7 ayer!

Windows Loader by Daz

XD con eso lo activas!
405  Programación / .NET (C#, VB.NET, ASP) / Re: Buscar valores en el Registro de windows.... en: 30 Julio 2018, 19:13 pm
Citar
Código
  1. Dim regInfos As IEnumerable(Of RegInfo) =
  2.    RegistryUtil.FindValue(RegistryView.Default,
  3.                           rootKeyName:="HKCU",
  4.                           subKeyPath:="Software\Microsoft\Windows\CurrentVersion\Run",
  5.                           valueName:="WScript",
  6.                           matchFullValueName:=False,
  7.                           ignoreCase:=True,
  8.                           searchOption:=SearchOption.TopDirectoryOnly)
  9.  
  10. For Each regInfo As RegInfo In regInfos
  11.    Dim sb As New StringBuilder()
  12.    sb.AppendLine(regInfo.RootKeyName)
  13.    sb.AppendLine(regInfo.SubKeyPath)
  14.    sb.AppendLine(regInfo.ValueName)
  15.    sb.AppendLine(regInfo.ValueData?.ToString())
  16.    Console.WriteLine(sb.ToString())
  17. Next regInfo


Justo lo q necesitaba gracias de nuevo!

PD:  estaba apunto en hacer un post preguntando que era de ti? ya que es raro que te desaparezcas por tanto tiempo XD  ;D. me imagino que estarías muy ocupado! . Gracias por el code!  ;-)
406  Programación / .NET (C#, VB.NET, ASP) / Buscar valores en el Registro de windows.... en: 21 Julio 2018, 03:11 am
Hola foro, Como dice el titulo quiero Buscar valores en el regedit,

Ejemplo :

Código:
Virus >> wscript.exe //B "C:\Users\S4LXenox\AppData\Local\Temp\VirusUSB.vbs"

agrego un virus que se auto inicio. por medio una app quiero Que si en el valor:

wscript.exe //B "C:\Users\S4LXenox\AppData\Local\Temp\VirusUSB.vbs"

sea detectado por mi app y me pregunte si quiere que elimine esa entrada, para el vbs no se ejecute.



Bueno lo primero que imagino es listar en un listbox mis app que se auto inician, Bueno eso es facil ya que es casi lo mismo que la duda que tenia hace tiempo de como verificar los programas instalados
(link).



1)   En-listo mis apps que se auto inician:

Código
  1. Imports Microsoft.Win32
  2.  
  3. Public Class Form1
  4.    Private Sub ListarHKCU()
  5.        Dim key As RegistryKey
  6.        Dim valueNames As String()
  7.        Dim currentUser As RegistryKey = Registry.CurrentUser
  8.        Dim name As String = "SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
  9.        Dim str2 As String = "Software\Microsoft\Windows\CurrentVersion\Runonce"
  10.        Try
  11.            key = currentUser.OpenSubKey(name, True)
  12.            valueNames = key.GetValueNames
  13.            Dim str3 As String
  14.            For Each str3 In valueNames
  15.                Try
  16.  
  17.                    ListBox1.Items.Add((str3 & " >> " & key.GetValue(str3).ToString))
  18.                Catch ex As Exception
  19.                End Try
  20.            Next
  21.        Catch ex As Exception
  22.        End Try
  23.        Try
  24.            key = currentUser.OpenSubKey(str2, True)
  25.            valueNames = key.GetValueNames
  26.            Dim str3 As String
  27.            For Each str3 In valueNames
  28.                Try
  29.                    ListBox1.Items.Add((str3 & " >> " & key.GetValue(str3).ToString))
  30.                Catch ex As Exception
  31.                End Try
  32.            Next
  33.        Catch ex As Exception
  34.        End Try
  35.    End Sub
  36.  
  37.  
  38.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  39.        ListBox1.Items.Clear()
  40.        ListarHKCU()
  41.    End Sub
  42. End Class


Lo segundo seria Buscar en ese listbox la cadena de texto "Wscript.exe"

Bueno en esta parte ya he intentado con : FindMyString pero no logra reconocer ese string.

Busque una solución algo floja, osea use un textbox en vez de el Listbox. y para detectar el virus use el siguiente codigo:

Código
  1. Dim APP_string As String() = {"wscript", "Cmd"}
  2.        For Each elemento As String In APP_string
  3.            If TextBox1.Text.Contains(elemento) Then
  4.                'AQUI VA EL CODIGO DEL MENSAJE Y LA OPCION PARA BORRAR EL VIRUS DEL REGISTRO
  5.            End If
  6.        Next

Ahora Es la parte en la que necesito ayuda, es en la que borra el auto inicio del vbs, osea borra esa entrada del regedit.



Bueno he puesto como lo he intentado haber si me pueden echar una mano.

Basicamente lo que quiero es Buscar en donde inician las app por medio del regedit :

Código:
SOFTWARE\Microsoft\Windows\CurrentVersion\Run

y hay busca archivos script , Que por lo general usan en los valores : "CMD /C" o "wscript.exe //B" para ejecutarse y cuando encuentre ese string en el regedit elimine esa entrada.

Gracias de antemano. si logro hacerlo lo posteare.


PD: Si se preguntan para que estoy haciendo esto , es por que llevo ya un tiempo desarrollando un motor de antiviurs . y apenas he logrado esto :
https://ibb.co/geS69J Cuando lo termine , (si es q lo termino subire el codigo fuente aqui)


407  Programación / Scripting / [BATCH] [APORTE] Batch Auto Hide Start [BAHS] en: 20 Julio 2018, 20:15 pm
Hola foro, Bueno les traigo un simple codigo que se me ocurrio al leer el siguiente post:

Una pregunta sencilla de BATCH

Bueno este simple código les sirve para  ejecutar su código batch Invisible. bueno aqui el batch :

Código
  1. @echo off
  2.  
  3. :Comandline
  4. IF ["%~1"]==["-e"] goto o
  5.  
  6. :Crear vbs
  7. set Batch=%~dpnx0
  8. (
  9. echo set objshell ^= createobject^("wscript.shell"^)
  10. echo objshell^.run "%Batch% -e"^,vbhide ) > %temp%\bas.vbs
  11. start %temp%\bas.vbs
  12. exit
  13.  
  14. :o
  15. ::::::::::::::::::::::::::::::::
  16. :: Tu código aquí...           :
  17. ::::::::::::::::::::::::::::::::

Bueno a decir verdad se abre la consola cuando crea el vbs, pero el vbs se encargara de ejecutar tu codigo invisible.



Aunque la mejor opción para hacer un batch invisible es convertirlo a .EXE , Les recomiendo mi sencilla app:

Posee:
*Ofuscacion del Batch
*Convertor bat to vbs y viceversa
*Convertor a .exe y mas


link: Link

Bueno espero que les sirva de algo este sencillo aporte.  :xD
408  Programación / .NET (C#, VB.NET, ASP) / Re: Como detectar USB , Memorias SD y mostrar un aviso? en: 5 Julio 2018, 21:48 pm

No pude haber deseado nada mejor  :D , es perfecto.  ;D Funciona bien y es rápido, Muchísimas Gracias. / Cuando salga de vacaciones me pondré a estudiar mas VB.NET.  ;-)
Gracias por todos tus Grandes aportes.
409  Programación / .NET (C#, VB.NET, ASP) / Re: Como detectar USB , Memorias SD y mostrar un aviso? en: 4 Julio 2018, 18:06 pm
Gracias por responder; Revisare los links y me documentare de ello, gracias.

PD : No sabia que habías hecho un snippets tan útil  :D . lo veré y después revisare todo el post del snippets desde la gaina 1 a la 54  :xD , para no volver preguntar cosas que ya prácticamente estan resultas :V  ;D .
410  Programación / .NET (C#, VB.NET, ASP) / Re: Como detectar USB , Memorias SD y mostrar un aviso? en: 3 Julio 2018, 21:59 pm
Hola , bueno estos dias he estado estudiando y bueno esto he lo que he logrado hacer por mi cuenta :

Código
  1. Imports System.IO
  2.  
  3. Public Class Form1
  4.  
  5.    Dim Errores As New List(Of String)
  6.  
  7.    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  8.        detectar()
  9.    End Sub
  10.  
  11.    Private Sub detectar()
  12.        For Each USBex In Environment.GetLogicalDrives
  13.            If New DriveInfo(USBex).IsReady = True Then
  14.                If Not New DriveInfo(USBex).DriveType = DriveType.Fixed Then
  15.                    Try
  16.                        ListBox1.Items.Add(USBex)
  17.                    Catch ex As Exception
  18.                        Errores.Add(ex.Message)
  19.                        'ListBox2.Items.Add(errores)
  20.                    End Try
  21.                End If
  22.            End If
  23.        Next
  24.    End Sub
  25.  
  26. End Class

Con esto ya puedo detectar los discos extraible pero ahora necesito su ayuda para crear un bucle y así poder detectar los nuevos usb que se conectan , pero bueno el bucle no es problema como tal , ya que probé con un bucle for / next .

el problema es que el lista en el listbox1 los viejos usb conectado, y a demás siento que hacer un bucle for/ next  ahi esta mal .

simplemente lo que quiero es que detectete los nuevos usb conectados al PC sin listar los viejos. y muestre un un nuevo form los usb conectados.
Páginas: 1 ... 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 [41] 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 ... 72
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines