|
| Perl - potrzebuje przetlumaczenia :) |
|
|
Wysłano: Poniedziałek, 29 Maj 2006, 18:21 |
|
|
|
Witam
Jesli komus nie sprawi problemu przetlumaczenie ponizszego skryptu (lub przynajmniej wyjasnienie uzytych w nim komend) to bym bardzo prosil na asm albo pascal.. w kazdym razie na cos normalnego.
Jesli ktos posluguje sie biegle perlem i nie bedzie problemem poswiecenie nieco czasu na pomoc innym to o taka pomoc wlasnie poprosze ;)
Kod: |
#!/usr/bin/perl
use IO::Seekable;
use open IO => ":raw";
my $x;
($file, $addr) = @ARGV;
open (FH, $file);
$/="\000";
$addr= oct $addr;
seek(FH,$addr,SEEK_SET);
my $ebp=0x1234;
my $ebx=0x321;
my $direct=0x1212;
my $edx;
my $out;
do {
$x=read(FH,$height,1);
$height=unpack("C",$height);
$out=pack("C",(($ebx&0xf0f0)>>8 1;^$height);
print $out;
$edx=($ebx+$height)&0xFFFF;
$edx=($edx*$direct)&0xFFFF;
$edx= ($edx+$ebp)&0xFFFFFFFF;
$ebx=$edx;
} while ($x);
|
Widze bezposrednie odwolania do rejestrow i komorek pamieci... Perl wyglada co najmniej ambitnie aczkolwiek nie mam teraz czasu na poznawanie czegos takiego... (sesja+ 2 projekty) :( |
|
|
|
|
|
|
|
|
| Re: Perl - potrzebuje przetlumaczenia :) |
|
|
Wysłano: Wtorek, 30 Maj 2006, 10:23 |
|
|
|
RoX97 : |
Widze bezposrednie odwolania do rejestrow i komorek pamieci... |
bla bla... dalem sie nabrac na zamysl autora skryptu
po przeczytaniu jakis podstaw perla widze dleklaracje zmiennycg/stalych i przypisywanie wartosci :P
*bump* - dalej szukam chetnych :) |
|
|
|
|
Kopiowanie i rozpowszechnianie materiałów w całości lub części jest niedozwolone. Wszelkie informacje zawarte w tym miejscu są chronione prawem autorskim.
|