Розроблено програмне забезпечення, що реалізує роботу з крипто валютою.
Головна процедура обміну крипто валютою має наступний код:
procedure TForm1.sButton5Click(Sender: TObject);
var
  Way, StrTime:string;
  i,z: integer;
begin
StrTime:=TimeToStr(Time);
 for z:=1 to Length(StrTime)  do
 if StrTime[z]=':' then  StrTime[z]:='_';
begin
CreateDir(ExtractFilePath(Application.ExeName)+'/PayPal_'+strtime);
Assignfile(GoodFile, ExtractFilePath(Application.ExeName)+'/PayPal_'+strtime+'/'+'GoodFile_'+DateToStr(date)+'.txt');
Rewrite(GoodFile);
Closefile(GoodFile);
Assignfile(BadFile, ExtractFilePath(Application.ExeName)+'/PayPal_'+strtime+'/'+'BadFile_'+DateToStr(date)+'.txt');
Rewrite(BadFile);
Assignfile(NoBalance, ExtractFilePath(Application.ExeName)+'/PayPal_'+strtime+'/'+'NoBalance_'+DateToStr(date)+'.txt');
Rewrite(NoBalance);
Closefile(NoBalance);
Assignfile(Balance, ExtractFilePath(Application.ExeName)+'/PayPal_'+strtime+'/'+'Balance_'+DateToStr(date)+'.txt');
Rewrite(Balance);
Closefile(Balance);
end;
 Append(GoodFile);
 Writeln(GoodFile,'// Вопрос: Я увидел знаки вопроса в место имени, адреса, странные символы. Что делать?');
 Writeln(GoodFile,'// Ответ: Ничего, дело в том, что имя / адресс, написаны на китайском, японском языках.');
 Writeln(GoodFile,'// - В следующих обновлениях, думаю, мы устраним проблему.');
 Closefile(GoodFile);
if scombobox1.ItemIndex=0 then typeofproxy:='socks';
bad:=0;
good:=0;
podel:=':';
errors:=0;
work:=true;
iac:=-1;
ipp:=-1;
sGauge1.Progress:=0;
sGauge1.MaxValue:=accs.Count;
sLabel10.Caption:=inttostr(accs.Count);
for I := 0 to sspinedit1.Value-1 do begin
SetLength(yPClient, i+1);
yPClient[i]:=PClient.Create(False);
yPClient[i].Priority:=tpLowest;
yPClient[i].FreeOnTerminate:=True;
yPClient[i].Resume;
end;
sButton6.Enabled:=true;
sButton5.Enabled:=false;
sButton1.Enabled:=false;
sButton2.Enabled:=false;
sButton4.Enabled:=false;
sSpinEdit1.Enabled:=false;
end;
Процедура забезпечення безпеки:
var
  Way, StrTime:string;
  z: integer;
begin
  if rez=1 then begin
  good:=good+1;
  if Form1.sCheckBox1.Checked=true then
  begin
  beep;
  end;
  add(self.login+';'+self.pass,user_card,type_money);
  form1.sLabel5.Caption:=IntToStr(good);
  Append(GoodFile);
  Writeln(GoodFile,#10+'=================================');
  Writeln(GoodFile,'Username: '+self.login);
  Writeln(GoodFile,'Password: '+self.pass);
  Writeln(GoodFile,'Name: '+user_wel);
  Writeln(GoodFile,'Primary E-mail: '+self.login);
  Writeln(GoodFile,'Address: '+trim(user_adress));
  Writeln(GoodFile,'Paypal Balance: '+type_money);
  Writeln(GoodFile,'Measure: '+measure);

  Writeln(GoodFile,'Кредитная карта: '+user_card);
  Writeln(GoodFile,'Account type: '+type_status);
  Writeln(GoodFile,'Status: '+status);
  Writeln(GoodFile,'Last log in:  '+trim(user_last));
  Writeln(GoodFile,'Country: страна'+#10);

  Writeln(GoodFile,'Socks: '+socks_type);
  StrTime:=TimeToStr(Time);
 for z:=1 to Length(StrTime)  do
 if StrTime[z]=':' then  StrTime[z]:=':';
begin
  Writeln(GoodFile,'Check Date:  '+strtime+' '+DateToStr(date));
end;