From: Tomas Mudrunka <tomas.mudrunka@gmail.com>
Date: Wed, 19 Feb 2025 15:56:40 +0000 (+0100)
Subject: Zalohy ze stareho webu
X-Git-Url: http://git.harvie.cz/?a=commitdiff_plain;h=1b722e2624c43b0abb3acba32059fa95808a6850;p=mirrors%2FPrograms.git

Zalohy ze stareho webu
---

diff --git a/c/HarveCter/harvecter.nfo b/c/HarveCter/harvecter.nfo
index b1268d3..4e01cb7 100644
--- a/c/HarveCter/harvecter.nfo
+++ b/c/HarveCter/harvecter.nfo
@@ -17,10 +17,10 @@
  <>   Name:                  HarveCter                                                                <>
  <>   Subject:               IRC Bot                                                                  <>
  <>   Description:           Remote Control/Backdoor/Zombie/etc... Everything is controled by IRC     <>
- <>   Version:               1.0                                                                     <>
+ <>   Version:               1.0                                                                      <>
  <>                                                                                                   <>
  <>  <>DETAILS                                                                                        <>
- <>   Platform:              Microsoft Windows (Tested on XP SP2)                                     <>
+ <>   Platform:              Microsoft Windows (Tested on 2000, XP SP1, XP SP2)                       <>
  <>   Language:              Ansi C + Few windows libs (windows.h & WinSock)                          <>
  <>   Author:                <-- Harvie                                                               <>
  <>   Date:                  2oo7                                                                     <>
diff --git a/perl/kyberia/kyberia-sk-applet.pl b/perl/kyberia/kyberia-sk-applet.pl
new file mode 100644
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;