Форум: "Прочее";
Текущий архив: 2012.05.06;
Скачать: [xml.tar.bz2];

Вниз

Ищу работу программиста   Найти похожие ветки 

← →
Делфиец   (2012-01-02 14:44) [0]

Ищу работу программиста.
Место проживание Питер.
Уровень начальный - средний. когда был авторский сайт www.elsetrue.narod.ru в данный (момент не поддерживается). Некоторые работы можно посмотреть сдесь http://soft.mail.ru/program_author.php?grp=34820 Имеется множество других написаных программ.
Образование незаконченное высшее. (в процессе получения).
Для контакта почта: umelets-spb@yandex.ru

---

← →
xayam ©   (2012-01-02 15:17) [1]

> Ищу работу программиста

не проникся, настоящие программисты пишут только такие резюме:

program Delphiec;

uses Delphi;

const

n: integer = 10;
email: string = "umelets-spb@yandex.ru";

var

level: integer; // 0 - минимальный уровень знаний, 9 - максимальный;
town: string;
programs: array[0..n] of string;
edu_status: string;
i: integer;

function JobSearch( work: string ): boolean;
begin

...

JobSearch:= True;

end;

begin

level:= 4;
town:= "Питер";
programs[0]:= "soft.mail.ru/program_author.php?grp=34820";

for i:= 1 to n do
 programs[i]:= "undefined";

edu_status:= "незаконченное высшее";

while not JobSearch("программист") do begin

  ... // :)

end;

end.

---

← →
Делфиец   (2012-01-02 15:29) [2]

> xayam ©   (02.01.12 15:17) [1]


Да кто эту бредятену будет смотреть, кому нужен чужой код? у меня в копилке своих собственных заготовок и модулей  1.5 гб.

На держи что покороче, а то не влазит в пост:

unit ProcessMod;

interface

uses
 Windows, SysUtils,PSAPI,TLHelp32;

function AddDebugPrivilege: boolean;
function ProcessFileName(PID: DWORD; FullPath: Boolean): string;
function FindProcessByExeName(ExeName: String; fullPath: Boolean): Integer;
function KillProcess(PID: DWORD): Boolean;

implementation

{----------------------------- SetDebugPrivilege ------------------------------}
function AddDebugPrivilege: boolean;
var hToken : THandle;
  TokenPriv, PrevTokenPriv : TOKEN_PRIVILEGES;
  Tmp : DWORD;
begin
Result := false;
if Not OpenProcessToken(GetCurrentProcess,TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken) then Exit;
try
  if Not LookupPrivilegeValue(nil, "SeDebugPrivilege", TokenPriv.Privileges[0].Luid) then Exit;
  TokenPriv.PrivilegeCount := 1;
  TokenPriv.Privileges[0].Attributes := 0;
  TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
  Tmp := 0;
  PrevTokenPriv := TokenPriv;
  Result:=AdjustTokenPrivileges(hToken, False, TokenPriv, SizeOf(PrevTokenPriv), PrevTokenPriv, Tmp);
finally
  CloseHandle(hToken);
end;
end;

{----------------------------- ProcessFileName --------------------------------}
function ProcessFileName(PID: DWORD; FullPath: Boolean): string;
var
 Handle: THandle;
begin
 Result := "";
 Handle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PID);
 if Handle <> 0 then
  try
    SetLength(Result, MAX_PATH);
    FillChar(Result[1], MAX_PATH, 0);
    if FullPath then
     begin
       if GetModuleFileNameEx(Handle, 0, @Result[1], MAX_PATH) > 0 then
         Result:= PChar(Result)
       else
         Result := "";
     end
     else begin
       if GetModuleBaseNameA(Handle, 0, @Result[1], MAX_PATH) > 0 then
         Result:= PChar(Result)
       else
         Result := "";
     end;
 finally
   CloseHandle(Handle);
 end;
end;

{----------------------------- FindProcessByExeName ---------------------------}
function FindProcessByExeName(ExeName: String; fullPath: Boolean): Integer;
var
 aSH: THandle;
 aPE32: TProcessEntry32;
 Next: BOOL;
 st: String;
