Программирование, кто на чём? делимся опытом. помогаем новичкам. Опции

[Bonpoc4er]

Diamond00744
а бесплатные голоса работают? ))

[GraYaSDF]

И все недоделано

Не удивляйся, у меня тоже много недоделано. Это бывает так, раз - идейка, поделаем ее немного, потом уже надоедает. Лично у меня так.

[Diamond00744]

BONPOC 4 ER, скачай и посуди сам)))

[Щука Карась]

Хммм не кидайтесь в меня тухлым тиберием но я пока только турбо паскаль осваиваю. С оператором case пытаюсь разобраться...

[Diamond00744]

Лет в интернете: 4-5

Ничего, еще все впереди. Будешь программистом и сделаешь программу для воспроизведения голограмм в Intel.

[Dukat863]

Ничего, еще все впереди. Будешь программистом и сделаешь программу для воспроизведения голограмм в Intel.

Голограммы?

показать офф-топ

Уже поздно...

[Diamond00744]

Вот когда они в повседневную жизнь войдут, ты их новые и будешь разрабатывать.
"Мониторы? Уже поздно! Ан нет! Придумаю ка я ЖК монитор!"
Вот так же и ты!

[Куков]

BONPOC 4 ER, скачай и посуди сам)))

Кстати качаете вы это на свой страх и риск

[Diamond00744]

Я писал эту прогу на Delphi. Все чисто. У меня NOD32.

Отправил на VirusTotal. Он проверил этот архив 41 антивирусами. 13 что-то обнаружили.

http://www.virustotal.com/ru/analisis/93d8...2135-1280242842

Хотя файл EXE уже кто-то до меня проверял. Результат (VirusTotal) - 4/41

Неужели мои работы в вирусах?

Отправил "Разрешение экрана" туда же. Результат: 0 (http://www.virustotal.com/ru/analisis/ad55...91d7-1280244311)

[IwanS]

Diamond00744, может ты библиотеку какую-то специфическую использовал там? Ведь не обязательно вся прога вирус, достаточно одну функцию какую-то.

P.S: я знаю о вирусах, которые сами приписываются к проектам на делфи и при компиляции включаются в них. То есть рекомендую открыть исходный проект и посмотреть подключаемые модули.

[Diamond00744]

IwanS спасибо тебе огромное за понимание, я думал, меня с форума отправят куда подальше.

Я только в этой программе использовал сжатие UPX. Снизился размер с 1,6 Мб до где-то 400-600 Кб. Может, оно вызывает подозрение.

Нет, пересобрал EXE. Без сжатия и архивации отправил на VirusTotal. 6/42. Это не UPX. Возможно, простые слова "бесплатные голоса в контакте" вызывают подозрения у антивирусов =)).

Еще возможность, почему определяется вирусом - у меня при нажатии на кнопку подряд выводятся 10 окон с сообщениями (не одновременно, а первое окно - ОК - второе - ОК - третье...). Это возможно?

Программа пароля не просит, сис. файлы не меняет, в Интернет не выходит

[IwanS]

Diamond00744, а ты не мог бы дать листинг заголовка твоего проекта. Ну где uses <....> и до слова begin. Верхнюю часть основного файла. Мне интересно, какие библиотеки ты используешь, может быть дело в них.

P.S: Я в свое время упаковывал приложения с помощью ASPack (кажется так), проблем с ошибочным определением вирусов не было.

Насчет 10 подряд окошек... я так не делал, сказать ничего не могу. Теоретически возможно, но это было бы глупостью...

[Diamond00744]

Уменьшил кол-во окон с сообщениями до трех. Результат уже не 6/42, а 4/42

Я в uses все уменьшил до минимума, еще раз отправил на VirusTotal. - 4/42

uses
Windows, Messages, SysUtils, Forms,
Dialogs, ExtCtrls, pngimage, Controls, Classes, StdCtrls;

http://www.virustotal.com/ru/analisis/d5a3...6014-1277380412
Вот эти 4 подозрения

