Hvordan får jeg forbindelse ???? Det er forbindelsen jeg ikke kan oprette. Jeg har set ret mange steder med .txt filer der kan fungere som dialup\'s, men hvordan bruger jeg dem ???
du skal sætte dit netkort op til den adresse som står i dine stofa noter, samt default route til en router der står i dine stofa noter. Så telnet\'er du til den login server der står i dine stofa noter - og så var det det. (sæt DNS op i /etc/resolv.conf)
altså: ifconfig til at sætte netkort op route til at sætte default route på og telnet til login server. Derefter kan du hente et login script fra stofas webserver (ligger muligvis endda på cd\'en du fik fra stofa?
Jeg bruger de følgende script, du skal skifte dit id og password ud, sørg for at den script er executable (chmod 777)
#! /usr/bin/perl -w # A script to get stofa connection up # Also, a test to do sockets in perl
require 5.002; use strict; use Socket;
my $ID = \"00000000\\n\" ; # my connection id, and a newline my $pwd = \"blabla\\n\" ; # my password
my $cmd = 1; # command to get the net up
my $host=\"192.168.30.2\"; my $serviceport = \"259\";
my $iaddr = gethostbyname(\'localhost\'); my $proto = getprotobyname(\'tcp\'); my $paddr = sockaddr_in(0,$iaddr);
$|=1;
my $hisiaddr = inet_aton( $host ) || die \"unknwon host\"; my $hispaddr = sockaddr_in($serviceport,$hisiaddr);
socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die \"socket: $!\"; connect (SOCKET, $hispaddr ) || die \"connect: $!\";
my $line = \"-\" x 128; my $ch = \" \"; while ($ch ne \":\" ) { read(SOCKET, $ch, 1); print $ch; } print \"\\n\";
my $count1 = send(SOCKET,$ID,0); print \"Sent ID (c=$count1)\\n\";
$ch = \" \"; while ($ch ne \":\" ) { read(SOCKET, $ch, 1); print $ch; } print \"\\n\";
my $count2 = send(SOCKET,$pwd,0); print \"Sent pwd (c=$count2)\\n\";
$ch = \" \"; while ($ch ne \":\" ) { read(SOCKET, $ch, 1); print $ch; } print \"\\n\";
$ch = \" \"; while ($ch ne \":\" ) { read(SOCKET, $ch, 1); print $ch; } print \"\\n\";
my $choice = \"$cmd \\n\" ; # 1=connection up my $count3 = send(SOCKET,$choice,0); print \"Sent choice: $cmd (c=$count3)\\n\";
$ch = \" \"; while ($ch ne \".\" ) { read(SOCKET, $ch, 1); print $ch; } while ($ch ne \"\\n\" ) { read(SOCKET, $ch, 1); print $ch; } print \"\\n\";
close SOCKET or die \"couldn\'t close cocket: $!\";
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.