abclinuxu.cz AbcLinuxu.cz itbiz.cz ITBiz.cz HDmag.cz HDmag.cz abcprace.cz AbcPráce.cz
AbcLinuxu hledá autory!
Inzerujte na AbcPráce.cz od 950 Kč
Rozšířené hledání
×

    dnes 13:33 | IT novinky

    Letošní Turingovou cenu (2022 ACM A.M. Turing Award) získal Bob Metcalfe za vynalezení, standardizaci a komercializaci Ethernetu.

    Ladislav Hagara | Komentářů: 0
    dnes 07:00 | Nová verze

    Svobodná webová platforma pro sdílení a přehrávání videí PeerTube (Wikipedie) byla vydána ve verzi 5.1. Přehled novinek i s náhledy v oficiálním oznámení a na GitHubu.

    Ladislav Hagara | Komentářů: 0
    včera 18:22 | Nová verze

    Byla vydána Java 20 / JDK 20. Nových vlastností (JEP - JDK Enhancement Proposal) je 7. Nová Java / JDK vychází každých 6 měsíců. LTS verze je 17.

    Ladislav Hagara | Komentářů: 1
    včera 16:44 | IT novinky

    Google spustil konverzační AI Bard. Vyzkoušet lze zatím pouze ve Spojených státech a Spojeném království. Více v Bard FAQ.

    Ladislav Hagara | Komentářů: 2
    včera 14:22 | Bezpečnostní upozornění

    David Buchanan na svém blogu rozebírá zranitelnost acropalypse (CVE-2023-21036) telefonů Google Pixel. Z výřezu (crop) snímku obrazovky vytvořeného integrovanou aplikací Markup může být možné částečné obnovení původního snímku obrazovky. Viz tweet Simona Aaronse. Vyzkoušet lze webovou aplikaci acropalypse.app. Opraveno v březnové aktualizaci.

    Ladislav Hagara | Komentářů: 3
    včera 08:00 | Nová verze

    V programovacím jazyce Go naprogramovaná webová aplikace pro spolupráci na zdrojových kódech pomocí gitu Gitea (Wikipedie) byla vydána v nové verzi 1.19.0. Přehled novinek i s náhledy v příspěvku na blogu. Kvůli "převzetí Gitei" společností Gitea Limited byl v prosinci loňského roku představen fork Gitei s názvem Forgejo (Codeberg).

    Ladislav Hagara | Komentářů: 0
    včera 07:00 | Nová verze

    Byla vydána nová verze 5.11 živé linuxové distribuce Tails (The Amnesic Incognito Live System), jež klade důraz na ochranu soukromí uživatelů a anonymitu. Přehled změn v příslušném seznamu. Nově je používán zram. Tor Browser byl aktualizován na verzi 12.0.4. Thunderbird na verzi 102.9.0.

    Ladislav Hagara | Komentářů: 0
    20.3. 22:33 | IT novinky

    Na GOG.com běží Spring Sale. Při té příležitosti lze získat zdarma počítačovou hru Lorelai (ProtonDB).

    Ladislav Hagara | Komentářů: 0
    20.3. 11:00 | Nová verze

    Curl, řádkový nástroj a knihovna pro přenos dat po různých protokolech, slaví 25 let. Vydána byla nová verze 8.0.0. Mimo jiné řeší 6 zranitelností.

    Ladislav Hagara | Komentářů: 1
    20.3. 10:00 | Komunita

    V sobotu 25. března proběhne Arduino Day 2023. Od 14:00 lze sledovat oficiální stream. Zúčastnit se lze i lokálních akcí. V Česku jsou aktuálně registrovány dvě: v Praze na Matfyzu a v Poličce v městské knihovně.

    Ladislav Hagara | Komentářů: 0
    Používáte WSL (Windows Subsystem for Linux)?
     (74%)
     (12%)
     (4%)
     (10%)
    Celkem 282 hlasů
     Komentářů: 1, poslední 6.3. 07:51
    Rozcestník


    Dotaz: IRC Proxy v Perlu

    8.10.2009 21:30 Mr.S1lent.cz
    IRC Proxy v Perlu
    Přečteno: 214×

    Zdravim, jsem pravidelny navstevnik lide chatu -> mitnost pc. Chodim tam pres lide-gw pythonovou branu a ted me napadlo udelat nejakou proxy, ktera by fungovala jako takovy filtr vstupu, ktery by kontrolovaly prislusne moduly a teprve pak poustely do klienta. Avsak jsem zatim tvoril neuspesne :-(

    Traffic probiha podle vseho pouze od klienta do proxy ( netusim jestli to leze i do brany a fuc ), ale od lide brany mi tam do proxy zadny traffic nejde, cili je zrejme neco spatne...

     

    Login klienta do brany lide-gw je defaultne: 

    server = localhost

    port = 13801

     

    proxy jsem vytvoril na 127.0.0.1:13802

    zde je kod: http://www.pastebin.cz/preview/384657616a64f3

     

    lide-gw brana hlasi, ze se proxy pripoji (jede v terminalu), ale klientovi se pripojit nepodari, to je vse, co vam k tomu mohu rict, nevi nekdo, kde je chyba? :-(

     

    Predem dekuji za odpovedi...

     

    Odpovědi

    9.10.2009 06:31 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: IRC Proxy v Perlu
    A co to má jako dělat?
    my $conn = Connection();
    my $lide = $conn->accept();
    
    Nejdřív čekáte na spojení na jednom portu...
    my $proxy = Proxy();
    my $local = $proxy->accept();
    
    Pak na druhém...
    while( my $input = <$lide> ) {
        chomp $input;
        print "$input\n";
    
        my $l = <$local>;
        chomp $l;
        print $l $input;
    }
    
    Pak čtete řádek z prvního, pak z druhýho socketu (tohle pořadí máte nějak zaručeno, nebo si koledujete o deadlock), a pak printujete kam??? $1 asi těžko bude nějaký file descriptor, takže by to mělo celkem solidně řvát. Navíc používat $1 jako proměnnou je dost blbej nápad.
    die "Can't connected to lide.cz!\n";
    Tohle je asi dost od věci, protože se to ani v jednom případě nikam nepřipojuje.
    In Ada the typical infinite loop would normally be terminated by detonation.
    9.10.2009 14:21 Mr.S1lent.cz
    Rozbalit Rozbalit vše Re: IRC Proxy v Perlu

    No ja jsem omylem hodil predchozi verzi, soucasna je: http://www.pastebin.cz/23778

    Aco to ma delat? tento script by mel byt takovym mostem mezi lidegw branou a IRC klientem.

    V soucasne dobe to dela to, ze se to napoji na lide branu, prijme data od klienta, ale to je tak vsechno, bud se tomuto mostu nedari odeslat data lidegw brane, nebo neni schopen ty data od ni prijimat a posilat klientovi...

    Lidewg brana hlasi connected, tento perlovsky most hlasi connected obema socketum ( uz jsem ten vypis connected z kodu odstranil ), avsak klient se nedokaze prihlasit...

    btw od klienta mi prijdou tyto data:

    PASS  ...

    USER ...

    NICK ...

     

    Nenapada vas nekoho, jak to zprovoznit? :-(

     

    9.10.2009 16:33 Dunric | skóre: 21
    Rozbalit Rozbalit vše Re: IRC Proxy v Perlu
    Tvůj dotaz i kód jsou dost zmatený.

    Všimnul jsem si ale, že vůbec neukončuješ zprávy posílaný socketům, tak se ti všechny zprávy z "proxy" hromadí do 1. neukončené zprávy pro "lidegw" a proto na cílovém serveru není "nic vidět".

    In the garden sleeps a messenger ·
    9.10.2009 16:59 Mr.S1lent.cz
    Rozbalit Rozbalit vše Re: IRC Proxy v Perlu

    Kod verim, ze je zmateny, poneavdz tohle zkousim prvne, nikdy jsem takovou lokalni proxy nezkousel :-)

    A dotaz? Ja osobne doufam, ze staci uz jen kousicek k tomu, aby to fungovalo, tak bych chtel nakopnout :-) takze znovu:

    1) cil - udelat lokalni proxy, neboli takovy most mezi pythonovou lide-gw branou, ktera slouzi k vytvoreni socketu pro komunikaci lide chatu s IRC klientem.

    defaultni login na tuto branu je server: localhost; port: 13801;

    2) chovani soucasneho scriptu: pythonova brana hlasi prijem noveho spojeni ( tedy od teto lokalni proxy ), oba sockety byly zdarne vytvoreny a proxy prijima data od IRC klienta. To je ale vse - tato lokalni proxy pravdepodobne neodesila data od klienta k lide brane, nebo nedokaze prevzit data z lide brany ( anebo oboji ze ) :-/

    3) soucasny kod:

    #!/usr/bin/perl

    use strict;
    use IO::Socket;

    sub Connection {
        my $conn = new IO::Socket::INET (
                       PeerAddr => 'localhost',
                       PeerPort => '13801',
                       Proto    => 'tcp',
                       Type     => SOCK_STREAM,
                                       );
        if ( ! $conn ) {
            die "Can't connected to lide.cz!\n";
        } else {
            return $conn;
        }
    }

    sub Proxy {
        my $conn = new IO::Socket::INET (
                       LocalAddr => '127.0.0.1',
                       LocalPort => '13802',
                       Proto     => 'tcp',
                       Resue     => 1,
                       Listen    => 1,
                                       );
        if ( ! $conn ) {
            die "Can't created a proxy!\n";
        } else {
            return $conn;
        }
    }

    my $conn = Connection();
    my $server = Proxy();

    my $proxy = $server->accept();
    my $lidegw = $conn->accept();
    $conn->blocking(0);
    $server->blocking(0);

    while ( my $lide = <$lidegw> or my $local = <$proxy> ) {
        chomp $lide;
        chomp $local;

        if ( $lide != '' ) {
            print "from lidegw: $lide\n";
            print $server "$lide\r\n";
        } else {
            print "from klient: $local\n";
            print $conn "$local\r\n";
        }
    }

     

    9.10.2009 18:50 Dunric | skóre: 21
    Rozbalit Rozbalit vše Re: IRC Proxy v Perlu
    Zkuste prosím objasnit co jste zamýšlel tou částí kódu kolem proměnné $lidegw, zejména
    ...
    my $lidegw = $conn->accept();
    ...
    while ( my $lide = <$lidegw> or my $local = <$proxy> ) {
        chomp $lide;
        chomp $local;
    
        if ( $lide != '' ) {
            print "from lidegw: $lide\n";
            print $server "$lide\r\n";
        } else {
    
    protože to nedává smysl, na tom socketu nic nenaslouchá.
    In the garden sleeps a messenger ·
    10.10.2009 11:51 Mr.S1lent.cz
    Rozbalit Rozbalit vše Re: IRC Proxy v Perlu
    Uz jsem na to prisel, nevedel jsem v Perlu o funkci "fork", diky ni jsem to uspesne vyresil timto zpusobem:

    http://www.pastebin.cz/23805
    10.10.2009 18:28 pht | skóre: 48 | blog: pht
    Rozbalit Rozbalit vše Re: IRC Proxy v Perlu
    Na začátek to není špatné, ale tento princip používali kluci z berkeley v 80. letech a po nich to zdědili programátoři windows. Normálně Vám bude stačit jeden proces a v něm použít select() pro čekání na data na obou spojeních. Při troše hledání určitě najdete i perlovský modul, který celou tu proxy udělá za Vás.
    In Ada the typical infinite loop would normally be terminated by detonation.

    Založit nové vláknoNahoru

    Tiskni Sdílej: Linkuj Jaggni to Vybrali.sme.sk Google Del.icio.us Facebook

    ISSN 1214-1267   www.czech-server.cz
    © 1999-2015 Nitemedia s. r. o. Všechna práva vyhrazena.