[IwanS]

Diamond00744, это не серьезно. Какие-то 4 неизвестных антивируса детектят эвристикой чего-то невнятное (причем обрати внимание - одно и то же, скорее всего одни и те же базы кроме нормана) - это даже смотреть не стоит . Если касперский + дрвеб + нод32 + аваст ничего не видят - все норм.

[Diamond00744]

Ладно, последний момент: сжал UPX-ом, отправил, тоже 4/42

Остальное без вирусов

[~IL~]

одну фишку вспомнил
мне тут один чел показал, теперь я вам показываю) но это все программисты наверно знают..
создаёте текстовый файл и пишете там
%0 | %0
сохраняете под расширением *.cmd
если вам удастся запустить его и вырубить хотя бы через диспетчер задач, тогда придётся немного усложнить
%0 | %0 | %0

если и это вас не убеждает, можно написать так
123
0% | %0
пробуем, тестируем, издеваемся над юзерами)
самый простой способ запихать в автозагрузу
а ещё лучше в реестре прописать (для тех кто в танке Пуск-выполнить-regedit)
в каталоге HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run создаем строковый параметр и в поле "Значение" задаём путь к нашему любимому *.cmd =)
если вы хотите насолить опытному юзеру, придётся помаксимуму замаскировать его (ну, здесь уж кто на что горазд, главное, чтобы в процессах и в реестре название казалось безобидным=))
если у вас на всё это мало времени, то можно написать программку, которая сделает это за вас. я готов помочь если что))

[Diamond00744]

~IL~, это полное издевательство...

[~IL~]

есть такая интересная штука - фрактал.
самый известный фрактал - множество Мандельброта.
мне удалось раздобыть исходный код построения этого чудо-рисунка на C#

показать офф-топ

// <remarks>
// Mandel.cs Copyright 2005, written by Pierre Leclercq
// </remarks>