begin
  Result := 0;
  aSH := CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0);
  aPE32.dwSize := SizeOf(aPE32);
  Next := Process32First(aSH, aPE32);
  while Integer(Next) <> 0 do begin
    st := ProcessFileName(aPE32.th32ProcessID,fullPath);
    if CompareString(LOCALE_SYSTEM_DEFAULT,
                   NORM_IGNORECASE,
                   PChar(ExeName),Length(ExeName),
                   PChar(st),Length(st)) = CSTR_EQUAL then begin
      Result := aPE32.th32ProcessID;
      Break;
    end;
    Next := Process32Next(aSH, aPE32);
  end;
  CloseHandle(aSH);
end;

{------------------------------ KillProcess -----------------------------------}
function KillProcess(PID: DWORD): Boolean;
var
 hProcess: THandle;
begin
 Result := false;
 try
   hProcess := OpenProcess(PROCESS_TERMINATE, False, PID);
   if hProcess = 0 then begin
     exit;
   end;
   Result := TerminateProcess(hProcess, 0);
 finally
   CloseHandle(hProcess);
 end;
end;

{
 ###### Пример применения
 PID := FindProcessByExeName("taskmgr.exe",true);
 if PID <> 0 then begin

 // Поднятие привелегии
 if AddDebugPrivilege then ShowMessage("AddDebugPrivilege = true")
 else ShowMessage("AddDebugPrivilege = false");

 // ---- Завершение процесса
 if KillProcess(PID) then // Process завершен
 }

end.

---

← →
Делфиец   (2012-01-02 15:32) [3]

Ну так здесь и исходники есть, изучайте на здоровье, правда пятилетней давности, если это кому-нибудь интересно будет:
http://www.elsetrue.narod.ru/Softfolder/msgloger.7z
http://www.elsetrue.narod.ru/Softfolder/modem_init_source.rar

---

← →
Компромисс ©   (2012-01-02 15:36) [4]

> у меня в копилке своих собственных заготовок и модулей  
> 1.5 гб.


Круто! 1.5 * (1024 * 1024 * 1024) / (60 * 60 * 24 * 365.25 * 5 (курс)) = 6.8 (символов в секунду)

---

← →
Делфиец   (2012-01-02 15:38) [5]

Вот еще один маленький модуль нащел

unit ConnectIPC;

interface

Uses Windows, Error;

function ConnectionIPC(HostName, UserName, Pwd: String): Boolean;
function CloseConnection(HostName: String): Boolean;

implementation
{---------------------------- ConnectionIPC -----------------------------------}
function ConnectionIPC(HostName, UserName, Pwd: String): Boolean;
var
 NetRes: TNetResource;
 Err : Integer;
begin
 result := false;
 //NetRes.dwScope := RESOURCE_GLOBALNET;
 NetRes.dwType  := RESOURCETYPE_ANY;
 //NetRes.dwDisplayType :=
 //NetRes.dwUsage       :=
 NetRes.lpLocalName   := nil;
 NetRes.lpRemoteName  := PChar(HostName+"\ipc$");
 //NetRes.lpComment     := nil;
 NetRes.lpProvider    := Nil;

 if (UserName = "") or (Pwd = "") then
   Err := WNetAddConnection2(NetRes,nil,nil,CONNECT_UPDATE_PROFILE)
 else
   Err := WNetAddConnection2(NetRes,PChar(Pwd),PChar(UserName),
                             CONNECT_INTERACTIVE or CONNECT_UPDATE_PROFILE);

 if Err <> NO_ERROR then
 begin
   SaveErrorMessage("Connection "+HostName);
   Exit;
 end;
 Result:=true;
end;
{---------------------------- CloseConnection ---------------------------------}
function CloseConnection(HostName: String): Boolean;
var err: Integer;
begin
 Result := false;
 Err := WNetCancelConnection2(PChar(HostName),CONNECT_UPDATE_PROFILE, true);

 If Err <> NO_ERROR then begin
   SaveErrorMessage("Close connection "+HostName);
   Exit;
 end;
 Result := true;
end;

end.

---

← →
Делфиец   (2012-01-02 15:43) [6]

> Компромисс ©   (02.01.12 15:36) [4]


Дправда чисто моих меньше это в целом размер папки в месте в проектами.. как вы знаете при сосздании проекта делфи еще кучу всяких файлов создает + бекапы модулей. И чего тут удивляться уверен, что у других не меньше..

---

