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

[Vitalik]

Hello vovochka,

Monday, December 22, 2003, 11:46:25 AM, you wrote:

> Здравствуй, 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;

похоже на правду
но можно было в приват выслать, чтоб ЛУГ не порочить :)

-- 
Best regards,
 Vitalik                            mailto:vetalman на mail.ru