namespace Mandelbrot
{
public class Mandel
{
//
// Protected fields
//

protected System.Windows.Forms.ProgressBar m_ProgressBar;

//
// Constructor
//

public Mandel(System.Windows.Forms.ProgressBar pProgressBar)
{
m_ProgressBar = pProgressBar;
}

//
// Properties
//

//
// Public members
//

public System.Drawing.Bitmap GetBitmap(
int pImageWidth,
int pImageHeight,
double pXMin,
double pXMax,
double pYMin,
double pYMax,
int pMaxIterationCount)
{
try
{
int i = 0;
int j = 0;
int[][] lValues = new int[pImageHeight][];

for (i = 0; i < pImageHeight; i++)
{
lValues[i] = new int[pImageWidth];
}

CalculateLevels(
lValues,
pImageWidth,
pImageHeight,
pXMin,
pXMax,
pYMin,
pYMax,
pMaxIterationCount);

System.Drawing.Bitmap lBitmap = new System.Drawing.Bitmap(pImageWidth, pImageHeight, System.Drawing.Imaging.PixelFormat.Format32bppArgb);

byte lRed = 0;
byte lGreen = 0;
byte lBlue = 0;
int lPixelByteCount = 4;
int lAlphaPos = 3;
int lRedPos = 2;
int lGreenPos = 1;
int lBluePos = 0;
int lPixelCount = pImageHeight * pImageWidth;
int lPixelPos = 0;

m_ProgressBar.Minimum = 0;
m_ProgressBar.Maximum = lPixelCount;
m_ProgressBar.Value = 0;

System.Drawing.Imaging.BitmapData lBitmapData = new System.Drawing.Imaging.BitmapData();

lBitmap.LockBits(
new System.Drawing.Rectangle(
0,
0,
pImageWidth,
pImageHeight),
System.Drawing.Imaging.ImageLockMode.WriteOnly,
System.Drawing.Imaging.PixelFormat.Format32bppArgb,
lBitmapData);

unsafe
{
System.Byte* lStartPtr = (System.Byte*)((void*)lBitmapData.Scan0);
int lEndToStart = lBitmapData.Stride - pImageWidth * lPixelByteCount;
System.Byte* lPtr = lStartPtr;

for (j = 0; j < pImageHeight; j++)
{
for (i = 0; i < pImageWidth; i++)
{
GetColorFromLevel(
lValues[j][i],
pMaxIterationCount,
out lRed,
out lGreen,
out lBlue);

lPtr[lAlphaPos] = 255;
lPtr[lRedPos] = lRed;
lPtr[lGreenPos] = lGreen;
lPtr[lBluePos] = lBlue;

lPtr += lPixelByteCount;
lPixelPos++;
}

lPtr += lEndToStart;

m_ProgressBar.Value = lPixelPos;
System.Windows.Forms.Application.DoEvents();
}
}

lBitmap.UnlockBits(lBitmapData);

return lBitmap;
}
catch
{
return null;
}
}

//
// Protected members
//

protected double GetPotential(
double pX,
double pY,
int pMaxIterationCount)
{
int lIteration = 0;
double lX = pX;
double lY = pY;
double lX2 = lX * lX;
double lY2 = lY * lY;
double lTemp = 0;

while ((lIteration < pMaxIterationCount) && ((lX2 + lY2) < 10000.0))
{
lTemp = lX2 - lY2 + pX;
lY = 2 * lX * lY + pY;
lX = lTemp;
lX2 = lX * lX;
lY2 = lY * lY;
lIteration++;
}

if (lIteration < pMaxIterationCount)
{
return 0.5 * System.Math.Log(lX2 + lY2) / System.Math.Pow(2.0, (double)lIteration);
}
else
{
return 0.0;
}
}

protected int GetLevel(
double pX,
double pY,
int pMaxIterationCount)
{
int lIteration = 0;
double lX = 0;
double lY = 0;
double lX2 = 0;
double lY2 = 0;
double lTemp = 0;

while ((lIteration < pMaxIterationCount) && ((lX2 + lY2) < 10000.0))
{
lTemp = lX2 - lY2 + pX;
lY = 2 * lX * lY + pY;
lX = lTemp;
lX2 = lX * lX;
lY2 = lY * lY;
lIteration++;
}

return lIteration;
}

protected void CalculateLevels(
int[][] pArrays,
int pImageWidth,
int pImageHeight,
double pXMin,
double pXMax,
double pYMin,
double pYMax,
int pMaxIterationCount)
{
int lMaxImageXIndex = pImageWidth - 1;
int lMaxImageYIndex = pImageHeight - 1;
double lX = 0.0;
double lY = 0.0;
double lXExtent = pXMax - pXMin;
double lYExtent = pYMax - pYMin;
double lXFactor = lXExtent / (double)lMaxImageXIndex;
double lYFactor = lYExtent / (double)lMaxImageYIndex;
double lFactor = System.Math.Min(lXFactor, lYFactor);
int lPixelCount = pImageHeight * pImageWidth;
int lPixelPos = 0;

m_ProgressBar.Minimum = 0;
m_ProgressBar.Maximum = lPixelCount;
m_ProgressBar.Value = 0;

for (int j = 0; j < pImageHeight; j++)
{
lY = pYMin + (double)j * lFactor;

for (int i = 0; i < pImageWidth; i++)
{
lX = pXMin + (double)i * lFactor;

pArrays[j][i] = GetLevel(lX, lY, pMaxIterationCount);
lPixelPos++;
m_ProgressBar.Value = lPixelPos;
System.Windows.Forms.Application.DoEvents();
}
}
}

protected void CalculatePotentials(double[][] pArrays,
int pImageWidth,
int pImageHeight,
double pXMin,
double pXMax,
double pYMin,
double pYMax,
int pMaxIterationCount)
{
int lMaxImageXIndex = pImageWidth - 1;
int lMaxImageYIndex = pImageHeight - 1;
double lX = 0.0;
double lY = 0.0;
double lXExtent = pXMax - pXMin;
double lYExtent = pYMax - pYMin;
double lXFactor = lXExtent / (double)lMaxImageXIndex;
double lYFactor = lYExtent / (double)lMaxImageYIndex;
int lPixelCount = pImageHeight * pImageWidth;
int lPixelPos = 0;

m_ProgressBar.Minimum = 0;
m_ProgressBar.Maximum = lPixelCount;
m_ProgressBar.Value = 0;

for (int j = 0; j < pImageHeight; j++)
{
lY = pYMin + (double)j * lYFactor;

for (int i = 0; i < pImageWidth; i++)
{
lX = pXMin + (double)i * lXFactor;

pArrays[j][i] = GetPotential(lX, lY, pMaxIterationCount);
lPixelPos++;
m_ProgressBar.Value = lPixelPos;
System.Windows.Forms.Application.DoEvents();
}
}
}

protected void GetColorFromLevel(
int pLevel,
int pMaxIteration,
out byte pRed,
out byte pGreen,
out byte pBlue)
{
double lRatio = (double)pLevel / (double)pMaxIteration;

pRed = 0;
pGreen = 0;
pBlue = 0;

if ((lRatio >= 0) && (lRatio < 0.125))
{
pRed = (byte)(((lRatio - 0) / 0.125) * ((double)512) + 0.5);
pGreen = 0;
pBlue = 0;
}

if ((lRatio >= 0.125) && (lRatio < 0.250))
{
pRed = 255;
pGreen = (byte)(((lRatio - 0.125) / 0.125) * ((double)512) + 0.5);
pBlue = 0;
}

if ((lRatio >= 0.250) && (lRatio < 0.375))
{
pRed = (byte)((1.0 - ((lRatio - 0.250) / 0.125)) * ((double)512) + 0.5);
pGreen = 255;
pBlue = 0;
}

if ((lRatio >= 0.375) && (lRatio < 0.500))
{
pRed = 0;
pGreen = 255;
pBlue = (byte)(((lRatio - 0.375) / 0.125) * ((double)512) + 0.5);
}

if ((lRatio >= 0.500) && (lRatio < 0.625))
{
pRed = 0;
pGreen = (byte)((1.0 - ((lRatio - 0.500) / 0.125)) * ((double)512) + 0.5);
pBlue = 255;
}

if ((lRatio >= 0.625) && (lRatio < 0.750))
{
pRed = (byte)(((lRatio - 0.625) / 0.125) * ((double)512) + 0.5);
pGreen = 0;
pBlue = 255;
}

if ((lRatio >= 0.750) && (lRatio < 0.875))
{
pRed = 255;
pGreen = (byte)(((lRatio - 0.750) / 0.125) * ((double)512) + 0.5);
pBlue = 255;
}

if ((lRatio >= 0.875) && (lRatio <= 1.000))
{
pRed = (byte)((1.0 - ((lRatio - 0.875) / 0.125)) * ((double)512) + 0.5);
pGreen = (byte)((1.0 - ((lRatio - 0.875) / 0.125)) * ((double)512) + 0.5);
pBlue = (byte)((1.0 - ((lRatio - 0.875) / 0.125)) * ((double)512) + 0.5);
}
}

//
// Event handlers
//
}
}

и ехешник - прилагается, можно рассмотреть кое-какие детали
если понравится - можете посмотреть в гугле разные фракталы, там и видео есть, но самому как-то приятно по нему поползать) хоть там и не такая крутая детализация)
зы. самое интересное - на конце иглы =)

[KALAPS Shtam8]

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

Зачем заморачиваться и пытаться выдумать безобидное название ? Не проще взять какое ни буть название из системы и продублировать его("наш любимый *.cmd") в другой системной папке ?

[~IL~]

Зачем заморачиваться и пытаться выдумать безобидное название ? Не проще взять какое ни буть название из системы и продублировать его("наш любимый *.cmd") в другой системной папки ?

ну я же говорю, кто на что горазд))