Zalohy ze stareho webu

diff --git a/c/HarveCter/harvecter.nfo b/c/HarveCter/harvecter.nfo
index b1268d376c145529fa030b882202917e85a10d37..4e01cb71e446a29f28378b2cdb1f12f9d507c8b8 100644 (file)
--- a/c/HarveCter/harvecter.nfo
+++ b/c/HarveCter/harvecter.nfo
@@ -17,10 +17,10 @@
  <>   Name:                  HarveCter                                                                <>\r
  <>   Subject:               IRC Bot                                                                  <>\r
  <>   Description:           Remote Control/Backdoor/Zombie/etc... Everything is controled by IRC     <>\r
- <>   Version:               1.0                                                                     <>\r
+ <>   Version:               1.0                                                                      <>\r
  <>                                                                                                   <>\r
  <>  <>DETAILS                                                                                        <>\r
- <>   Platform:              Microsoft Windows (Tested on XP SP2)                                     <>\r
+ <>   Platform:              Microsoft Windows (Tested on 2000, XP SP1, XP SP2)                       <>\r
  <>   Language:              Ansi C + Few windows libs (windows.h & WinSock)                          <>\r
  <>   Author:                <-- Harvie                                                               <>\r
  <>   Date:                  2oo7                                                                     <>\r

diff --git a/perl/kyberia/kyberia-sk-applet.pl b/perl/kyberia/kyberia-sk-applet.pl
new file mode 100644 (file)
index 0000000..f7f0577
--- /dev/null
+++ b/perl/kyberia/kyberia-sk-applet.pl
@@ -0,0 +1,39 @@
+#!/usr/bin/env perl
+#Kyberia.sk-Mail-Applet (Harvie 2oo9)
+use strict;
+use Gtk2 -init;
+require "Kyberia.pl";
+
+my $user = 'Harvie';
+my $pass = 'Beruska';
+my $url = 'https://kyberia.sk/';
+
+my $kyberia = Kyberia->new($url);
+$kyberia->Login($user, $pass);
+my $icon_new = 'gnome-stock-mail-new'; #New mail
+my $icon_old = 'mail-reply-all'; #No mail
+my $statusicon = Gtk2::StatusIcon->new();
+
+$statusicon->signal_connect(activate => sub {
+       system("gnome-open $url/id/24 &");
+       alarm(4);
+});
+
+my $state = -1;
+$SIG{'ALRM'} = sub {
+       my $last = $state;
+       my($state, $name, $text) = $kyberia->CheckMail();
+       if($state != $last) {
+               $statusicon->set_blinking($state);
+               $statusicon->set_tooltip_text($text);
+               if($state >= 1) {
+                       $statusicon->set_from_icon_name($icon_new);
+               } else {
+                       $statusicon->set_from_icon_name($icon_old);
+               }
+       }
+       alarm(30);
+};
+alarm(1);
+
+Gtk2->main;