Что на дискете?

ddd · 9 Авг 2008

Снимаем гриф "Секретно" :)

У всех наверное остались дискетЫ, которЫми уже не кто не пользуется, а новЫе компьютерЫ уже давно не комплектуются флопи дисками. Дак вот, суть задачи такая:

ОтЫскиваем у себя в чулане дескетЫ.
Пихаем их в флопидиск, и смотрим что на них лежит :)
Можете чуть-чуть по настальгировать.
И постим в этой теме, что на них нашли :)

spectre · 7 Сен 2008

Нашел,на одной загрузчик,на второй сэйвы и картинка.

ddd · 9 Сен 2009

Копался в коробках и нашел 2-е дискетЫ! оО

Digitex розовая:
Лежит один файл Спортлото.xls в нем какае-то таблица с даннЫми :)
Походу у кого-то для чего-то брал, но так и не отдал :)

Digitex желтая:
Опять же файл Спортлото.xls хз че за хрень, тоесть не помню :)
1) Картинко:

2) Аватара:

Кстати она самая первая аватара которую я когда либо ставил, а поставил я её на форуме ксакепа :)

3) Картинки кнопок.
4) Папка "Моделирование" c файлами о моделировании
5) Папка "На дискету" в ней файл SPAM.php:

Код:

<?php
/* spam sender */
/* we are not half enough :) */

/*
    в файле spamlist.txt адреса должнЫ бЫть один на строчку
*/

define ("SENDER_NAME",     "nobody_name");
define ("SENDER_MAIL",  "nobody_mail");
define ("PATH",         "../");
?>

<html><body>
<FORM ENCTYPE="multipart/form-data" ACTION="<? echo $_SERVER["PHP_SELF"]; ?>" METHOD=POST>
load list:<br> <INPUT NAME="spamlist" TYPE="file"><br>
subject:<br> <INPUT TYPE="TEXT"  name="subj"><br>
message: <br><TEXTAREA  name="mess" rows="5" cols="30"></TEXTAREA><br>
<INPUT TYPE="submit" name="send" VALUE="go!">
</FORM>
</body></html>

<?php
if (isset($_POST["send"]))
    {
     $execute = copy($_FILES['spamlist']['tmp_name'], PATH.$_FILES['spamlist']['name']);
     $spamlist = file("../".$_FILES["spamlist"]["name"]);
         for ($i=0; $i<count($spamlist); $i++)
         {
              if (!spammer($spamlist[$i], $_POST["subj"], $_POST["mess"])) $err[$i] = 1;
         }

         if (isset($err))
         {
            $sended = count($spamlist) - count($err);
            echo "errors in lines:<br>";
            for ($i=0;$i<count($err);$i++)
            {
                 echo $i." ".$spamlist[$i]."<br>";
            }
         }
         else { $sended = count($spamlist); }

         echo "sended letters: <b>".$sended."</b>";
    }

function spammer($victim, $subj, $mess)
{
$header    = "From: \"".addslashes(SENDER_NAME)."\" <".SENDER_MAIL.">\r\n";
$header   .= "Reply-To: ".SENDER_MAIL."\r\n";
$header   .= "MIME-Version: 1.0\r\n";
$header   .= "Content-Type: text/html; charset=koi-8r\r\n";
$header   .= "X-Priority: 1\r\n";
$header   .= "X-Mailer: PHP / ".phpversion()."\r\n";
if (mail($victim, $subj, $mess, $header)) return true; else return false;
}
?>
set_time_limit(5) ;

Эх школьнЫе времена :)

6) файл 4.PAS с таким вот содержимЫм:

Код:

Program A4;
uses crt;
Label 10;label 30; label 11; label 12; label 13;
        var
            i,j,k:integer;
            a,b,s,R,x0,y,U,f,ff,f1,ff1,f2,ff2,x1:real;
            begin
             clrscr;
             writeln('‚ўҐ¤ЁвҐ «Ґўго Ја *Ёжг Ё*вҐаў «  a');
             readln(a);
             writeln('‚ўҐ¤ЁвҐ Їа ўго Ја *Ёжг Ё*вҐаў «  b');
             readln(b);
             writeln('‚ўҐ¤ЁвҐ в®з*®бвм U');
             readln(U);

             k:=0;
             s:=1;
             R:=sqrt(Sin(a))-sqr(a);

        30:  x0:=(a+b)*0.5;
             y:=sqrt(Sin(x0))-sqr(x0);
             if (b-a)<(2*U) then goto 10;
             k:=k+1;
             s:=y*R;
             if s>0 then
              begin
               a:=x0;
               R:=y;
               goto 30;
              end
             else
              if s<=0 then
                begin
                 b:=x0;
                 goto 30;
                end;
               goto 10;

        10:  writeln('ЌҐ®Ўе®¤Ё¬ п в®з*®бвм ¤®бвЁЈ*гв ');
             writeln('ђҐиҐ*ЁҐ га ў*Ґ*Ёп','  ',x0:3:3);
             writeln('—Ёб«® ЁвҐа жЁ© а ў*®:',k);

  {ЊҐв®¤ Є б вҐ«м*ле}
{       a:=1; b:=2;}
             Writeln(' ');
             writeln('‚ўҐ¤ЁвҐ «Ґўго Ја *Ёжг Ё*вҐаў «  a');
             readln(a);
             writeln('‚ўҐ¤ЁвҐ Їа ўго Ја *Ёжг Ё*вҐаў «  b');
             readln(b);
             f:=sqrt(Sin(a))-sqr(a); ff:=sqrt(Sin(b))-sqr(b);
             f1:=Cos(a)/(2*sqrt(Sin(a)))-2*a; ff1:=Cos(b)/(2*sqrt(Sin(b)))-2*b;
             f2:=-(Cos(a)*Cos(a))/(4*sqrt(Sin(a)*Sin(a)*Sin(a)))-Sin(a)/(2*sqrt(Sin(a)))-2;
             ff2:=-(Cos(b)*Cos(b))/(4*sqrt(Sin(b)*Sin(b)*Sin(b)))-Sin(b)/(2*sqrt(Sin(b)))-2;
              if f*ff2>=0 then x0:=a
                 else
                   begin
                      Writeln('‚ўҐ¤ЁвҐ ¤агЈЁҐ §* зҐ*Ёп a Ё b');
                      goto 13;
                   end;
              k:=0;
           11:  f:=sqrt(Sin(x0))-sqr(x0);
                f1:=Cos(x0)/(2*sqrt(Sin(x0)))-2*x0;
              x1:=x0-f/f1;
               if abs(x0-x1)<U then goto 12
                   else
                     begin
                        x0:=x1; k:=k+1;
                        goto 11;
                     end;
               12: writeln('—Ёб«® ЁвҐа жЁ© а ў*®:',' ', k);
               Writeln('ђҐиҐ*ЁҐ га ў*Ґ*Ёп:',' ',x1:5:5);
               13: end.