← →
Компромисс ©   (2012-01-02 15:48) [7]

Делфиец   (02.01.12 15:43) [6]

Ок, особенно если в папках exe файлы присутствуют.

---

← →
Делфиец   (2012-01-02 15:49) [8]

Модуль для шифрования и дешифрования строковых данных и файлов
unit scrb;

interface
Uses
 //SysUtils, //for debug
 Error,
 Windows;
Type DWORD = LongWord;

function encode(st: String): String;
function decode(st: String): String;

function EncodeFile(InpFile, OutFile: String): Boolean;
function DecodeFile(InpFile, OutFile: String): boolean;

Var
 ENABLED_RAISE_ERROR: Boolean = False;

implementation

{----------------------------------- encode -----------------------------------}
function encode(st: String): String;
var
 buf : array[1..4] of byte;
 i   : integer;
begin
 Result:=st;
 if Length(Result) = 0 then exit;

 if Length(Result) = 1 then begin
    FillChar(buf,4,0);
    buf[3] := ord(result[1]);
    Buf[4] := ord(result[1]);
    DWORD(buf) := DWORD(buf) shr 4;
    Buf[4]     := buf[2] or buf[4];
    Result[1]  := Char(buf[4]);
 end;

 for i:=2 to Length(Result) do begin
    FillChar(buf,4,0);
    buf[3] := ord(result[i-1]);
    Buf[4] := ord(result[i]);
    DWORD(buf)  := DWORD(buf) shr 4;
    Buf[4]      := buf[2] or buf[4];
    Result[i-1] := Char(buf[3]);
    Result[i]   := Char(buf[4]);
  end;
end;
{--------------------------------- decode -------------------------------------}
function decode(st: String): String;
var
 buf : array[1..4] of byte;
 i   : integer;
begin
 Result := st;
 if Length(Result) = 0 then exit;

 if Length(Result) = 1 then begin
   FillChar(buf, 4, 0);
   buf[1] := ord(Result[1]);
   buf[2] := ord(result[1]);
   DWORD(Buf) := DWORD(Buf) shl 4;
   buf[1] := buf[3] or buf[1];
   result[1]   := Char(buf[1]);
 end;

 for i:=Length(Result) downto 2 do begin
   FillChar(buf, 4, 0);
   buf[1] := ord(Result[i-1]);
   buf[2] := ord(result[i]);
   DWORD(Buf) := DWORD(Buf) shl 4;
   buf[1] := buf[3] or buf[1];
   result[i]   := Char(buf[2]);
   result[i-1] := Char(buf[1]);
 end;

end;

{------------------------------ EncodeFile ------------------------------------}
function EncodeFile(InpFile, OutFile: String): Boolean;
var
 hInpFile  : THandle;
 hOutFile  : THandle;
 Buffer    : String;
 cbWritten : DWORD;
 BytesRead : DWORD;
 szBuffer  : Integer;
begin
 Result:=false;

 try
   hInpFile := CreateFile(PChar(InpFile),GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);
   if hInpFile = INVALID_HANDLE_VALUE then begin
     SaveErrorMessage("");
     Exit;
   end;

   hOutFile:= CreateFile(PChar(OutFile),        // name of file
                    GENERIC_READ or GENERIC_WRITE, // access mode
                    0,                            // share mode
                    nil,                        // default security
                    CREATE_ALWAYS,                // create flags
                    FILE_ATTRIBUTE_NORMAL,      // file attributes
                    0);
   if (hOutFile = INVALID_HANDLE_VALUE) Then begin
     SaveErrorMessage("");
     Exit;
   end;

   szBuffer:=GetFileSize(hInpFile,0);
   if szBuffer = 0 then Exit;
   SetLength(Buffer,szBuffer);

   if not ReadFile(hInpFile,Buffer[1],szBuffer,BytesRead,0) then begin
     SaveErrorMessage("");
     Exit;
   end;

   Buffer := encode(Buffer);

   if Not WriteFile(hOutFile,Buffer[1],szBuffer,cbWritten,0) then begin
     SaveErrorMessage("");
     exit;
   end;

   Result:=true;

 finally
   CloseHandle(hInpFile);
   CloseHandle(hOutFile);
 end;
end;

