xLY3GZfe

1#!/usr/bin/perl
2
3use LWP::UserAgent;
4use HTTP::Request;
5use HTTP::Headers;
6use HTTP::Cookies;
7use LWP::Protocol::socks;
8use Crypt::RandPasswd;
9
10sub dunhill{
11my @number = ("1", "2", "3", "4", "5", "6", "7", "8", "9", "0");
12my $num = $number[rand @number];
13return $num;
14}
15
16sub nama{
17my @nama = ("Aam", "Aarti", "Abdi", "Abdul", "Abdullah", "Abidin", "Abner", "Abu", "Achirsyah", "Achmad", "Adam", "Ade", "Adelina", "Adhi", "Adhiwiyogo", "Adi", "Adianti", "Adikara", "Adimitra", "Aditya", "Adiwinata", "Adjam", "Adji", "Adjie", "Adri", "Adrian", "Adriana", "Adryansyah", "Afandi", "Agam", "Agil", "Ago", "Agoeng", "Agung", "Agus", "Agustino", "Agustinus", "Aguston", "Ahadiat", "Ahimsa", "Ahmad", "Ahmaddin", "Ahmades", "Ahsanil", "Aida", "Aiwy", "Aizid", "Aji", "Akbar", "Aksa", "Alan", "Alatas", "Albert", "Aldo", "Alex", "Alexander", "Alexandra", "Alfari", "Ali", "Alice", "Alicia", "Alien", "Alim", "Alimsyah", "Alimwidjaja", "Aling", "Alisyahrazad", "Alit", "Allan", "Aloan", "Aluinanto", "Alvin", "Alwi", "Alwijaya", "Alwy", "Amalia", "Amaluddin", "Aman", "Amara", "Ameesh", "Amelia", "American", "Amin", "Aminoto", "Amrullah", "Amy", "Anak", "Anand", "Ananda", "Anatola", "Ance", "Andang", "Andhika", "Andi", "Andikha", "Andiko", "Andre", "Andreas", "Andrew", "Andrie", "Andry", "Andy", "Ang", "Angela", "Angelique", "Angesti", "Angesty", "Anggono", "Anggraeny", "Anggraini", "Angie", "Angkasa", "Angkawijaya", "Angus", "Ani", "Anil", "Anindyaguna", "Anita", "Anna", "Annie", "Anthony", "Anton", "Antonius", "Antony", "Anuj", "Anwar", "Appointcorp", "Ardas", "Ardi", "Ardy", "Ari", "Arianto", "Arie", "Arief", "Arif", "Arifin", "Aris", "Aristianto", "Aristiningsih", "Aristotle", "Ariwibowo", "Arjen", "Arlehne", "Arman", "Armedta", "Armeilia", "Arniaty", "Arpan", "Arsil", "Arta", "Artha", "Arto", "Arwan", "Ary", "Arya", "Aryo", "Ashwani", "Asiah", "Asmara", "Assagaff", "Astono", "Aswismarmo", "Ateng", "Atira", "Atmadja", "Atmawidjaja", "Atmodiharjo", "Atmodjo", "Aubrey", "Aurelia", "Aviariananto",
18"Awan", "Awiek", "Aziar", "Azir", "Azwien", "Bachrumsyah", "Bachtiar", "Baduraman", "Bagus", "Baldeo", "Bambang", "Barak", "Baratama", "Barki", "Barlianto", "Basil", "Bastaman", "Basuiki", "Basuki", "Basyir", "Batavia", "Bawono", "Bayu", "Bayuaji", "Beata", "Beatrice", "Bedi", "Belinda", "Ben", "Beng", "Bengner", "Bengt", "Benjamin", "Benny", "Beny", "Bernadette", "Bernie", "Betty", "Bhansali", "Bibiana", "Bimo", "Bing", "Bintoro", "Bira", "Bismarka", "Bisono", "Bob", "Bobb", "Bobby", "Boedi", "Boediyanio", "Boelio", "Boen", "Boentoro", "Boenyamin", "Bong", "Bonny", "Boy", "Bramasiswadi", "Brasali", "Brent", "Brett", "Bright", "Brodjonegoro", "Broto", "Bruce", "Budhi", "Budi", "Budiarto", "Budiawan", "Budiendra", "Budiman", "Budiono", "Budisusetyo", "Budy", "Budyanto", "Bunanta", "Bunda", "Bunjamin", "Burhan", "Burhansjah", "Burland", "Bustami", "Buyung", "Byron", "Cahyadi", "Cahyaningtyas", "Cahyanto", "Calvin", "Cameron", "Candra", "Carl", "Carlos", "Caroline", "Carpenter", "Carson", "Carter", "Catherine", "Cecilia", "Celin", "Centra", "Chairil", "Chairul", "Chan", "Chander", "Chandera", "Chandra", "Chang", "Charles", "Charlie", "Charterhouse", "Cheam", "Chendra", "Chenry", "Chew", "Chin", "Choo", "Chowdhry", "Chris", "Chrisnadi", "Chrisnamurti", "Christanto", "Christian", "Christiana", "Christianto", "Christina", "Christine", "Christopher", "Christranto", "Chu", "Chui", "Chung", "Cindy", "Ciputra", "Citrawinda", "Clarence", "Clark", "Colondam", "Cornwallis", "Crescento", "Danamon", "Dara", "Darmadji", "Darmamulia", "Darmawan", "Darsono", "Dawis", "Delia", "Derek", "Devi", "Deviyanti", "Dewanto", "Dewi", "Dharani", "Dharma", "Dharmawan", "Dian", "Diana", "Didi", "Dieter", "Dijaya", "Dipa", "Dipoditiro", "Djaelani", "Djaja", "Djambak", "Djamhir", "Djarot", "Djauhari", "Djayalaksana", "Djitowibowo", "Djohari", "Djoko", "Djoni", "Djuanda", "Djugo", "Djuhar", "Doi", "Dominic", "Donald", "Dorpi", "Drajat", "Dudaney", "Edhi", "Edward", "Effendi", "Effendy", "Efi", "Eka", "Elam", "Elia", "Elisabeth", "Ellis", "Enijati", "Enny", "Eriksson", "Erma", "Ervian", "Erwin", "Euw", "Evi", "Fadil", "Fadjar", "Faisal", "Faried", "Farihah", "Febriyanti", "Felix", "Ferdinandus", "Fogarty", "Fong", "Frederik", "Fun", "Fungkong", "Ganda", "Garrard", "Gautama", "Gde", "Gemino", "Ghozali", "Gina", "Gobel", "Goenawan", "Goh", "Gondosubroto", "Gondotirto", "Gosjen", "Gotama", "Gozali", "Gunadi", "Gunawan", "Gusnawati", "Gustav", "Habir", "Hadi", "Hadiana", "Hadikusumo", "Hadimuljono", "Hakim", "Halim", "Hamami", "Hambali", "Hamidah", "Hamzah", "Hanafiah", "Handojo", "Handoso", "Handoyono", "Hanna", "Harapan", "Hardjodikromo", "Hardono", "Hardy", "Hari", "Harjani", "Harlim", "Harris", "Harsono", "Hartati", "Hartono", "Haryadi", "Haryanto", "Haryono", "Hasyim", "Hauw", "Hendry", "Henning", "Herlambang", "Hermanto", "Hermas", "Hermawan", "Heung", "Hing", "Hiong", "Hirawan", "Hoiri", "Holding", "Hottama", "Hsueh", "Hua", "Hwee", "Ida", "Iman", "Imawan", "Imelda", "Indra", "Indratono", "Indria", "Indriana", "Indriawati", "Intan", "Interdata", "Irawan", "Irawati", "Iriani", "Irianto", "Irwan", "Ishak", "Iskandar", "Ismail", "Istiana", "Iswandi", "Ivan", "Jackson", "Jacobus", "James", "Jamin", "Janawati", "Jatim", "Jeffrey", "Jenie", "Jennice", "Jenny", "Jiaravanon", "Jien",
19"Joantina", "Joesoef", "Johan", "Johanes", "Johannes", "Jok", "Jose", "Josodirdjo", "Juhanda", "Julia", "Juliarso", "Junardy", "Jusman", "Jusmin", "Juwana", "Juwono", "Kadarachman", "Kalauserang", "Kalim", "Kalla", "Kam", "Karamchandani", "Karim", "Karoll", "Kartono", "Kasim", "Kasiman", "Kaskam", "Kastono", "Katuari", "Kawano", "Keller", "Kent", "Keung", "Kevin", "Khee", "Khun", "Kirana", "Kiu", "Koeswanti", "Koeswojo", "Kok", "Kondang", "Kongoasa", "Korompis", "Koswara", "Kresnadi", "Krishna", "Kumar", "Kurniadi", "Kurniawan", "Kus", "Kusdianto", "Kusnowo", "Kusuma", "Lachman", "Lai", "Lakmudin", "Laksana", "Laksito", "Landajani", "Laroya", "Lasmana", "Lasmono", "Latief", "Laurens", "Lawanto", "Leban", "Leebrianto", "Legiman", "Leman", "Leo", "Leon", "Leonard", "Lesmana", "Lestari", "Leuchtenberg", "Lian", "Liang", "Liauw", "Lie", "Liem", "Lijaya", "Lim", "Limanto", "Limurti", "Linderum", "Lipina", "Liu", "Lo", "Lohia", "Louis", "Luhur", "Lukiman", "Lukito", "Lukman", "Lukmantara", "Lundi", "Lusli", "Machmud", "Maclachlan", "Madolen", "Mahara", "Makmur", "Mamuaya", "Mamun", "Mangunkusumo", "Manik", "Marda", "Mardiana", "Maria", "Mariani", "Maringka", "Marita", "Marlinata", "Marta", "Martina", "Marto", "Mary", "Mas", "Masagung", "Massie", "Maulana", "Maya", "McKay", "Mei", "Meimona", "Mellon", "Melvin", "Meuw", "Micron", "Miksar", "Ming", "Miqailla", "Miranti", "Mirpuri", "Mitra", "Mizaabianto", "Moecharar", "Moeis", "Moekardiono", "Moelyadi", "Moetiara", "Mohanlal", "Morice", "Morrison", "Motilal", "Muhammad", "Mukhtar", "Muliadi", "Mulio", "Muljadi", "Muljawan", "Muljo", "Mullers", "Mulya", "Mulyana", "Mulyanto", "Mulyono", "Murdaya", "Murwati", "Mutyara", "Nagaria", "Nainggolan", "Nanggulangi", "Naraindas", "Narindra", "Narpatisuta", "Narsinhdas", "Natalia", "Natanegara", "Natapradja", "Nelson", "Ng", "Niaga", "Nio", "Niowni", "Nitisastro",
20"Nittyyudo", "Noegroho", "Noor", "Notowidigdo", "Novieta", "Nugraha", "Nugroho", "Nur", "Nursalim", "Nurzaman", "Ongkoredjo", "Ongkosoewito", "Panjaitan", "Panuntun", "Panutomo", "Parlaungan", "Pasaman", "Pascal", "Patra", "Patrick", "Perdana", "Perkasa", "Pheng", "Phiau", "Pinder", "Ping", "Podiono", "Politon", "Poniman", "Prajoga", "Prakash", "Pramaditia", "Pramudyo", "Pranoto", "Prasetio", "Pravidia", "Prawitasari", "Priantono", "Priapantja", "Priasmoro", "Pribadi", "Pribady", "Prijatna", "Prijono", "Prosperindo", "Purnomo", "Purwohardono", "Puspoputro", "Putra", "Putranto", "Putri", "Rachana", "Rachel", "Rachim", "Rachman", "Rachmat", "Rachmiwaty", "Radisha", "Radius", "Rahardja", "Rahardjo", "Rahayu", "Rahendrawan", "Rahmad", "Rahman", "Rahmawaty", "Raidy", "Raj", "Raja", "Raju", "Ralhan", "Ramajati", "Ramchand", "Ramirez", "Ramli", "Rana", "Randolph", "Randy", "Rashid", "Rat", "Ratna", "Ratnasari", "Ratnawati", "Ratnesh", "Ravi", "Rayanusin", "Rayawang", "Raymond", "Razief", "Razif", "Reimer", "Renata", "Rendra", "Reserves", "Retno", "Reza", "Rhemrev", "Rhita", "Ria", "Rianti", "Rianto", "Ribbon", "Richard", "Ricky", "Ridwan", "Rifai", "Rilantini", "Rina", "Rinaldy", "Rinda", "Rini", "Risjad", "Risty", "Rita", "Riupassa", "Riyadi", "Riza", "Rizal", "Robby", "Robert", "Roberto", "Robertson", "Robin", "Robinson", "Robinto", "Roeslani", "Roger", "Rohaeni", "Roij", "Romo", "Ronald", "Ronaldi", "Roni", "Ronny",
21"Rony", "Roos", "Roosmiati", "Rophian", "Rori", "Roring", "Rosabella", "Rosan", "Rosana", "Roselyne", "Rosianawati", "Rosida", "Rosmeiny", "Roswita", "Roy", "Rudi", "Rudikan", "Rudy", "Rudyanto", "Rudyono", "Rulyani", "Runi", "Rusco", "Rusdi", "Rusdy", "Rusiana", "Rusjati", "Rusli", "Ruslim", "Russel", "Rustiyan", "Ruth", "Ryan", "Ryandi", "Ryu", "Sacheen", "Sadarangani", "Sadikun", "Saebe", "Safersa", "Said", "Saiko", "Salamah", "Salik", "Salim", "Saliman", "Sally", "Sallyawati", "Samin", "Sammy", "Sampoerna", "Sampoerno", "Samudera", "Samuel", "Sanadi", "Sanderawati", "Sandi", "Sandjojo", "Sandra", "Sandrawati", "Sandria", "Sandy", "Sangeeta", "Sanjay", "Sanjaya", "Santosa", "Santoso", "Santy", "Sanyo", "Saparuddin", "Sapri", "Sapta", "Saputri", "Sardjono", "Sari", "Sarwani", "Sasongko", "Sasono", "Sastrasanjaya", "Sastrawinata", "Satria", "Satrio", "Satyadharma", "Sautin", "Say", "Sazly", "Schumacher", "Scott", "Sean", "Sebastian", "Sefrie", "Sembodo", "Semiwati", "Sengman", "Septarina", "Septiana", "Septo", "Sertana", "Setia", "Setiabudi", "Setiadharma", "Setiadi", "Setiady", "Setiawan", "Setijono", "Setiono", "Setyaningsih", "Setyawati", "Sgfried", "Shabna", "Shah", "Shalimar", "Shaline", "Shariq", "Sharma", "Shazell", "Sherlly", "Sherman", "Shinta", "Shirley", "Shuzy", "Shyam", "Siak", "Sianto", "Siauw", "Siddik", "Siegfried", "Sierah", "Sigit", "Silfanus", "Silvester", "Sim", "Siman", "Simon", "Simorangkir", "Simson", "Sinar", "Sinarto", "Sinatra", "Sindhu", "Singgih", "Singh", "Sinta", "Sintoro", "Siok", "Siong", "Siregar", "Sistha", "Siswanto", "Siti", "Sity", "Siusan", "Slam", "Slamet", "So", "Soebagio", "Soebagjo", "Soebali", "Soebandi", "Soedarjo", "Soegianto",
22"Soegiarto", "Soegwanto", "Soekarno", "Soekrisman", "Soelijah", "Soemadipradja", "Soenarjanto", "Soenarni", "Soenarta", "Soendari", "Soenryo", "Soepardianti", "Soeparmadi", "Soeparman", "Soeroto", "Soeryo", "Soesanto", "Soesilowati", "Soetemo", "Soetikno", "Soetjahjono", "Soetjipto", "Soewandi", "Soewatdy", "Soewono", "Soeyanto", "Sofian", "Sohet", "Solana", "Soleh", "Solidi", "Solihin", "Somboon", "Sonal", "Song", "Soniya", "Sonny", "Sony", "Sonya", "Soon", "Soputro", "Soraya", "Sorgato", "Soulsby", "Sri", "Sriro", "Stampfer", "Stan", "Stefanus", "Stephan", "Stephen", "Steven", "Stewart", "Su", "Suarmin", "Subagdja", "Subagio", "Subandi", "Subardi", "Subari", "Subianto", "Subrata", "Subuh", "Suciah", "Sudiarso", "Sudijanto", "Sudiro", "Sudjie", "Sudjono", "Sudradjat", "Sudwikatmono", "Sufan", "Sugianto", "Sugiarto", "Sugiharto", "Sugiman", "Suginawan", "Sugiono", "Sugito", "Sugun", "Suhadi", "Suhaimi", "Suhangkat", "Suhardi", "Suhardiman", "Suhardy", "Suhari", "Suharman", "Suharsono", "Suharya", "Suhendra", "Suherman", "Suhiantoro", "Sujagad", "Sujanty", "Sujarni", "Sujono", "Sukandadinata", "Sukendar", "Sukendra", "Sukmawati", "Sukotjo", "Sulaiman", "Sulestio", "Suliawan", "Sulieniati", "Sulistiani", "Sulistio", "Sulisto", "Sulung", "Sumadi", "Sumantri", "Sumargo", "Sumarlin", "Sumarto", "Sumet", "Sumiati", "Sumiaty", "Sumito", "Sumodikoro", "Sunan", "Sunardi", "Sunarjo", "Sunata", "Sung", "Sunil", "Sunny", "Supardi", "Supardjono", "Supargo", "Suparto", "Supartono", "Supple", "Supriyadi", "Suresh", "Suria", "Suriawati", "Suripto", "Surjadinata", "Surjana", "Surjanto", "Surjantoro", "Surjany", "Surjono", "Surono", "Suroso", "Surya", "Suryana", "Suryanto", "Suryatenggara", "Susan", "Susana", "Susanna", "Susanti", "Susantio", "Susanto", "Susantyo", "Susi", "Susianty", "Susilawati", "Susilo", "Susiloputro", "Susilowati", "Susin", "Suswanti", "Susy", "Sutandar", "Sutandi", "Sutandinata", "Sutandy", "Sutanto", "Sutarsa", "Sutedja", "Suteja", "Sutiadi", "Sutiana", "Sutikno", "Sutiono", "Sutono", "Suwandi", "Suwantara", "Suwarto", "Suwito", "Suyono", "Syafriel", "Syafrinda", "Syahbandi", "Syahrul", "Syaiful", "Syamsul", "Syarief", "Syarif", "Sylvia", "Taher", "Tahir", "Tamin", "Tampi", "Tampubolon", "Tan", "Tanady", "Tanardi", "Tanbun", "Tandiono", "Tando", "Tandra", "Tandriono", "Tanoko", "Tanoto", "Tanoyo", "Tanu", "Tanumihardja", "Tanuwidjaja", "Tarazona", "Taruno", "Tatang", "Taufan", "Taufik", "Tay", "Teddy", "Tedja", "Tedjokusumo", "Tedy", "Teguh", "Tejowarno", "Tenacious", "Tenges", "Tengku", "Teresa", "Teresna", "Terunodjojo", "Texania", "Thaslim", "Theodorus", "Theresia", "Thinh", "Thio", "Thomas", "Thomson", "Tiara", "Tien", "Tigran", "Tijoso", "Timmie", "Timothius", "Timothy", "Timotius", "Tina", "Tio", "Tioniwar", "Tirta", "Tirtadjaja", "Tirtawidjaja", "Tirto", "Tita", "Tito", "Titus", "Tjahja", "Tjahjadi", "Tjahjono", "Tjahyono", "Tjai", "Tjajadi", "Tjakra", "Tjakralaksana", "Tjan", "Tjandra", "Tjandradjaja", "Tjao", "Tje", "Tjen", "Tjendro", "Tjhang", "Tjhun", "Tjia", "Tjiam", "Tjie", "Tjindrasa", "Tjioe", "Tjipto", "Tjiputra", "Tjiterosampurno", "Tjiu", "Tjoa", "Tjoe", "Tjoen", "Tjoeng", "Tjoi", "Tjokrorianto", "Tjokrosapoetro", "Tjokrosaputro", "Tjondro", "Tjong", "Tobing", "Tochmi", "Toddy", "Tom", "Tommy", "Tomy", "Tonny", "Tony", "Tossin", "Toto", "Totok", "Totong", "Totty", "Trent", "Triana", "Trianawati", "Tricia", "Tridarma", "Trini", "Trisedia", "Trismitro", "Trisnawati", "Trisning", "Triyatno", "Triyono", "Troy", "Tsang", "Tseng", "Tulsidas", "Tung", "Tunggono", "Turcahyo", "Turniady", "Tuty", "Tyrone", "Tyty", "Unjoto", "Usman", "Utama", "Utomo", "Valent", "Valentinus", "Varisa", "Vasandani", "Vemmy", "Vera", "Vernon", "Veronica", "Veronika", "Victor", "Vidhya", "Vijay", "Vincent", "Vinod",
23"Viona", "Virendra", "Virgan", "Vivi", "Vivian", "Vivien", "Vonny", "Wahjoe", "Wahyudi", "Walujo", "Wang", "Wantah", "Wardhana", "Wargana", "Welly", "Wen", "Wibhisono", "Wibowo", "Widagdo", "Widayanti", "Widjaja", "Widjanarko", "Widjata", "Widjaya", "Widjojo", "Widyadi", "Widyantari", "Widyawati", "Wiguno", "Wihardjo", "Wijaya", "Wikutomojati", "Wilkes", "William", "Williams", "Wilson", "Winarko", "Winarno", "Winarso", "Winarto", "Winoto", "Wiradarma", "Wiratama", "Wiratno", "Wirawan", "Wiria", "Wirjan", "Wirjoatmodjo", "Wirrotama", "Wiryanto", "Wishnu", "Wisnoe", "Wisnu", "Wiwin", "Wiyono", "Wiyoso", "Wolfe", "Wong", "Wonowidjojo", "Wulanda", "Wulaningsih", "Yakin", "Yamin", "Yanto", "Yanuar", "Yapsir", "Yasin", "Yaya", "Yayasan", "Yeni", "Yessica", "Yogie", "Yohan", "Yohanes", "Yohannes", "Yoko", "Yolanda", "Yong", "Yonna", "Yosawiria", "Yoseph", "Yoshawirja", "Yoso", "Yosodewi", "Yosyan", "Yoyok", "Yudhianto", "Yudi", "Yugisako", "Yuke", "Yulia", "Yuliana", "Yulianty", "Yulisma", "Yully", "Yunet", "Yunita", "Yuprapan", "Yusak", "Yusana", "Yustina", "Yustiningsih", "Yustinus", "Yusuf", "Yusy", "Yuwono", "Yvette", "Yvonne", "Zain", "Zaini", "Zein", "Zen", "Zulkarnaen", "Zuriah");
24my $n = $nama[rand @nama];
25return $n;
26}
27
28sub city{
29my @city = ("Bekasi", "Makassar", "Padang", "Yogyakarta", "Bandung", "Semarang", "Surabaya", "Bengkulu", "Serang", "Denpasar", "Kupang", "Mataram", "Pontianak", "Manado", "Palu", "Kendari", "Gorontalo", "Ambon", "Jayapura", "Manokwari");
30my $c = $city[rand @city];
31return $c;
32}
33
34
35sub update_proxy{
36if(-e "proxy.txt"){
37    unlink("proxy.txt");
38}
39my $ua = LWP::UserAgent->new(ssl_opts => {verify_hostname => 0});
40$ua->agent("Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:56.0) Gecko/20100101 Firefox/56.0");
41my $glink = $ua->get("http://www.live-socks.net/");
42if($glink->is_success){
43$glink->decoded_content =~ m/<a href='(\S+\/\d+\/\S+)'>.*<\/a>/g;
44$link = $1;
45my $ua = LWP::UserAgent->new(ssl_opts => {verify_hostname => 0});
46$ua->agent("Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:56.0) Gecko/20100101 Firefox/56.0");
47my $gdata = $ua->get($link);
48if($gdata->is_success){
49my $gdataa = $gdata->decoded_content;
50my @proxy;
51while($gdataa =~ m/(\d+.\d+.\d+.\d+\:\d+)/g){
52push @proxy, $1;
53}
54foreach $proxy(@proxy){
55if($proxy =~ m/-/g){
56}
57else{
58$proxy =~ s/\n+?|\s+?|\t+?|\r+//g;
59open (MYFILE, ">>proxy\.txt");
60print MYFILE $proxy."\n";
61close (MYFILE);
62}
63}
64}
65else{
66update_proxy();
67}
68}
69else{
70update_proxy();
71}
72}
73
74
75sub proxy{
76update_proxy();
77open(my $proxy,"<proxy.txt") || die($!);
78my @arrayproxy = <$proxy>;
79close($proxy);
80my @buildarrayproxy = grep { !/^$/ } @arrayproxy;
81my $proxy = $buildarrayproxy[rand @buildarrayproxy];
82$proxy =~ s/\s+?|\n+?|\t+?|\r+//g;
83return $proxy;
84}
85
86sub betweenmail{
87my @between = ("\.", "\_", "");
88my $betwe = $between[rand @between];
89return $betwe;
90}
91
92sub lastmaill{
93my @mail = ("gmail.com", "yahoo.com", "yahoo.co.id", "outlook.com", "hotmail.com");
94my $n = $mail[rand @mail];
95return $n;
96}
97
98sub petisi{
99my $fn = shift;
100my $ln = shift;
101my $betwe = betweenmail();
102my $ef = lc $fn;
103my $el = lc $ln;
104my $lastmaill = lastmaill();
105my $num = dunhill();
106my $numm = dunhill();
107my $rand_number = ($num * $numm * $num);
108my $lastmail = Crypt::RandPasswd->word( 6, 10 );
109my $email = $ef.$betwe.$lastmail.$rand_number."\@".$lastmaill;
110my $useragent = uagent();
111my $proxy = proxy();
112my $city = city();
113print "Nama  : ".$fn." ".$ln."\n";
114print "Email : ".$email."\n";
115print "Kota  : ".$city."\n";
116print "Proxy : ".$proxy."\n";
117
118if(-e "cookiepetisi.txt"){
119unlink("cookiepetisi.txt");
120}
121
122my $cookie = HTTP::Cookies->new( 
123    file => "cookiepetisi.txt",
124    autosave => 1,
125    ignore_discard => 1
126);
127
128
129my $headerr = HTTP::Headers->new(
130"Connection" => "keep-alive",
131"Upgrade-Insecure-Requests" => "1"
132);
133my $ua = LWP::UserAgent->new(ssl_opts => {verify_hostname => 0}, cookie_jar => $cookie);
134$ua->default_headers($headerr);
135$ua->agent($useragent);
136push @{ $ua->requests_redirectable }, 'POST', 'GET';
137$ua->proxy([qw(http https)] => "socks://".$proxy."");
138$ua->timeout(30);
139my $csrf = $ua->get("https://www.change.org/p/irman-yasin-limpo-none-dukung-none-jadi-sekprov-sulsel");
140my $csrff = $csrf->decoded_content;
141$csrff =~ m/"csrfToken":"(\S+)","current/g;
142$csrfx = $1;
143if(!($csrfx eq "")){
144my $header = HTTP::Headers->new(
145"Host" => "www.change.org",
146"User-Agent" => $useragent,
147"Accept" => "application/json, text/javascript, */*; q=0.01",
148"Accept-Language" => "en-US,en;q=0.5",
149"Accept-Encoding" => "gzip, deflate, br",
150"Content-Type" => "application/json",
151"X-CSRF-Token" => $csrfx,
152"Connection" => "keep-alive",
153"X-Requested-With" => "XMLHttpRequest",
154"Referer" => "https://www.change.org/p/irman-yasin-limpo-none-dukung-none-jadi-sekprov-sulsel",
155"Upgrade-Insecure-Requests" => "1"
156);
157
158my $req = HTTP::Request->new(POST => "https://www.change.org/api-proxy/-/signatures", $header);
159$req->content('{"petition_id":12919484,"country_code":"ID","enable_human_verification":false,"page_context":"petitions_show","briteform_token":"briteform_disabled_ID_id-ID","first_name":"'.$fn.'","last_name":"'.$ln.'","email":"'.$email.'","city":"'.$city.'","state_code":"AL","postal_code":"","facebook_autopublish":false,"public":true}');
160my $response = $ua->request($req);
161if($response->decoded_content =~ m/success":false/g or
162	$response->decoded_content =~ m/redirect_to/g){
163print $response->decoded_content."\n";
164sleep(5);
165my $headnt = HTTP::Headers->new(
166"Host" => "www.change.org",
167"User-Agent" => "Mozilla/5.0 (X11; Linux i686; rv:52.0) Gecko/20100101 Firefox/52.0",
168"Accept" => "text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8",
169"Accept-Language" => "en-US,en;q=0.5",
170"Accept-Encoding" => "gzip, deflate, br",
171"DNT" => "1",
172"Connection" => "keep-alive",
173"Upgrade-Insecure-Requests" => "1");
174$ua->default_headers($headnt);
175my $chek_list = $ua->get("https://www.change.org/api-proxy/model.json?paths=[[%22petitionsById%22,12919484,%22recentSigners%22,{%22from%22:0,%22to%22:19},%22timestamp%22],[%22petitionsById%22,12919484,%22recentSigners%22,{%22from%22:0,%22to%22:19},%22user%22,[%22city%22,%22country_code%22,%22display_name%22,%22id%22,%22state_code%22]],[%22petitionsById%22,12919484,%22recentSigners%22,{%22from%22:0,%22to%22:19},%22user%22,%22photo%22,%22user_small_url%22]]&method=get");
176if($chek_list->decoded_content =~ m/$fn\s+$ln/g){
177print "Signed\n";
178sleep(10+$num);
179}
180else{
181if($chek_list->decoded_content =~ m/Change.org, Inc/g){
182print "Butuh Verifikasi Email\n";
183exit;
184}
185else{
186print "Signed\n";
187sleep(10+$num);
188}
189}
190}
191else{
192petisi($fn,$ln);
193}
194}
195else{
196petisi($fn,$ln);
197}
198}
199
200sub uagent{
201my @agent = ("Mozilla/5.0 (Linux; U; Android 4.0.4; nl-nl; GT-N8010 Build/IMM76D) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Safari/534.30",
202"Mozilla/5.0 (Linux; U; Android 4.1.2; nl-nl; GT-I9300 Build/JZO54K) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30",
203"Mozilla/5.0 (Linux; U; Android 4.1.2; en-gb; GT-I9300 Build/JZO54K) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30",
204"Mozilla/5.0 (Linux; U; Android 2.3.6; en-us; T-Mobile myTouch Q Build/HuaweiU8730) AppleWebKit/533.1 (KHTML, like Gecko) Version/4.0 Mobile Safari/533.1",
205"Mozilla/5.0 (Linux; U; Android 4.1.2; nl-nl; GT-P5110 Build/JZO54K) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Safari/534.30",
206"Mozilla/5.0 (Linux; U; Android 4.1.2; en-us; SCH-I925 Build/JZO54K) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Safari/534.30",
207"Mozilla/5.0 (Linux; U; Android 4.1.2; nl-nl; GT-I9100 Build/JZO54K) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30",
208"Mozilla/5.0 (Linux; U; Android 2.3.6; en-us; SAMSUNG-SGH-I777 Build/GINGERBREAD) AppleWebKit/533.1 (KHTML, like Gecko) Version/4.0 Mobile Safari/533.1",
209"Mozilla/5.0 (Linux; U; Android 2.3.5; nl-nl; GT-S5830 Build/GINGERBREAD) AppleWebKit/533.1 (KHTML, like Gecko) Version/4.0 Mobile Safari/533.1",
210"Mozilla/5.0 (Linux; U; Android 4.1.1; en-us; Transformer Prime TF201 Build/JRO03C) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Safari/534.30",
211"Mozilla/5.0 (Linux; U; Android 4.1.2; nl-nl; SAMSUNG GT-I9100/I9100XWLSD Build/JZO54K) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30",
212"Mozilla/5.0 (Linux; U; Android 4.1.2; it-it; GT-I9100 Build/JZO54K) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30",
213"Mozilla/5.0 (Linux; U; Android 4.1.1; en-us; TAB10-201 Build/Xenta) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Safari/534.30",
214"Mozilla/5.0 (Linux; U; Android 4.0.3; nl-nl; GT-N7000 Build/IML74K) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30",
215"Mozilla/5.0 (Linux; U; Android 2.3.6; it-it; GT-S6500 Build/GINGERBREAD) AppleWebKit/533.1 (KHTML, like Gecko) Version/4.0 Mobile Safari/533.1",
216"Mozilla/5.0 (Linux; U; Android 4.1.2; nl-nl; SAMSUNG GT-I9300/I9300XXEMRD Build/JZO54K) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30",
217"Mozilla/5.0 (Linux; U; Android 4.1.2; nl-nl; GT-N8010 Build/JZO54K) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Safari/534.30",
218"Mozilla/5.0 (Linux; U; Android 3.2; nl-nl; GT-P6800 Build/HTJ85B) AppleWebKit/534.13 (KHTML, like Gecko) Version/4.0 Safari/534.13",
219"Mozilla/5.0 (Linux; U; Android 4.2.2; nl-nl; HTC_One_X Build/JDQ39) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30",
220"Mozilla/5.0 (Linux; U; Android 4.1.2; nl-nl; GT-N7100 Build/JZO54K) AppleWebKit/534.30 (KHTML, like Gecko) Version/4.0 Mobile Safari/534.30");
221my $nag = $agent[rand @agent];
222if($nag eq ""){
223	uagent();
224}
225else{
226	return $nag;
227}
228}
229
230if(defined($ARGV[0])){
231chomp($ARGV[0]);
232my $num = $ARGV[0];
233for($i=0;$i<$num;$i++){
234my $fn = nama();
235my $ln = nama();
236petisi($fn, $ln);
237}
238}
239else{
240print "
241How To Use :\n
242petisi.pl 10\n";
243exit;
244}