Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2012.05.06;
Скачать: CL | DM;

Вниз

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

 
Делфиец   (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]


А, то :)


 
boriskb ©   (2012-01-02 23:19) [41]


> Делфиец


Это знакомо практически каждому :)
Просто эти старики забыли себя начинающими.
Когда "я так круто писать научился, а похвастаться некому. Нет рядом тех, кто оценит крутизну"
Я хоть и тоже не молоденький, но помню это состояние :))


 
Юрий Зотов ©   (2012-01-02 23:53) [42]

Удалено модератором


 
Делфиец   (2012-01-03 01:35) [43]

Удалено модератором


 
xayam ©   (2012-01-03 02:07) [44]

Удалено модератором


 
Германн ©   (2012-01-03 02:31) [45]

Удалено модератором


 
Eraser ©   (2012-01-03 02:52) [46]

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

код кодом, но в жизни бы не взял на работу товарища, который даже в собственной теме по поиску работы пишет в таком панибратско хамоватом стиле.

да, вот еще что. изобретение велосипедов не лучшее качество программиста. http://www.delphi-jedi.org/


 
Иксик ©   (2012-01-03 02:57) [47]

Удалено модератором


 
Германн ©   (2012-01-03 03:18) [48]

Удалено модератором


 
Иксик ©   (2012-01-03 03:21) [49]

Удалено модератором


 
xayam ©   (2012-01-03 03:24) [50]

Удалено модератором


 
Германн ©   (2012-01-03 03:26) [51]

Удалено модератором


 
Иксик ©   (2012-01-03 03:29) [52]

Удалено модератором


 
Иксик ©   (2012-01-03 03:36) [53]

Удалено модератором


 
xayam ©   (2012-01-03 03:39) [54]

Удалено модератором


 
Германн ©   (2012-01-03 03:41) [55]

Удалено модератором


 
Иксик ©   (2012-01-03 03:52) [56]

Удалено модератором


 
имя   (2012-01-03 04:06) [57]

Удалено модератором


 
_Юрий   (2012-01-03 12:33) [58]

Я смотрю, общение, как обычно, протекает бурно
с живейшим участием модератора.
Воистину, ДМ является одним из столпов Высокой Культуры общения в интернетах.
Я восхищен.


 
Kerk ©   (2012-01-03 13:29) [59]


> _Юрий   (03.01.12 12:33) [58]

А ведь еще борются за звание форума высокой культуры быта


 
sniknik ©   (2012-01-03 13:39) [60]

> А ведь еще борются за звание форума высокой культуры быта
!!! :))))
борются, то они борются, да только не те кто "дом поддерживают", а те кто "приходит ссать в лифтах".


 
MsGuns ©   (2012-01-03 13:41) [61]

>с живейшим участием модератора.

Так форум же для него (них) и существует :)


 
Иксик ©   (2012-01-03 14:04) [62]


> Так форум же для него (них) и существует :)


Ох уж эти конспирологи :)


 
DiamondShark ©   (2012-01-03 16:35) [63]


> и свою подсеть похакал...

Запустить снифер -- это теперь называется "похакал"?
Тогда, нажать File|New|New Application и F9 называется "напрограмил".

Кстати, сайтик со скриншота пейсали такие же "программисты", как ты -- "хакер".


 
Делфиец   (2012-01-03 21:31) [64]


> Eraser ©   (03.01.12 02:52) [46]
> > [2] Делфиец   (02.01.12 15:29)
>
> код кодом, но в жизни бы не взял на работу товарища, который
> даже в собственной теме по поиску работы пишет в таком панибратско
> хамоватом стиле.
>
> да, вот еще что. изобретение велосипедов не лучшее качество
> программиста. http://www.delphi-jedi.org/


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


 
Делфиец   (2012-01-03 21:52) [65]

Зря вы так. Россия в опасном положении. Сейчас для спасения страны я бы пошел в ФСБ работать не задумываясь,  Все бы сайты переломал бы, и аккаунты тех кто в социальных сетях мутят против России. Просто грохнул бы все сайты настроенные против России. Тех кто на пендосовское правительство горбатятся, тек кто мзду из их посольства получают. И что тут страшного, если все свои знания и умения по взлому и хаку направить против тех кто против России мутит. Это лучше тем бояться те кто против России за одно с пендосами   . Вот такую работу нужно что бы заниматься и любимым занятием писать софт для взломов и Родине полезно было т.е. во благо Родине.


 
Юрий Зотов ©   (2012-01-03 21:55) [66]

Уря! Рецепт безопасности России найден - надо переломать вражьи сайты.

PS
Ну как, работодатели - берете парня на работу?


 
Kerk ©   (2012-01-03 21:58) [67]


> Делфиец   (03.01.12 21:52) [65]

А зачем тебе для этого в ФСБ идти? Ты так, на общественных началах все переломай. Орден потом дадут,  может быть.


 
Делфиец   (2012-01-03 21:59) [68]

Удалено модератором


 
Гость   (2012-01-03 21:59) [69]

Удалено модератором


 
DVM ©   (2012-01-03 22:00) [70]


> Сейчас для спасения страны я бы пошел в ФСБ работать не
> задумываясь

Ну и шел бы, кто не дает что ли? ФСБ не закрытое тайное общество, обычная гос структура, весьма скучная по большей части и не похожая на фильмы про Борна.


 
Омлет ©   (2012-01-03 22:00) [71]

Россия в опасности - критическая масса идиотов.


 
абизяна   (2012-01-03 22:01) [72]

Удалено модератором


 
DVM ©   (2012-01-03 22:04) [73]


> Kerk ©   (03.01.12 21:58) [67]


> Орден потом дадут,  может быть.

посмертно


 
Делфиец   (2012-01-03 22:08) [74]

Удалено модератором


 
абизяна   (2012-01-03 22:10) [75]

Удалено модератором


 
Делфиец   (2012-01-03 22:12) [76]

Удалено модератором


 
Игорь Шевченко ©   (2012-01-03 22:18) [77]


> Неужели мои знания и опыт ничего не значат?


Не значат



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

Текущий архив: 2012.05.06;
Скачать: CL | DM;

Наверх




Память: 0.68 MB
Время: 0.012 c
2-1326047881
3asys
2012-01-08 22:38
2012.05.06
ADO Connection


15-1325234614
xayam
2011-12-30 12:43
2012.05.06
Поиск максимального количества равноудалённых битов


2-1325748771
de_guta
2012-01-05 11:32
2012.05.06
3 позиции checkbox


6-1255618941
sloosar
2009-10-15 19:02
2012.05.06
WinInet


9-1190998222
Snoop_4ok
2007-09-28 20:50
2012.05.06
GLScene