بدافزار w32/Dropper.cg

آشنایی با بدافزار W32/Dropper.cg: بدافزار Dropper که یک کرم مخرب است در محیط های Windows 2000,XP,NT و ... قابلیت اجرا دارد. از خصوصیات این کرم آن است که:

1. تغییر خاصی - به شرح ذیل - در رجیستری ایجاد می کند:

HKEY_LOCAL_MACHINESoftwareMicrosoftWindowsCurrentVersionWINNTWinlogonShell = %WINDOWS%systemsvchost.exe

2. فایلهای ذیل را ایجاد می نماید:

%WINDOWS%systemshell32.dll و %WINDOWS%systemsvchost.exe

3. این کرم از سری برنامه های Password Sender بوده و اطلاعات Yahoo همچنین نام کاربری و کلمه عبور یاهو مسنجر را برای ﺁدرسی از پیش تعیین شده ارسال می کند.

این بدافزار توسط نرم‌افزار ضدویروس ایمن به طور کامل شناسایی و پاکسازی می‌گردد.

چین: هکرها به دستگاه های اطلاعاتی ما هم حمله کرده اند. در هفته های گذشته کشور چین و وزارت خارجه آن کشور بارها از سوی کشورهای امریکا، بریتانیا و آلمان متهم به برنامه ریزی حملات سایبر به شبکه های دولتی این کشورها شده است. چین در پاسخ به این اتهامات، این حملات را رد می کند و می گوید که دستگاه اطلاعاتی چین نیز مورد حمله این هکرها قرار گرفته است. چندی پیش سرویس محرمانه اطلاعاتی کشور نیوزیلند نیز خبر از حمله به شبکه های رایانه ای خود داد و این حملات را اقدام دولت کشور دیگری دانست. دولت نیوزیلند رسما" این خبر را اعلام کرد اما از نام بردن کشور مظنون به این حملات خودداری کرد. چین در حالی اقدام هکرها علیه شبکه های رایانه ای کشور خود را تایید می کند که در هفته گذشته حملات مشابه سایبر به دیگر کشورها را رد کرده بود. کشورهای ایالات متحده، بریتانیا و آلمان، کشور چین و ارتش آن کشور را در این رابطه مقصر می دانند اما چین این حملات را رد می کند. وزیر امور خارجه چین در این رابطه می گوید:" تا آنجا که من می دانم هنوز هیچ درخواستی مبنی بر تحقیق پلیس چین در رابطه با این حملات از سوی کشورهای مدعی دریافت نشده است." در چند شماره اخیر خبرنامه، اخباری در خصوص حملات هکرهای چینی ارائه شد.

اختلال سرویس دهی در ضدویروس کاسپرسکی: چندین آسیب پذیری در ضدویروس کاسپرسکی (Kaspersky) گزارش شده است که از آنها می توان برای اجرای حملات عدم پذیرش سرویس (DoS) استفاده کرد. این نقص های امنیتی ناشی از بروز خطا در فایل klif.sys به هنگام اجرای پارامترهایی از hooked function ها می باشد. باگ های یاد شده برای نسخه 7.0 build 125 گزارش شده و احتمال می رود دیگر نسخه ها نیز دارای آسیب پذیری های مشابه باشند.

یاهو ناخواسته تبلیغات مخرب ارسال کرد! در یکی دیگر از نمونه های سوء استفاده از اعتبار و معروفیت شرکت ها از اعتماد کاربران، ماجرایی است که سایت یاهو ایجاد است. به گزارش TechSpot.com شرکت رایت مدیا (Right Media) که یاهو مالک آن است یکسری تبلیغات حاوی تروجان را چندین میلیون بار به نمایش گذاشته است. این تبلیغات اگرچه کاربران سراسر دنیا را پوشش می داده اما بیشتر برای کاربران مای اسپیس (MySpace) و فتوبلاکت (PhotoBucket) به نمایش گذاشته شده است. تمام تبلیغات ارسال شده از طرف رایت مدیا تولید خود این شرکت نیستند بلکه بعضی شرکتهای دیگر آنها را تولید و ارسال می کنند. با این حال این وظیفه رایت مدیا است که تبلیغات را از لحاظ بی خطر بودن مورد بررسی و بازبینی قرار دهد.

فقدان امنیت در سایتهای کاریابی: کاربرانی که رزومة خود را در سایتهای کاریابی قرار می دهند، بعضاً با تماس های بسیاری از سوی کارفرماهای گوناگون مواجه می شوند. سو استفاده از اطلاعات کارجویان به مشکل عمده ای برای سایتهای کاریابی تبدیل شده است و دستمایه دزدی هکرها شده است. در سالهای اخیر این سایتها به محبوبیت فوق العاده ای دست یافته اند.