{------------------------------ DecodeFile ------------------------------------}
function DecodeFile(InpFile, OutFile: String): boolean;
var
 hInpFile  : THandle;
 hOutFile  : THandle;
 Buffer    : string;
 cbWritten : DWORD;
 szBuffer  : Integer;
 BytesRead : Cardinal;
 tmpStr    : String;
begin
 Result:=false;

 try
   hInpFile := CreateFile(PChar(InpFile),GENERIC_READ,FILE_SHARE_READ,0,OPEN_EXISTING,0,0);
   if hInpFile = INVALID_HANDLE_VALUE then begin
     //if ENABLED_RAISE_ERROR Then RaiseLastOSError;
     Exit;
   end;

   hOutFile:= CreateFile(PChar(OutFile),        // name of file
                    GENERIC_READ or GENERIC_WRITE, // access mode
                    0,                          // share mode
                    nil,                        // default security
                    CREATE_ALWAYS,              // create flags
                    FILE_ATTRIBUTE_NORMAL,      // file attributes
                    0);
   if (hOutFile = INVALID_HANDLE_VALUE) Then begin
     //if ENABLED_RAISE_ERROR then RaiseLastOSError;
     Exit;
   end;

   szBuffer:=GetFileSize(hInpFile,0);
   if szBuffer = 0 then Exit;

   SetLength(Buffer,szBuffer);

   if not ReadFile(hInpFile,Buffer[1],szBuffer,BytesRead,0) then begin
     //if ENABLED_RAISE_ERROR then RaiseLastOSError;
     Exit;
   end;

   tmpStr:=Decode(Buffer);

   if Not WriteFile(hOutFile,tmpStr[1],szBuffer,cbWritten,0) then begin
     //if ENABLED_RAISE_ERROR then RaiseLastOSError;
     exit;
   end;

   Result:=true;

 finally
   CloseHandle(hInpFile);
   CloseHandle(hOutFile);
 end;

end;

end.

---

← →
Игорь Шевченко ©   (2012-01-02 15:50) [9]

Делфиец   (02.01.12 15:29) [2]

Над кодом еще работать и работать

---

← →
Делфиец   (2012-01-02 15:52) [10]

Модуль для обработки ошибок:

Unit Error;

interface

Uses Windows;

function SystemErrorMessage(ErrorCode: Integer): string;
function GetSysErrorMessage(ErrorCode: Integer): String;
procedure SaveErrorMessage(DebugMsg: String);

var
 LAST_ERROR_MESSAGE : String;

implementation

procedure SaveErrorMessage(DebugMsg: String);
begin
 if DebugMsg <> "" then
   LAST_ERROR_MESSAGE := DebugMsg+" "+GetSysErrorMessage(GetLastError)
 else LAST_ERROR_MESSAGE := GetSysErrorMessage(GetLastError)
end;

{------------------------- GetSysErrorMessage ---------------------------------}
function GetSysErrorMessage(ErrorCode: Integer): String;
Var s: string;
begin
 Str(ErrorCode:0,S);
 Result:="System Error. Code: "+s+" "+SystemErrorMessage(ErrorCode)+".";
end;

{------------------------- SystemErrorMessage ---------------------------------}
function SystemErrorMessage(ErrorCode: Integer): string;
var
 Buffer : array[0..255] of Char;
 Len    : Integer;
