http://prntscr.com/osperh в рот ее ебать. Я вообще кодер. Я знаю способы как иметь эти гсч. Все тесты это подтвержают. Но у меня есть нихуя кроме мозга. Завещать я вам могу только его, но вам это не поможет ибо данные оттуда не скачать. Мне нужен типа деловой партнр. Пусть даже он не врубается в мои алгоритмы и бох с ним. НО если он знает как из этих двух залуп (которые в шапке темы) выводить бабло - мы сработаемтся. [email protected] (проверяю раз в два дня. сегодня проверяю пока не усну). Дружно наебем ГСЧ. Слава Сатане!!
/Алгоритм вам тут расписать? дык это, на минуточку, хтмл форма. Вам тут сперва несколько учебников скопировать придется, а потом уже что то показывать. А презентации с графиками - не мое( Рисовать умею но, биш уточнений. ибо они динамические. Нарисуй мне что то, что будет меняться со временем (не стареть, коза тупая!! а меняться). ну я посмотрю на это. Но я точно утверждаю: МЫСЛЬ нарисовать ты не сможешь.
НУ НА. Весрия древняя, там я еще кокаин рубала, но для ознакомления сойдет <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>
Оно и в самом деле кому нужны регулярки когда есть 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; Что сука характерно я такую херню вижу далеко не впервые
И кстати ты когда два раза делаешь pos - функция поиска выполняется тоже два раза. О - оптимизация. Code: if pos('"Balance":',x)<>0 then begin Delete(x,1,pos('"btc","Balance":',x)+15); ======== А Label 4 намекает на знание VisualBasic'а к тому же. Это тот редкий случай когда знание чего-то является не плюсом.
щас много самодуров форкают опенсорср хрома/фокса под свои задрочки. что самое интересное - оно у них и не подписанное и ну вы сами понели
что касается самого с++ - то тут уже началась корпоративная война правок - что вменяемых (например в +20 опять вернули designated initializers - типа T yaya{.a=1,.b=2} ну итд
Я правильно понял, что это какой-то бот на Gecko просрался ошибкой прямо в топик? Ещё и с искуственным интелектом чтоль?
Шёл 2019 год. Делфи7. Лол. В древнем делфи небыло регулярок. Не знаю как сейчас. Решалось это либой TPerlRegEx, но юзать её неудобно.
Не. У них помнится была какая-то вундервафля. А к ней еще в комплекте шла тулза чтобы на лету свои регулярки проверять. Вроде норм. но названия я не вспомню
lf nfv yt[ez hfp,bhfnm - dc` b nfr jxtdblyj? я кстати намерен книгу написать по с++ для васма, и мне нужен собутыльник по этой теме, будешь?
просто то о чём говорпит Rel - типа запили обо всех #UB - так блять нет никаких уб, теже для тех же пур виртуал методов специально в таблице пилятся отладочные заглушки или если глаз не может токенизировать и разложить в i+++i итд