Socket Binary übertragung - #37064 (Netzwerkprogrammierung und Netzwerke mit Perl)

tuxilein

2006-01-30 12:13

User since
2006-01-27
19 Artikel
BenutzerIn
[default_avatar]

Hallo Leute,

nun ich habe folgendes Problem:
Ich habe einen Socket Server mit Forks und nen Client - funktioniert auch wunderbar.

Die Kommunikation geht auch, nur der Server und Client kommuniziren per Crypt::CBC mit Blowfish verschlüsselt, dies Funktioniert an und für sich auch ohne probs nur wenn ich Binary Daten übertrage habe ich da ein prob. Unverschlüsselt habe ich es mit (un)pack( "H*", $var ) gemacht. Nur ein Prob ist, bei verschlüsselten Daten kommt nur die Hälfte an. Benutze ich en/decript_hex geht der binary datentransfer nicht.

So jetzt habe ich vor den ganzen datenverkehr mit en/decript_base64 zu übertragen.
Es kommt auch etwas an aber nur abgeschnitten, was mach ich falsch?

Es geht unverschlüsselt nicht - meine erste vorraussetzung - das es erst unverschlüsselt geht bevor ich verschlüssele den traffic.

Code (perl): (dl )

use Crypt::CBC;  # Blowfish
use IO::Socket;
use MIME::Base64;


# zum bsp  die send func ein kleiner ausschnit
    if( $self->{cipher} )
    {
        $send_mesg = $self->{cipher}->encrypt( $send_mesg );
        $self->{cipher}->finish;
    }
    
    $send_mesg = encode_base64( $send_mesg );
    
    print $con "$send_mesg";

\n\n