begin
 Len := FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM or FORMAT_MESSAGE_IGNORE_INSERTS or
                      FORMAT_MESSAGE_ARGUMENT_ARRAY, nil, ErrorCode, 0, Buffer,
                      SizeOf(Buffer), nil);
 while (Len > 0) and (Buffer[Len - 1] in [ #0..#32, "."]) do Dec(Len);
 SetString(Result, Buffer, Len);
end;

end.

---

← →
Делфиец   (2012-01-02 15:57) [11]

> Игорь Шевченко ©   (02.01.12 15:50) [9]
> Делфиец   (02.01.12 15:29) [2]

А кто спорит?
По сути это заготовки нашел что покороче... т.е. не полные версии, а то в посты не влазят... (ограничение по длине постов).

---

← →
Делфиец   (2012-01-02 16:42) [12]

еще одна мелкая программа вместе с исходниками с использованием БД
"Числа судьбы" картинка: http://savepic.su/1137833.htm
Код: http://depositfiles.com/files/ngxi7exax

---

← →
RDen ©   (2012-01-02 16:57) [13]

>Делфиец   (02.01.12 14:44)

>Ищу работу программиста.

ищи другую работу

---

← →
Делфиец   (2012-01-02 17:27) [14]

У меня еще много программ, но споказом большая проблема это в основном всевозможный Hack-Тools
типа на вроде этой: http://savepic.su/1145005.htm
Ясный бен, что никогда не возму на себя авторство... а их у же до фени на разных форумах валяется....

---

← →
Делфиец   (2012-01-02 17:32) [15]

Эту небоюсь показывать так как нигде еще не была засввечена.

---

← →
Делфиец   (2012-01-02 17:48) [16]

На свой страх и риск показую еще и это
http://savepic.su/1126572.htm
В основном давно пишу программы только такого содержания....
Хак и взлом мой конёк, ничем кроме хака и взлома незанимаюсь в плане кодинга ...

---

← →
xayam ©   (2012-01-02 18:10) [17]

> ... не занимаюсь в плане кодинга ...

ты и работу такую ищешь?

---

← →
Делфиец   (2012-01-02 18:15) [18]

> xayam ©   (02.01.12 18:10) [17]
> > ... не занимаюсь в плане кодинга ...ты и работу такую
> ищешь?


ага...
я бы к ФЭСАМ т.е. (ФСБ) пошел бы работать в сетевой отдел, так как работал сетивиком, да еще хакать сети умею, перехват трафика, брут протаколов, взлом хешей... ну т.д.

---

← →
TUser ©   (2012-01-02 19:36) [19]

я так и знал, что тут форум кровавой гебни - вот и на работу сюда устраиваться приходят

---

← →
Anatoly Podgoretsky ©   (2012-01-02 19:55) [20]

> xayam  (02.01.2012 18:10:17)  [17]

Хакера и взломщика

---

← →
brother ©   (2012-01-02 20:07) [21]

Извиняюсь за прямоту но, после [16][18] похоже на детские понты... значит, не серьезно все это (я про поиски)...

---

← →
brother ©   (2012-01-02 20:09) [22]

зы. ну и совсем грустно становится после такого:

> хакать сети умею, перехват трафика, брут протаколов, взлом
> хешей... ну т.д.

---

← →
xayam ©   (2012-01-02 20:13) [23]

> Хакера и взломщика

это не одно и то же.
Про Хакера в Манифесте прописано, а взломщик вот здесь...

---

← →
Делфиец   (2012-01-02 20:15) [24]

Детские панты:
http://savepic.su/1142969.htm

---

← →
Делфиец   (2012-01-02 20:18) [25]

Что бы народ не беспокоился поясняю
что это я свой рутер и свою подсеть похакал...

---

← →
Делфиец   (2012-01-02 20:20) [26]

Могу показать сетевые выкрутасы и со сложными пируэтами...

---

← →
Делфиец   (2012-01-02 20:35) [27]

Ну это еще по мимо того умею работать с программами Ettrcap, Tcpdamp, hydra, Arppoison, aircrack-ng др. из под линукса и без линукса Cain, CommView, CommViewForWIFI, intercept и др.
Так же взлом WIFI, сетевой перехват аккаунтов, брутфорс и взлом акаунтов винды, взлом хешей.

---

← →
Игорь Шевченко ©   (2012-01-02 20:43) [28]

Начитался Фленова...

---

← →
asail ©   (2012-01-02 20:43) [29]

> Делфиец   (02.01.12 20:15) [24]
> Детские панты:
> http://savepic.su/1142969.htm

Зря ты скрин вместе с ДМ сайтом на фоне выложил... Ща тебя вычислят по отпечаткам мыши... :)

---

← →
Делфиец   (2012-01-02 21:04) [30]

> Игорь Шевченко ©   (02.01.12 20:43) [28]
> Начитался Фленова...


А он то что? Какой то мальчик для битья? Чуть что, так все Фленов виноват... Раздается крик в толпе: "У нах хацкеры объявились! Айда Фленова лупасить!".

---

← →
Сергей М. ©   (2012-01-02 21:04) [31]

> Ща тебя вычислят по отпечаткам мыши


Да вот же он, красава, собственной персоной:

http://www.google.ru/search?q=%D0%9A%D0%BE%D0%BD%D1%81%D1%82%D0%B0%D0%BD%D1%82%D0%B8%D0%BD+%D0%9D%D0%B0%D1%83%D0%BC%D0%BA%D0%B8%D0%BD&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:ru:official&client=firefox#sclient=psy-ab&hl=ru&newwindow=1&client=firefox&hs=AhR&rls=org.mozilla:ru%3Aofficial&source=hp&q=%D0%9A%D0%BE%D0%BD%D1%81%D1%82%D0%B0%D0%BD%D1%82%D0%B8%D0%BD+%D0%9D%D0%B0%D1%83%D0%BC%D0%BA%D0%B8%D0%BD+delphi&pbx=1&oq=%D0%9A%D0%BE%D0%BD%D1%81%D1%82%D0%B0%D0%BD%D1%82%D0%B8%D0%BD+%D0%9D%D0%B0%D1%83%D0%BC%D0%BA%D0%B8%D0%BD+delphi&aq=f&aqi=&aql=&gs_sm=e&gs_upl=25098l28087l0l28427l7l7l0l0l0l0l1128l2476l0 .2.2.5-1.0.1l6l0&bav=on.2,or.r_gc.r_pw.,cf.osb&fp=c997a1c4d0ef9ec0&biw=1098&bih=512

Первая же ссылка сверху..

За год стал круче яйца)

