Я предупреждала

Discussion in 'Болталка' started by Insector_666, 14 Aug 2019.

  1. Insector_666

    Insector_666 New Member

    Joined:
    1 May 2019
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    http://prntscr.com/osperh в рот ее ебать.

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

    Мне нужен типа деловой партнр. Пусть даже он не врубается в мои алгоритмы и бох с ним. НО если он знает как из этих двух залуп (которые в шапке темы) выводить бабло - мы сработаемтся.

    [email protected] (проверяю раз в два дня. сегодня проверяю пока не усну).

    Дружно наебем ГСЧ. Слава Сатане!!
     
  2. Insector_666

    Insector_666 New Member

    Joined:
    1 May 2019
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    /Алгоритм вам тут расписать? дык это, на минуточку, хтмл форма. Вам тут сперва несколько учебников скопировать придется, а потом уже что то показывать. А презентации с графиками - не мое( Рисовать умею но, биш уточнений. ибо они динамические. Нарисуй мне что то, что будет меняться со временем (не стареть, коза тупая!! а меняться). ну я посмотрю на это.
    Но я точно утверждаю: МЫСЛЬ нарисовать ты не сможешь.
     
  3. Insector_666

    Insector_666 New Member

    Joined:
    1 May 2019
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    НУ НА.

    Весрия древняя, там я еще кокаин рубала, но для ознакомления сойдет








    <CODE>
    unit Unit1;

    interface

    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,ssl_openssl,httpsend, sSkinManager, sLabel, sMemo,
    sButton, sEdit, ExtCtrls, ComCtrls, sStatusBar, sComboBox, sCheckBox;

    type
    TForm1 = class(TForm)
    sSkinManager1: TsSkinManager;
    sButton1: TsButton;
    sMemo1: TsMemo;
    sLabel1: TsLabel;
    sLabel2: TsLabel;
    sLabel3: TsLabel;
    sLabel4: TsLabel;
    sEdit1: TsEdit;
    sEdit2: TsEdit;
    sButton2: TsButton;
    sStatusBar1: TsStatusBar;
    Timer1: TTimer;
    sLabel5: TsLabel;
    sLabel6: TsLabel;
    sComboBox1: TsComboBox;
    sEdit3: TsEdit;
    sEdit4: TsEdit;
    sLabel7: TsLabel;
    sLabelFX1: TsLabelFX;
    sLabelFX2: TsLabelFX;
    sLabelFX3: TsLabelFX;
    sLabelFX4: TsLabelFX;
    sButton3: TsButton;
    sCheckBox1: TsCheckBox;
    procedure sButton1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure sButton2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure sButton3Click(Sender: TObject);
    procedure sCheckBox1Click(Sender: TObject);
    procedure sEdit1Change(Sender: TObject);
    private
    { Private declarations }
    public
    { Public declarations }
    end;

    tnew = class(tthread)
    protected
    procedure execute; override;
    end;

    var
    Form1: TForm1;
    new5: array [0..600] of Tnew;
    sect1 : TRTLCriticalSection;
    limit,acc,etalon,stake1,th,maxx,h,m,s,eco:integer;
    Accs,Result:TstringList;
    API_key:string;
    implementation

    {$R *.dfm}

    procedure Tnew.execute;






    Function Balance(key:string):string;
    var httpsend:Thttpsend; Data:TStringStream;
    x,btc,doge,ltc,eth:string;
    begin
    httpsend:=Thttpsend.Create;
    Httpsend.Protocol:='1.1';
    httpsend.Timeout:=5000;
    httpsend.AddPortNumberToHost:=false;
    httpsend.UserAgent:='Mozilla/5.0 (X11; Linux x86_64; rv:60.0) Gecko/20100101 Firefox/60.0';

    Data:=TStringStream.Create('');
    Data.WriteString('a=GetBalances&s='+key);
    HTTPSend.Document.LoadFromStream(Data);
    httpsend.MimeType:='application/x-www-form-urlencoded; charset=UTF-8';
    Httpsend.Headers.Add('Accept: */*');
    HTTPSend.HTTPMethod('POST','http://super999.ddns.net:999/api/web.aspx');
    Data.Free;
    Data:=TStringStream.Create('');
    httpsend.Document.SaveToStream(data);
    x:=Data.DataString;
    Data.Free;
    httpsend.free;

    if pos('"Balance":',x)<>0 then
    begin
    Delete(x,1,pos('"btc","Balance":',x)+15);
    btc:=copy(x,1,pos(',',x)-1);
    if pos('.',btc)=0 then
    begin
    while length(btc)<8 do btc:='0'+btc;
    btc:='0.'+btc;
    end;

    Delete(x,1,pos('"doge","Balance":',x)+16);
    doge:=copy(x,1,pos(',',x)-1);
    if pos('.',doge)=0 then
    begin
    while length(doge)<8 do doge:='0'+doge;
    doge:='0.'+doge;
    end;


    Delete(x,1,pos('"ltc","Balance":',x)+15);
    ltc:=copy(x,1,pos(',',x)-1);
    if pos('.',ltc)=0 then
    begin
    while length(ltc)<8 do ltc:='0'+ltc;
    ltc:='0.'+ltc;
    end;


    Delete(x,1,pos('"eth","Balance":',x)+15);
    eth:=copy(x,1,pos(',',x)-1);
    if pos('.',eth)=0 then
    begin
    while length(eth)<8 do eth:='0'+eth;
    eth:='0.'+eth;
    end;

    Result:='BTC:'+btc+'|DOGE:'+doge+'|LTC:'+ltc+'|ETH:'+eth+'|';
    end else Result:='ERROR'+#13#10+x;

    end;



    Function Bet(key,Stake,HiLow,Percent,tipp:string):string;
    var httpsend:Thttpsend; Data:TStringStream;
    x,tip:string; inner,start0 :integer;
    begin
    if tipp='BTC' then tip:='btc';
    if tipp='DOGE' then tip:='doge';
    if tipp='LTC' then tip:='ltc';
    if tipp='ETH' then tip:='eth';
    httpsend:=Thttpsend.Create;
    Httpsend.Protocol:='1.1';
    httpsend.Timeout:=6000;

    httpsend.AddPortNumberToHost:=false;
    Data:=TStringStream.Create('');
    httpsend.UserAgent:='Mozilla/5.0 (X11; Linux x86_64; rv:60.0) Gecko/20100101 Firefox/60.0';

    if HiLow='Hi' then Data.WriteString('a=PlaceBet&s='+key+'&PayIn='+Stake+'&Low=0&High=489999&ClientSeed=123445678&Currency='+tip);
    if HiLow='Low' then Data.WriteString('a=PlaceBet&s='+key+'&PayIn='+Stake+'&Low=500500&High=998999&ClientSeed=123445678&Currency='+tip);
    //Data.WriteString('a=PlaceBet&s='+key+'&PayIn='+Stake+'&Low=0&High=499499&ClientSeed=12345678&Currency='+tip);
    HTTPSend.Document.LoadFromStream(Data);
    httpsend.MimeType:='application/x-www-form-urlencoded; charset=UTF-8';
    Httpsend.Headers.Add('Accept: */*');
    HTTPSend.HTTPMethod('POST','http://super999.ddns.net:999/api/web.aspx');
    Data.Free;
    Data:=TStringStream.Create('');
    httpsend.Document.SaveToStream(data);
    x:=Data.DataString;
    Data.Free;
    httpsend.free;

    if pos('"PayOut"',x)<>0 then
    begin

    //Delete(x,1,pos('"PayOut":',x)+8);
    //inner:=strtoint(copy(x,1,pos(',',x)-1));

    //Delete(x,1,pos('"StartingBalance":',x)+17);
    //start0:=strtoint(copy(x,1,pos(',',x)-1));
    //start0:=start0-strtoint(Stake);
    if pos('"PayOut":0',x)<>0 then
    begin
    Delete(x,1,pos('"StartingBalance":',x)+17);
    start0:=strtoint(copy(x,1,pos(',',x)-1));
    x:=inttostr(start0);
    while length(x)<8 do x:='0'+x;
    Result:='Lose:0.'+x;
    end else
    begin
    Delete(x,1,pos('"StartingBalance":',x)+17);
    start0:=strtoint(copy(x,1,pos(',',x)-1));
    x:=inttostr(start0);
    while length(x)<8 do x:='0'+x;
    Result:='Win:0.'+x;
    end;

    //if pos('"PayOut":0,',x)=0 then Result:='Win';
    end else Result:='ERROR';
    //result:=x;

    end;



    var x,x2,tip0,bolmen:string; bbb,bbb2,i,stake,y,blk,i3:integer; r:real; v:variant;
    Label 4;
    begin
    //API_key:='402486d76d9c46b5b3d90fa9685879e4';
    //API_key:='cbbe5f87734146e4ba446b8418cfde72';
    //final ff4addc3f06547f4936ad4c3e912c234
    //cbbe5f87734146e4ba446b8418cfde72
    y:=0;
    blk:=0;
    bolmen:='Hi';
    EnterCriticalSection (sect1);
    tip0:=form1.sComboBox1.Text;
    ///etalon:=etalon0;
    stake1:=etalon;
    LeaveCriticalSection (sect1);
    4:
    randomize;
    Sleep(2000);
    i3:=100;
    while i3<1500 do i3:=random(4000);
    //sleep(i3);
    EnterCriticalSection (sect1);
    //etalon:=strtoint(Form1.sEdit1.Text);
    //limit:=strtoint(sEdit2.Text);
    //sleep(3000);
    //x:=Balance(API_key);
    //sMemo1.Lines.Add('Get Balance');
    //Application.ProcessMessages;
    //end;

    x:=Bet(API_key,inttostr(stake1),bolmen,'49',tip0);
    x2:=x;

    if pos('ERROR',x)=0 then
    begin
    ///Form1.sStatusBar1.SimpleText:='Working..';
    x:=copy(x,1,pos(':',x)-1);
    Delete(x2,1,pos(':',x2));

    if tip0='BTC' then Form1.sLabel1.Caption:='BTC: '+x2;
    //Delete(x,1,pos('|',x));
    if tip0='DOGE' then Form1.sLabel2.Caption:='DOGE: '+x2;
    //Delete(x,1,pos('|',x));
    if tip0='LTC' then Form1.sLabel3.Caption:='LTC: '+x2;
    //Delete(x,1,pos('|',x));
    if tip0='ETH' then Form1.sLabel4.Caption:='ETH: '+x2;





    if x='Win' then
    begin
    stake1:=etalon;
    //randomize;
    //while stake1<=etalon do stake1:=random(etalon*2);
    {if stake>etalon then
    begin
    v:=(stake/2);
    stake:=v;
    end; }
    blk:=0;
    end;

    if (x='Lose') then
    begin
    if(bolmen='Hi') and (blk<2) then bolmen:='Low' else bolmen:='Hi';
    inc(blk);
    randomize;
    bbb2:=random(1000);
    if blk=1 then bbb:=3 else bbb:=2;
    //if bbb2<500 then bbb:=2 else bbb:=3;
    if eco=1 then
    begin
    if blk=2 then stake1:=stake1*bbb;
    end else stake1:=stake1*bbb; //2;
    //if blk>2 then stake:=stake-1;
    if stake1>=maxx then stake1:=etalon;
    end;
    end else Form1.sStatusBar1.SimpleText:='Connection Error';
    if acc<limit then inc(acc) else y:=1;
    if (acc)=100 then
    begin
    sleep(30000);
    acc:=1;
    end;
    if y=1 then dec(th);
    LeaveCriticalSection (sect1);
    if y=1 then
    begin
    destroy;
    end;


    goto 4;
    end;

    Function Balance(key:string):string;
    var httpsend:Thttpsend; Data:TStringStream;
    x,btc,doge,ltc,eth:string;
    begin
    httpsend:=Thttpsend.Create;
    Httpsend.Protocol:='1.1';
    httpsend.Timeout:=5000;
    httpsend.AddPortNumberToHost:=false;

    httpsend.UserAgent:='Mozilla/5.0 (X11; Linux x86_64; rv:60.0) Gecko/20100101 Firefox/60.0';

    Data:=TStringStream.Create('');
    Data.WriteString('a=GetBalances&s='+key);
    HTTPSend.Document.LoadFromStream(Data);
    httpsend.MimeType:='application/x-www-form-urlencoded; charset=UTF-8';
    Httpsend.Headers.Add('Accept: */*');
    HTTPSend.HTTPMethod('POST','http://super999.ddns.net:999/api/web.aspx');
    Data.Free;
    Data:=TStringStream.Create('');
    httpsend.Document.SaveToStream(data);
    x:=Data.DataString;
    Data.Free;
    httpsend.free;

    if pos('"Balance":',x)<>0 then
    begin
    Delete(x,1,pos('"btc","Balance":',x)+15);
    btc:=copy(x,1,pos(',',x)-1);
    if pos('.',btc)=0 then
    begin
    while length(btc)<8 do btc:='0'+btc;
    btc:='0.'+btc;
    end;

    Delete(x,1,pos('"doge","Balance":',x)+16);
    doge:=copy(x,1,pos(',',x)-1);
    if pos('.',doge)=0 then
    begin
    while length(doge)<8 do doge:='0'+doge;
    doge:='0.'+doge;
    end;


    Delete(x,1,pos('"ltc","Balance":',x)+15);
    ltc:=copy(x,1,pos(',',x)-1);
    if pos('.',ltc)=0 then
    begin
    while length(ltc)<8 do ltc:='0'+ltc;
    ltc:='0.'+ltc;
    end;


    Delete(x,1,pos('"eth","Balance":',x)+15);
    eth:=copy(x,1,pos(',',x)-1);
    if pos('.',eth)=0 then
    begin
    while length(eth)<8 do eth:='0'+eth;
    eth:='0.'+eth;
    end;

    Result:='BTC:'+btc+'|DOGE:'+doge+'|LTC:'+ltc+'|ETH:'+eth+'|';
    end else Result:='ERROR'+#13#10+x;

    end;



    Function Bet(key,Stake,HiLow,Percent:string):string;
    var httpsend:Thttpsend; Data:TStringStream;
    x,tip:string; inner,start0 :integer;
    begin
    tip:='doge';
    httpsend:=Thttpsend.Create;
    Httpsend.Protocol:='1.1';
    httpsend.Timeout:=5000;
    httpsend.AddPortNumberToHost:=false;
    Data:=TStringStream.Create('');
    if HiLow='Hi' then Data.WriteString('a=PlaceBet&s='+key+'&PayIn='+Stake+'&Low=0&High=489999&ClientSeed=12305678&Currency='+tip);
    if HiLow='Low' then Data.WriteString('a=PlaceBet&s='+key+'&PayIn='+Stake+'&Low=520000&High=989999&ClientSeed=12345678&Currency='+tip);


    HTTPSend.Document.LoadFromStream(Data);
    httpsend.MimeType:='application/x-www-form-urlencoded; charset=UTF-8';
    Httpsend.Headers.Add('Accept: */*');
    HTTPSend.HTTPMethod('POST','http://super999.ddns.net:999/api/web.aspx');
    Data.Free;
    Data:=TStringStream.Create('');
    httpsend.Document.SaveToStream(data);
    x:=Data.DataString;
    Data.Free;
    httpsend.free;
    if pos('"PayOut"',x)<>0 then
    begin

    Delete(x,1,pos('"PayOut":',x)+8);
    inner:=strtoint(copy(x,1,pos(',',x)-1));

    Delete(x,1,pos('"StartingBalance":',x)+17);
    start0:=strtoint(copy(x,1,pos(',',x)-1));
    if inner=0 then
    begin
    start0:=start0-strtoint(stake);
    Result:='Lose:0.'+inttostr(start0);
    end;
    if inner<>0 then
    begin
    start0:=start0+inner;
    Result:='Win:0.'+inttostr(start0);
    end;
    //if pos('"PayOut":0,',x)=0 then Result:='Win';
    end else Result:='ERROR';
    //result:=x;

    end;



    procedure TForm1.sButton1Click(Sender: TObject);
    var x,API_key:string; etalon,i,stake:integer; r:real; v:variant;
    begin
    // API_key:='402486d76d9c46b5b3d90fa9685879e4';
    API_key:='ff4addc3f06547f4936ad4c3e912c234';

    {x:=Balance(API_key);
    sMemo1.Lines.Add(x);
    exit; }
    smemo1.Text:=Bet(API_key,'100','Low','48');
    exit;

    Etalon:=strtoint(sEdit1.Text);
    stake:=Etalon;
    i:=0;
    while i<strtoint(sEdit2.Text) do
    begin
    inc(i);
    sMemo1.Lines.Add('Step: '+inttostr(i));
    ///smemo1.Text:=Bet(API_key,'100','Hi','48');
    //x:='ERROR';
    //while x='ERROR' do
    //begin
    sleep(2000);
    x:=Balance(API_key);
    sMemo1.Lines.Add('Get Balance');
    //Application.ProcessMessages;
    //end;
    sLabel1.Caption:=copy(x,1,pos('|',x)-1);
    Delete(x,1,pos('|',x));
    sLabel2.Caption:=copy(x,1,pos('|',x)-1);
    Delete(x,1,pos('|',x));
    sLabel3.Caption:=copy(x,1,pos('|',x)-1);
    Delete(x,1,pos('|',x));
    sLabel4.Caption:=copy(x,1,pos('|',x)-1);
    Application.ProcessMessages;
    sMemo1.Lines.Add('Stake: '+inttostr(stake));
    x:=Bet(API_key,inttostr(stake),'Hi','48');
    if x='Win' then
    begin
    {if stake>etalon then
    begin
    v:=(stake/2);
    stake:=v;
    end; }
    stake:=etalon;
    end;
    if x='Lose' then stake:=stake*2;
    sMemo1.Lines.Add(x);
    Application.ProcessMessages;
    end;
    Beep;
    ShowMessage('Comlete');
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    initializeCriticalSection(sect1);
    end;

    procedure TForm1.FormDestroy(Sender: TObject);
    begin
    DeleteCriticalSection(sect1);
    end;

    procedure TForm1.sButton2Click(Sender: TObject);
    var i:integer; x:string;
    begin
    if sCheckBox1.Checked=true then eco:=1 else eco:=0;
    sStatusBar1.SimpleText:='Connect..';
    //API_key:='402486d76d9c46b5b3d90fa9685879e4'; //'cbbe5f87734146e4ba446b8418cfde72';
    //ff4addc3f06547f4936ad4c3e912c234
    API_key:=sEdit4.Text;
    x:=Balance(API_key);

    sLabel1.Caption:=copy(x,1,pos('|',x)-1);
    Delete(x,1,pos('|',x));
    sLabel2.Caption:=copy(x,1,pos('|',x)-1);
    Delete(x,1,pos('|',x));
    sLabel3.Caption:=copy(x,1,pos('|',x)-1);
    Delete(x,1,pos('|',x));
    sLabel4.Caption:=copy(x,1,pos('|',x)-1);

    sStatusBar1.SimpleText:='Start..';
    Etalon:=strtoint(sEdit1.Text);
    limit:=strtoint(sEdit2.Text);
    maxx:=strtoint(sEdit3.Text);
    acc:=0;
    th:=0;
    i:=0;
    h:=0;
    m:=0;
    s:=0;
    //for i:=1 to strtoint(edit1.text) do
    //begin
    inc(th);
    new5:=tnew.create(true);
    new5.freeonterminate := true;
    new5.priority := tplowest;
    new5.resume;
    //end;
    Timer1.Enabled:=true;

    end;

    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
    Form1.sLabel6.Caption:='STAKE: '+inttostr(stake1);
    if s<60 then inc(s) else
    begin
    s:=0;
    if m<60 then inc(m) else
    begin
    m:=0;
    inc(h);
    end;
    end;
    sStatusbar1.SimpleText:=inttostr(h)+':'+inttostr(m)+':'+inttostr(s);
    sLabel5.caption:='SPIN: '+inttostr(acc);
    if th=0 then
    begin
    Timer1.Enabled:=false;
    Beep;
    Showmessage('Complete');
    end;
    end;

    procedure TForm1.sButton3Click(Sender: TObject);
    var i,i2,ii:integer; x:string;
    begin
    randomize;
    i:=strtoint(sedit1.Text);

    while ii<i do random(ii);
    end;

    procedure TForm1.sCheckBox1Click(Sender: TObject);
    begin
    if sCheckBox1.Checked=true then eco:=1 else eco:=0;
    end;

    procedure TForm1.sEdit1Change(Sender: TObject);
    begin
    Etalon:=strtoint(sEdit1.Text);
    end;

    end.

    </CODE>
     
  4. Insector_666

    Insector_666 New Member

    Joined:
    1 May 2019
    Messages:
    0
    Likes Received:
    0
    Reputations:
    0
    кокс для свежести. Если вы еще кипятите, конечно...
     
  5. sn0w

    sn0w Статус пользователя:

    Joined:
    26 Jul 2005
    Messages:
    1,023
    Likes Received:
    1,310
    Reputations:
    327
    суицид, отпили этот рак нахуй вместе с акком
     
    Turanchocks_, seostock and pas9x like this.
  6. quite gray

    quite gray Banned

    Joined:
    8 Dec 2016
    Messages:
    370
    Likes Received:
    1,612
    Reputations:
    3
    Ошибки в коде? :-D
     
  7. DartPhoenix

    DartPhoenix Elder - Старейшина

    Joined:
    15 Sep 2013
    Messages:
    1,107
    Likes Received:
    8,491
    Reputations:
    25
    Оно и в самом деле кому нужны регулярки когда есть Delphi ? :)

    Code:
    if pos('"Balance":',x)<>0 then
    begin
    Delete(x,1,pos('"btc","Balance":',x)+15);
    btc:=copy(x,1,pos(',',x)-1);
    if pos('.',btc)=0 then
    begin
    while length(btc)<8 do btc:='0'+btc;
    btc:='0.'+btc;
    end;
    Что сука характерно я такую херню вижу далеко не впервые :)
     
  8. DartPhoenix

    DartPhoenix Elder - Старейшина

    Joined:
    15 Sep 2013
    Messages:
    1,107
    Likes Received:
    8,491
    Reputations:
    25
    И кстати ты когда два раза делаешь pos - функция поиска выполняется тоже два раза.
    О - оптимизация.

    Code:
    if pos('"Balance":',x)<>0 then
    begin
    Delete(x,1,pos('"btc","Balance":',x)+15);
    ========
    А Label 4 намекает на знание VisualBasic'а к тому же. Это тот редкий случай когда знание чего-то является не плюсом.
     
  9. sn0w

    sn0w Статус пользователя:

    Joined:
    26 Jul 2005
    Messages:
    1,023
    Likes Received:
    1,310
    Reputations:
    327
    щас много самодуров форкают опенсорср хрома/фокса под свои задрочки. что самое интересное - оно у них и не подписанное и ну вы сами понели
     
  10. quite gray

    quite gray Banned

    Joined:
    8 Dec 2016
    Messages:
    370
    Likes Received:
    1,612
    Reputations:
    3
    Мне нравится его тяга к зарабатыванию денег...
     
    Coost likes this.
  11. sn0w

    sn0w Статус пользователя:

    Joined:
    26 Jul 2005
    Messages:
    1,023
    Likes Received:
    1,310
    Reputations:
    327
    что касается самого с++ - то тут уже началась корпоративная война правок - что вменяемых (например в +20 опять вернули designated initializers - типа T yaya{.a=1,.b=2} ну итд
     
  12. sn0w

    sn0w Статус пользователя:

    Joined:
    26 Jul 2005
    Messages:
    1,023
    Likes Received:
    1,310
    Reputations:
    327
    да всё школиё которое теперь получило возможность лезть в инеты - всё это говно лезет
     
  13. sn0w

    sn0w Статус пользователя:

    Joined:
    26 Jul 2005
    Messages:
    1,023
    Likes Received:
    1,310
    Reputations:
    327
    теперь уже сам язык надо отчищать от всякой пидерщины,
     
  14. myrz

    myrz Member

    Joined:
    22 Jun 2008
    Messages:
    102
    Likes Received:
    28
    Reputations:
    0
    Я правильно понял, что это какой-то бот на Gecko просрался ошибкой прямо в топик? Ещё и с искуственным интелектом чтоль?
     
  15. pas9x

    pas9x Elder - Старейшина

    Joined:
    13 Oct 2012
    Messages:
    423
    Likes Received:
    585
    Reputations:
    52
    Шёл 2019 год.
    Делфи7.
    Лол.

    В древнем делфи небыло регулярок. Не знаю как сейчас. Решалось это либой TPerlRegEx, но юзать её неудобно.
     
  16. DartPhoenix

    DartPhoenix Elder - Старейшина

    Joined:
    15 Sep 2013
    Messages:
    1,107
    Likes Received:
    8,491
    Reputations:
    25
    Не. У них помнится была какая-то вундервафля. А к ней еще в комплекте шла тулза чтобы на лету свои регулярки проверять. Вроде норм. но названия я не вспомню :)
     
  17. sn0w

    sn0w Статус пользователя:

    Joined:
    26 Jul 2005
    Messages:
    1,023
    Likes Received:
    1,310
    Reputations:
    327
    откуда, бля, поплыли интерфейсы и коллбеки (дажы аппаратно)? - да из плюсовой архитектуры, ёпта
     
  18. DartPhoenix

    DartPhoenix Elder - Старейшина

    Joined:
    15 Sep 2013
    Messages:
    1,107
    Likes Received:
    8,491
    Reputations:
    25
    Кодом бы кинул... кто там будет разбирать эту ересь...
    Мне 6 строк хватило чтоб плюнуть и забить.
     
  19. sn0w

    sn0w Статус пользователя:

    Joined:
    26 Jul 2005
    Messages:
    1,023
    Likes Received:
    1,310
    Reputations:
    327
    lf nfv yt[ez hfp,bhfnm - dc` b nfr jxtdblyj? я кстати намерен книгу написать по с++ для васма, и мне нужен собутыльник по этой теме, будешь?
     
  20. sn0w

    sn0w Статус пользователя:

    Joined:
    26 Jul 2005
    Messages:
    1,023
    Likes Received:
    1,310
    Reputations:
    327
    просто то о чём говорпит Rel - типа запили обо всех #UB - так блять нет никаких уб, теже для тех же пур виртуал методов специально в таблице пилятся отладочные заглушки

    или если глаз не может токенизировать и разложить в i+++i итд