آسیب پذیری بحرانی در ask.com برای اینترنت اکسپلورر: یک آسیب پذیری در نوار ابزار ask.com برای اینترنت اکسپلورر (Internet Explorer) شناسایی شده که هکرها با استفاده از آن می توانند کنترل رایانه قربانی را در دست بگیرند. این حفره امنیتی از یک سرریز بافر (buffer overflow) در نوار ابزار ناشی می شود و ActiveX control را درگیر می کند. حفره یادشده در زمره حفره های بسیار خطرناک (Highly Critical) که دومین درجه بندی خطر بشمار می آید، طبقه بندی شده است. این باگ در نسخه 4.0.2 نوار ابزار یافت شده و احتمال می رود دیگر نسخه ها نیز از این مشکل متاثر باشند. هنوز در این خصوص هیچ پاسخی از سوی مقامات ask.com ارائه نشده است.

اتحاد روسیه و فرانسه در مبارزه با جرایم اینترنتی: کارشناسان جرایم سایبر از دو کشور فرانسه و روسیه متعهد شدند در زمینه مبارزه با جرایم شبکه ای سازمان یافته در اینترنت با یکدیگر همکاری داشته باشند. پلیس و نمایندگان شرکت های بزرگی نظیر فدراسیون بانکداری فرانسه، برای رسیدن به توافقنامه ای برای مبارزه با جرایم اینترنتی در مسکو با همتایان روسی خود مذاکره کردند. به گفته مسئول گروه فرانسوی هدف از این کنفرانس چهار ساعته افزایش همکاری بین دو کشور بوده است. وی افزوده عمده مباحث بر بزهکاری های آنلاین متمرکز بود، اما مبارزه با شبکه های هرزه نگاری کودکان نیز در دستور کار قرار داشت.

چگونه میتوان هر ستونی ازTStringGridرا سورت کرد ؟

unit Unit2;


interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, Grids, StdCtrls;

type
TodColType = (odct_Date,odct_time,odct_DateTime,odct_numeric,odct_CaseString,odct_NoCaseString);

Procedure ODSortGrid(grid:TStringGrid;ColToSort:Integer;TypeCol:TodColType;FromRow,ToRow:integer;Ascending:Boolean);

implementation

Procedure ODSortGrid(grid:TStringGrid;ColToSort:Integer;TypeCol:TodColType;FromRow,ToRow:integer;Ascending:Boolean);
var Ts:TStringList; i:integer; sg:tstringgrid;
Function ToDate(const s:string):string;
var y,m,d : word;
begin
DecodeDate(StrToDate(s),y,m,d);
result := FormatFloat('0000',y)+FormatFloat('00',m)+FormatFloat('00',d);
end;
Function ToTime(const s:string):string;
var h,m,sx,ms:word;
begin
DecodeTime(StrToTime(s),h,m,sx,ms);
result := FormatFloat('00',h)+FormatFloat('00',m)+FormatFloat('00',sx)+FormatFloat('00',ms);
end;
Function ToDateTime(const s:string):string;
var p:integer;
begin
p:=pos(' ',s);
if p>0 then
begin
Result := ToDate(copy(s,1,p-1))+ToTime(copy(s,p+1,length(s)));
end else result := '0000000000000000';
end;
Function ToNumeric(const s:string):string;
var p:integer; sx:string;
const z30 = '000000000000000000000000000000';
function pad(z:integer):string;
begin
if z in [1..30] then result := copy(z30,1,z) else result :='';
end;
begin
sx:='';
for p:=1 to length(s) do
if s[p] in (['0'..'9','-',',','.']-[ThousandSeparator]) then sx:=sx+s[p];
p:=pos(DecimalSeparator,sx);
if p>0 then
result := pad(25-length(copy(sx,1,p-1)))+copy(sx,1,p-1)+'.'+copy(sx,p+1,length(sx))+pad(25-length(copy(sx,p+1,length(sx))))
else result := pad(25-length(sx))+sx;
end;
begin
ts:=tstringlist.Create;
try
For i:=FromRow to ToRow do
begin
Case TypeCol of
odct_Date : ts.AddObject(ToDate(grid.cells[ColToSort,i]),tobject(i));
odct_Time : ts.AddObject(ToTime(grid.cells[ColToSort,i]),tobject(i));
odct_DateTime : ts.AddObject(ToDateTime(grid.cells[ColToSort,i]),tobject(i));
odct_Numeric : ts.AddObject(ToNumeric(grid.cells[ColToSort,i]),tobject(i));
odct_CaseString : ts.AddObject(grid.cells[ColToSort,i],tobject(i));
odct_NoCaseString : ts.AddObject(AnsiUpperCase(grid.cells[ColToSort,i]),tobject(i));
end;
end;
ts.sorted := true;
sg := TStringGrid.Create(application);
try
sg.ColCount := grid.colcount;
sg.rowcount := ToRow-FromRow+1;
sg.FixedCols := 0;
sg.FixedRows := 0;
if Ascending then
For i:=0 to ts.count-1 do
sg.Rows[i] := grid.Rows[integer(ts.objects[i])]
else
For i:=ts.count-1 downto 0 do
sg.Rows[(ts.count-1)-i] := grid.Rows[integer(ts.objects[i])];
For i:=FromRow to ToRow do
Grid.Rows[i] := sg.Rows[i-FromRow];
finally
sg.free;
end;
finally
ts.free;
end;
end;

