Re[3]: [Volgograd] [JT]База данных под Windows

[vovochka]

Здравствуй, Vitalik,
У меня сейчас на календаре 22 декабря 2003 г., а на часах 11:45:17, а вот
когда на календаре было 20 декабря 2003 г., а на часах 0:39:22, ты написал такую штуку:
кряк!!!
>#!/usr/bin/perl
>$fn = $ARGV[0];
>($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,$atime, $mtime, $ctime, $blksize, $blocks) = stat("$fn");
>open(FILEH, "<$fn");
>read (FILEH, $text, $size);
>close (FILEH);
>if ($text =~ s/(\xE8)(.)(.)(.)(.)(\x85)(\xC0)(\x77)(\x0A)(\xB8)(.)(.)(.)(.)(\xE8)(.)(.)(.)(.)(\xA1)(.)(.)(.)(.)(\xE8)(.)(.)(.)(.)(\xA1)(.)(.)(.)(.)(\xE8)/$1$2$3$4$5\xC3$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/)
>{
>    open(FILEHA, ">$fn.1");
>    print FILEHA $text;
>    close (FILEHA);
>    print "Success!\n";
>}
>else
>{
>    print "Fail!\n";
>}
>exit;
-- 
Вот и все.
 vovochka.
пишите письма:vovochka.vgtz на mail.ru