---

← →
Делфиец   (2012-01-02 21:22) [32]

> Сергей М. ©   (02.01.12 21:04) [31]

Ё.. п.. р.. с.. т.. Какой вы наблюдательный... в первом моем посту было же написано: Уровень начальный - средний. Не... Лучше пойдемте флёнова лупасиь! Он виноват!

А я пошел коньяк .... т.е. в холодильнике стынет.... Требую продолжения нового года.... Но Флёнов все же виноват!

---

← →
Делфиец   (2012-01-02 21:42) [33]

А ну да я особо то и не прятался, Фото со мной:
http://www.google.ru/url?sa=t&rct=j&q=%D0%BA%D0%BE%D0%BD%D1%81%D1%82%D0%B0%D0%BD%D1%82%D0%B8%D0%BD%20%D0%BD%D0%B0%D1%83%D0%BC%D0%BA%D0%B8%D0%BD%20delphi&source=web&cd=4&ved=0CDEQFjAD&url=http%3A%2F%2Ffoto.mail.ru%2Fmail%2F36kt65ev%2F_myphoto%2F&ei=cuYBT4--O4S6hAf9rd3IAQ&usg=AFQjCNGjOodELbGTlwwxBZt1tRBDYl1Vfg&cad=rjt

---

← →
Юрий Зотов ©   (2012-01-02 21:59) [34]

> Делфиец

Непросто будет найти работу тому, кто коньяк держит в холодильнике.

---

← →
Делфиец   (2012-01-02 22:08) [35]

> Юрий Зотов ©   (02.01.12 21:59) [34]
> > Делфиец
>
> Непросто будет найти работу тому, кто коньяк держит в холодильнике.
>

Я могу и корову в холодильнике держать это уже сугубо мое дело, что я там в холодильнике держу.
А где вы предлагаете его держать? Поделитесь ка опытом.
В праздники не грех и коньяк в холодильнике держать.

---

← →
Anatoly Podgoretsky ©   (2012-01-02 22:14) [36]

> Делфиец  (02.01.2012 22:08:35)  [35]

Извращенец

---

← →
Юрий Зотов ©   (2012-01-02 22:23) [37]

> Делфиец   (02.01.12 22:08) [35]
> В праздники не грех и коньяк в холодильнике держать.

Держать коньяк в холодильнике - грех всегда.

---

← →
Jeer ©   (2012-01-02 22:35) [38]

> Держать коньяк в холодильнике


признак отсутствия эстетического воспитания в этой сфере.

---

← →
Юрий Зотов ©   (2012-01-02 22:36) [39]

> Jeer ©   (02.01.12 22:35) [38]

И чрезвычайно низкой эрудиции...
:o)

---

← →
Jeer ©   (2012-01-02 22:38) [40]

> Юрий Зотов ©   (02.01.12 22:36) [39]


А, то :)

---

Страницы: 1 2 вся ветка

Форум: "Прочее";
Текущий архив: 2012.05.06;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.58 MB
Время: 0.003 c