end.

چگونه جدول پاراداکسی که دارای کلمه رمز میباشد را باز کنیم ؟

for PARADOX 7.0 use this password: "jIGGAe" or "cupcdvum"
for PARADOX 5.0 use this password: same thing
for PARADOX 4.x (DOS) use this password: "nx66ppx"

اجرای برنامه word وباز کردن یک فایل

Var

MSWord : Variant

procedure TTMDtlForm.ExecuteTheMacro;
var
WHandle : HWnd;
begin
try
// If file selected
If OpenDialog1.execute Then
begin
// Set Flag to False
FoundWord:=False;

try
// If word is already running, obtain a link and set flag to true
MsWord := GetActiveOleObject('Word.Basic');
FoundWord := True;
except
try
// Start new instance of word and set flag to True
MsWord := CreateOleObject('Word.Basic');
FoundWord := True;
except
// Display error message
ShowMessage('Could not start word');
end;
end;

// If Link established
if FoundWord then
begin
try
MsWord.AppShow;
MsWord.ScreenUpdating(0);
MSWord.FileOpen(OpenDialog1.FileName);
MsWord.ScreenUpdating(1);
MsWord.ScreenRefresh;

// Maximize and bring Word to front
WHandle := FindWindow('OpusApp',Nil);
if isWindow(WHandle) then
ShowWindow(WHandle,SW_SHOWMAXIMIZED);
except
MessageDlg('TF - Error in Word Basic',mtError,[mbOK],0);
MsWord.ScreenUpdating(1);
end;
end;
end;
finally
end;
end;

بدست آوردن درایوهای شبکه در دلفی

procedure GetNetworkedDrives( strings: TStrings);

procedure EnumNetworkDrives( pnr : PNetResource);
var
hEnum: THandle;
i, enumRes, count, BufferSize: DWORD;
buffer: pointer;
begin
BufferSize := $4000; //ie: use a 16kb buffer
buffer := nil; //just in case memory allocation fails
if WNetOpenEnum(RESOURCE_GLOBALNET,
RESOURCETYPE_DISK, 0, pnr, hEnum) = ERROR_SUCCESS then
try
GetMem(buffer, BufferSize);
while true do
begin
count := dword(-1); //ie: get as many items possible
enumRes := WNetEnumResource(hEnum,
count, buffer, BufferSize);

//break if either no more items found or an error occurs...
if (enumRes <> ERROR_SUCCESS) then break;

pnr := buffer; //reuse the pnr pointer
for i := 1 to count do
begin
if (pnr.dwDisplayType =
RESOURCEDISPLAYTYPE_DOMAIN or
RESOURCEDISPLAYTYPE_SERVER) and
(pnr.dwType = RESOURCETYPE_DISK) then
strings.Add(pnr.lpRemoteName);
//recursive function call...
if (pnr.dwUsage and RESOURCEUSAGE_CONTAINER) > 0 then
EnumNetworkDrives(pnr);
inc(longint(pnr),sizeof(TNetResource));
end;
end;
finally
FreeMem(buffer);
WNetCloseEnum(hEnum);
end;
end;

begin
if strings = nil then exit;
//simply call the nested recursive function
//passing nil to starting at the network root ...
EnumNetworkDrives(nil);
end;

استفاده از اسکنر در دلفی

procedure TForm1.Button1Click(Sender: TObject);
var filename:string;
begin
if imgScan1.ScannerAvailable then
begin
imgScan1.OpenScanner;
imgScan1.Zoom := 100;
savepicturedialog1.Execute ;
filename:=savepicturedialog1.FileName;
imgScan1.Image := filename;

imgScan1.StartScan;
Application.ProcessMessages;
image1.Picture.LoadFromFile(filename+'.'+'bmp');

end;
end;

تغییر Resolution مونیتور به زبان دلفی