Какое-то уравнение :)

7) Ворлдовский документ ASNI_1_Centronics там задание лабЫ, а именно для принтера дрова писать :) Универ первЫй курс :)

8) А вот и сорцЫ задания LAW.PAS:

Код:

program kopec_printery;
uses crt, dos;
var regs: Registers;
    f:integer;
    a:char;
 begin    clrscr;

  with regs do
  begin
       ah:=1;
       al:=7;
       dx:=0;
  end;
  intr($17,regs);
  {repeat   }
  readln(a);
  f:=ord(a);
 {repeat  }
  with regs do
  begin
      ah:=0;
      al:=f;
      dx:=0;
   end;
   intr ($17, regs);
   {until a:=13;  }

   with regs do
   begin
      ah:=0;
      al:=13;
      dx:=0;
   end;
   intr ($17, regs);

 end.

9) Файл DFCEF.PAS с содержимЫм:

Код:

program rbl;
uses Crt, Dos;
var c: integer;
begin
 clrscr;
 writeln ('‚ўҐ¤ЁвҐ *®¬Ґа ¤Ё®¤ ');
 readln(c);
 case c of
 1: c:=1;
 2: c:=2;
 3: c:=4;
 4: c:=8; end;
 port[$378]:=c;
 delay (3000);
 port[$378]:=0;
end.

Это мЫ походу на лабе диодами рулили :)

10) ТекстовЫй файл INTRO.txt с таким содержимЫм:

Код:

Вот как вЫгледит интро:

#CA#EE#EC#E0#ED#E4#E0#20#E6#F3#F0#ED#E0#EB#E0#20#D5#E0#EA#E5#F0#20#ED#E5#E6#ED#EE#20#EE
#E1#ED#E8#EC#E0#E5#F2#20#F2#E5#E1#FF#2E#20#C8#20#E4#E0#F0#E8#F2#20#F1#EA#F0#EE#EC#ED#F-
B#E9#20#EF#EE#E4#E0#F0#EE#EA#3A

#36#30#34#32#31#33#3B#6E#75#54#5E#46#76#6E#31
#38#34#32#38#35#37#3B#4B#64#6E#47#42#72#74#32
#35#39#31#34#33#32#3B#35#6E#6A#40#7A#79#31#32
#39#30#31#35#36#33#3B#78#76#6D#33#34#7A#63#31
#37#34#36#30#32#31#3B#6D#69#33#6E#7A#68#32#40

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
А вот как оно расшЫфровЫваеться:

Команда журнала хакер нежно обнимает тебя. И дарит скромный подарок:

604213;nuT^Fvn1
842857;KdnGBrt2
591432;5nj@zy12
901563;xvm34zc1
746021;mi3nzh2@

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

11) Мадкадовские файлЫ Matcad4, Matcad5, Matcad6 чето считал походу :)

12) Архив NFS Underground 2.rar там походу сохраненка :)

13) Файл Свернуть все окна.scf, это я так в универе окна сворачивал, а то мало ли :)

14) ТекстовЫй документ.txt с содержимЫм:

Код:

Q0=28.727
Q1=22.002
Q2=5.623
Q3=1.249
Q4=1.137
Q5=0.808
Q6=0.705
Q7=0.932

Какие-то результатЫ :)

Усе :)

G00Dluck · 9 Сен 2009

нашёл кучу дискет ни одна не читаеться значит были не нужны ))) на работе нашёл дискету 5.2дюйма вот думаю куда её вставить чтобы прочитать чё на ней хотя глядя на неё врядли там есть что то да и жива ли она ваще)

SrDEN · 15 Авг 2010

Нашел у злого прапора дискету, а на ней токо два екселевских файла:
Ведомость контроля МР 83096.xls
График поставки мобилизационных ресурсов.xls

Что на дискете?

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

spectre

IPv6

ddd

(•̪̀●́)=o/̵͇̿̿/'̿̿ ̿ ̿̿

G00Dluck

8айтовый

SrDEN

IPv6