procedure SetResolution(ResX, ResY: DWord);
var
lDeviceMode : TDeviceMode;
begin
EnumDisplaySettings(nil, 0, lDeviceMode);
lDeviceMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT;
lDeviceMode.dmPelsWidth :=ResX;
lDeviceMode.dmPelsHeight:=ResY;
ChangeDisplaySettings(lDeviceMode, 0);
end;

اینم یک ترفند جدید ارسال عکس رنگی با اس ام اس

ارسال عکس رنگی با اس ام اس
با سلام
با توجه به اینکه خیلی از دوستان تمایل دارند بوسیله sms و با این سیم کارت ها و سرویس های معمولی عکس رنگی بفرستند در اینجا میخوام ترفندی رو بگم که همه عزیزان بتونند به این خواسته خودشون برسن.
فقط دو نکته:
1- البته من این کار رو روی گوشیهای نوکیا سری 60 امتحان کردم و کاملا جواب داد...
2- اینو هم بگم که ارسال این sms برابر با 18 sms معمولیه..

حالا روش کار :

1) ابتدا به قسمت Contact رفته و یک Contact جدید با هر اسمی که دوست دارین (ترجیحا کوتاه باشه) بدون شماره بسازین (از صفحه ویرایش اسم و فامیل و شماره و... بیرون نرین)

۲) بعد از انتخاب اسم Options رو بزنید و از اونجا Add Thumbnail رو انتخاب کنین (دقت کنید که عکسی رو می خواین بفرستین به عنوان Thumbnail انتخاب کنین).

۳) وقتی Contact مورد نظر رو ساختین بیاین رو صفحه اصلی Contact (جایی که اسم هارو مینویسه) و اسمی رو که ساختین پیدا کنین

۴) روی اسم یا همون Contact که ساختین Options رو بزنین و از اونجا Send==> Via Text Message رو انتخاب کنین

حالا همون صفحه ای که همیشه اس ام اس هاتون رو اونجا مینویسین باز میشه و اگر به بالای همون صفحه نگاه کنید عکسی رو که به عنوان Thumbnail انتخاب کردین می بینین.
حالا می تونید اس ام اس رو به هر کس که می خواین بفرستین و اون هم عکس رو به همون صورت که شما می بینید دریافت کنه.

فکر کنم دوستان این کار رو بپسندن و با توجه به اینکه تعداد sms بالایی رو میگیره ولی گاهی می ارزه.

چگونه بد سکتور را درست کنیم....

همچنان که از عمر هارد می گذرد احتمالاشکال پیدا کردن آن بیشتر می شود پس همیشه به فکر تهیه یک نسخه پشتیبان ( Back up ) از اطلاعات مهم خود باشید تا در صورت بروز مشکل آن را بازیابی کنید. و با خیال راحت به فکر تعمیر هارد دیسک خود باشید. سیستم عامل ویندوز نرم افزارهای کمکی برای هارددیسک همراه دارد که هارد کامپیوتر شما را اسکن می کند و در صورت بروز اشکال نسبت به رفع آن اقدام می کند.

مراحل کار در ویندوز
روی My Computer دابل کلیک کنید
درایوی را که می خواهید عیب یابی کنید راانتخاب کنید
Properties را از منوی File انتخاب کنید. اکنون باید یکسری اطلاعات و مشخصات از این درایو در منوی Properties ببینید.
تب Tools را انتخاب کنید.
دکمه Check Now را از قسمت Error Checking کلیک کنید.
بسته به ورژن ویندوز خود گزینه "thorough" یا " Scan for and Attempt of Recovery Bad Sector" را انتخاب کنید.
روی ری استارت کلیک کنید.
اکنون سلامت هارد دیسک شما چک می شوددر پایان باید خدمت شما عزیزان عرض کنم که نرم افزارهای مفید زیادی برای عیب یابی وتعمیر هارد دیسک ها وجود دارد که بهتر و قوی تر از نرم افزار استاندارد ویندوز عمل می کنند ولی قبل از اینکه مشکلی برای هارد دیسک شما پیش بیاید باید آن را نصب کرده باشید.

حرکت دادن موس با صفحه کلید...

بعضی مواقع پیش میاد که موس شما خراب شده و نمیتوانید نشانه گر موس خود را به حرکت در بیارید.
برا این کار شما باید به این آدرس بروید Control Panel=Accessibility Options در بالای صفحه باز شده چندین زبانه وجود دارد که شما باید به زبانه Mouse بروید.
در صفحه یک قسمت به نام MouseKeys وجود دارد که شما باید در این قسمت باید UseMouseKeys را فعال کنید(با زدن تیک آن) بعد از آن Apply را بزنید.
حالا کار شما تمام شده از این به بعد شما میتوانید با کلید های ۸-۴-۲-۶ موس خود را به حرکت در بیارید.
بالا=۸ ------پائین=۲------چپ=۴------راست=۶