Programlama yapalım ve Öğrenelim.

Explorera Button ekleme

///// commandx

procedure CreateExplorerButton(Path: string);

const

Tagit = '{10954C80-4F0F-11d3-B17C-00C0DFE39736}';

var

Reg: TRegistry;

Path: string;

Path1: string;

Merge: string;

begin

Path := 'c:your_program_path';

Reg := TRegistry.Create;

try

with Reg do

begin

RootKey := HKEY_LOCAL_MACHINE;

Path1 := 'SoftwareMicrosoftInternet ExplorerExtensions';

Merge := Path1 + Tagit;

OpenKey(Merge, True);

WriteString('ButtonText', 'ButtonText');

WriteString('MenuText', 'Tools Menu Item');

WriteString('MenuStatusBar', 'Run Script');

WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');

WriteString('Default Visible', 'Yes');

WriteString('Exec', Path + 'ProgramName.exe');

WriteString('HotIcon', ',4');

WriteString('Icon', ',4');

end

finally

Reg.CloseKey;

Reg.Free;

end;

Delphi - .....................................

Cryptographic API interface.

NT sistemlerle gelen crypt api (crypt32.dll) yi programınız içersinden kullanarak

CALG_MD2 = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_MD2);

CALG_MD4 = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_MD4);

CALG_MD5 = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_MD5);

CALG_SHA = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_SHA);

CALG_SHA1 = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_SHA1);

CALG_MAC = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_MAC);

CALG_RSA_SIGN = (ALG_CLASS_SIGNATURE or ALG_TYPE_RSA or ALG_SID_RSA_ANY);

CALG_DSS_SIGN = (ALG_CLASS_SIGNATURE or ALG_TYPE_DSS or ALG_SID_DSS_ANY);

CALG_RSA_KEYX = (ALG_CLASS_KEY_EXCHANGE or ALG_TYPE_RSA or ALG_SID_RSA_ANY);

CALG_DES = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_DES);

CALG_3DES_112 = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_3DES_112);

CALG_3DES = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_3DES);

CALG_RC2 = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_RC2);

CALG_RC4 = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_STREAM or ALG_SID_RC4);

CALG_SEAL = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_STREAM or ALG_SID_SEAL);

CALG_DH_SF = (ALG_CLASS_KEY_EXCHANGE or ALG_TYPE_DH or ALG_SID_DH_SANDF);

CALG_DH_EPHEM = (ALG_CLASS_KEY_EXCHANGE or ALG_TYPE_DH or ALG_SID_DH_EPHEM);

CALG_AGREEDKEY_ANY = (ALG_CLASS_KEY_EXCHANGE or ALG_TYPE_DH or ALG_SID_AGREED_KEY_ANY);

CALG_KEA_KEYX = (ALG_CLASS_KEY_EXCHANGE or ALG_TYPE_DH or ALG_SID_KEA);

CALG_HUGHES_MD5 = (ALG_CLASS_KEY_EXCHANGE or ALG_TYPE_ANY or ALG_SID_MD5);

CALG_SKIPJACK = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_SKIPJACK);

CALG_TEK = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_TEK);

CALG_CYLINK_MEK = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_CYLINK_MEK);

CALG_SSL3_SHAMD5 = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_SSL3SHAMD5);

CALG_SSL3_MASTER = (ALG_CLASS_MSG_ENCRYPT or ALG_TYPE_SECURECHANNEL or ALG_SID_SSL3_MASTER);

CALG_SCHANNEL_MASTER_HASH = (ALG_CLASS_MSG_ENCRYPT or ALG_TYPE_SECURECHANNEL or ALG_SID_SCHANNEL_MASTER_HASH);

CALG_SCHANNEL_MAC_KEY = (ALG_CLASS_MSG_ENCRYPT or ALG_TYPE_SECURECHANNEL or ALG_SID_SCHANNEL_MAC_KEY);

CALG_SCHANNEL_ENC_KEY = (ALG_CLASS_MSG_ENCRYPT or ALG_TYPE_SECURECHANNEL or ALG_SID_SCHANNEL_ENC_KEY);

CALG_PCT1_MASTER = (ALG_CLASS_MSG_ENCRYPT or ALG_TYPE_SECURECHANNEL or ALG_SID_PCT1_MASTER);

CALG_SSL2_MASTER = (ALG_CLASS_MSG_ENCRYPT or ALG_TYPE_SECURECHANNEL or ALG_SID_SSL2_MASTER);

CALG_TLS1_MASTER = (ALG_CLASS_MSG_ENCRYPT or ALG_TYPE_SECURECHANNEL or ALG_SID_TLS1_MASTER);

CALG_RC5 = (ALG_CLASS_DATA_ENCRYPT or ALG_TYPE_BLOCK or ALG_SID_RC5);

CALG_HMAC = (ALG_CLASS_HASH or ALG_TYPE_ANY or ALG_SID_HMAC);

hash ve algoritmalar ile şifreleme yapma şansına sahip olursunuz uygulamanıza

dcp tarzı crypt kütüphaneleride gömmenize gerek kalmaz.

bu algoritmalar, konsol programcılığı ile uğraşanlar için güzel bir

yoldur.

Function DoCrypt(Data, Password: string; DoCrypt: Boolean):String;

var

hProv: HCRYPTPROV;

hash: HCRYPTHASH;

key: HCRYPTKEY;

len: dWord;

begin

CryptAcquireContext(@hProv, nil, nil, PROV_RSA_FULL, CRYPT_VERIFYCONTEXT);

CryptCreateHash(hProv, CALG_SHA, 0, 0, @hash);

CryptHashData(hash, @Password[1], Length(Password), 0);

CryptDeriveKey(hProv, CALG_RC4, hash, 0, @key);

CryptDestroyHash(hash);

Try

Len:=Length(Data);

if DoCrypt then CryptEncrypt(key, 0, False, 0, @Data[1], @len, len)

else

CryptDecrypt(key, 0, False, 0, @Data[1], @len);

finally

Result:=Data;

end;

CryptReleaseContext(hProv, 0);

end;

şifreleme yapmak için örnek fonksiyon.

"CALG_SHA" ve "CALG_RC4" baika hash / algoritma ile değiştirme şansınız var.

ShowMessage( DoCrypt('ben şifrelenecem ne güzel ','ŞİFRE123',TRUE) );

gibi kullanılır sondaki true verinin crypt yapılacağını false ise decrypt

yapılacağını belirtir. tabiki bu fonksiyonu kullanmak için uses e ExWcrypt2

unitini eklemeyi unutmamak gerek.

ExWcrypt2.pas

-------------

{******************************************************************}

{ }

{ Borland Delphi Runtime Library }

{ Cryptographic API interface unit }

{ }

{ Portions created by Microsoft are }

{ }

{ The original file is: wincrypt.h, 1992 - 1997 }

{ The original Pascal code is: wcrypt2.pas, released 01 Jan 1998 }

{ The initial developer of the Pascal code is }

{ Massimo Maria Ghisalberti (nissl@dada.it) }

{ }

{ Portions created by Massimo Maria Ghisalberti are }

{ }

{ Contributor(s): }

{ Peter Tang (peter.tang@citicorp.com) }

{ Phil Shrimpton (phil@shrimpton.co.uk) }

{ }

{ Obtained through: }

{ }

{ Joint Endeavour of Delphi Innovators (Project JEDI) }

{ }

{ You may retrieve the latest version of this file at the Project }

{ JEDI home page, located at http://delphi-jedi.org }

{ }

{ The contents of this file are used with permission, subject to }

{ the Mozilla Public License Version 1.1 (the "License"); you may }

{ not use this file except in compliance with the License. You may }

{ obtain a copy of the License at }

{ http://www.mozilla.org/MPL/MPL-1.1.html }

{ }

{ Software distributed under the License is distributed on an }

{ "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or }

{ implied. See the License for the specific language governing }

{ rights and limitations under the License. }

{ }

{******************************************************************}

unit wcrypt2;

{.DEFINE NT5}

{$ALIGN ON}

{$IFNDEF VER90}

{$WEAKPACKAGEUNIT}

{$ENDIF}

interface

uses

Windows

{$IFDEF VER90}

,Ole2

{$ENDIF};

const

ADVAPI32 = 'advapi32.dll';

CRYPT32 = 'crypt32.dll';

SOFTPUB = 'softpub.dll';

{$IFDEF NT5}

ADVAPI32NT5 = 'advapi32.dll';

{$ENDIF}

{Support Type}

type

PVOID = Pointer;

LONG = DWORD;

{$IFDEF UNICODE}

LPAWSTR = PWideChar;

{$ELSE}

LPAWSTR = PAnsiChar;

{$ENDIF}

//-----------------------------------------------------------------------------

// Type support for a pointer to an array of pointer (type **name)

PLPSTR = Pointer; // type for a pointer to Array of pointer a type

PPCERT_INFO = Pointer; // type for a pointer to Array of pointer a type

PPVOID = Pointer; // type for a pointer to Array of pointer a type

PPCCERT_CONTEXT = Pointer; // type for a pointer to Array of pointer a type

PPCCTL_CONTEXT = Pointer; // type for a pointer to Array of pointer a type

PPCCRL_CONTEXT = Pointer; // type for a pointer to Array of pointer a type

//-----------------------------------------------------------------------------

//+---------------------------------------------------------------------------

// Microsoft Windows

// Copyright (C) Microsoft Corporation, 1992 - 1997.

// File: wincrypt.h

// Contents: Cryptographic API Prototypes and Definitions

//----------------------------------------------------------------------------

// Algorithm IDs and Flags

// ALG_ID crackers

function GET_ALG_CLASS(x:integer) :integer;

function GET_ALG_TYPE(x:integer) :integer;

function GET_ALG_SID(x:integer) :integer;

Const

// Algorithm classes

ALG_CLASS_ANY = 0;

ALG_CLASS_SIGNATURE = (1 shl 13);

ALG_CLASS_MSG_ENCRYPT = (2 shl 13);

ALG_CLASS_DATA_ENCRYPT = (3 shl 13);

ALG_CLASS_HASH = (4 shl 13);

ALG_CLASS_KEY_EXCHANGE = (5 shl 13);

// Algorithm types

ALG_TYPE_ANY = 0;

ALG_TYPE_DSS = (1 shl 9);

ALG_TYPE_RSA = (2 shl 9);

ALG_TYPE_BLOCK = (3 shl 9);

ALG_TYPE_STREAM = (4 shl 9);

ALG_TYPE_DH = (5 shl 9);

ALG_TYPE_SECURECHANNEL = (6 shl 9);

// Generic sub-ids

ALG_SID_ANY = 0;

// Some RSA sub-ids

ALG_SID_RSA_ANY = 0;

ALG_SID_RSA_PKCS = 1;

ALG_SID_RSA_MSATWORK = 2;

ALG_SID_RSA_ENTRUST = 3;

ALG_SID_RSA_PGP = 4;

// Some DSS sub-ids

ALG_SID_DSS_ANY = 0;

ALG_SID_DSS_PKCS = 1;

ALG_SID_DSS_DMS = 2;

// Block cipher sub ids

// DES sub_ids

ALG_SID_DES = 1;

ALG_SID_3DES = 3;

ALG_SID_DESX = 4;

ALG_SID_IDEA = 5;

ALG_SID_CAST = 6;

ALG_SID_SAFERSK64 = 7;

ALD_SID_SAFERSK128 = 8;

ALG_SID_SAFERSK128 = 8;

ALG_SID_3DES_112 = 9;

ALG_SID_CYLINK_MEK = 12;

ALG_SID_RC5 = 13;

// Fortezza sub-ids

ALG_SID_SKIPJACK = 10;

ALG_SID_TEK = 11;

// KP_MODE

CRYPT_MODE_CBCI = 6; {ANSI CBC Interleaved}

CRYPT_MODE_CFBP = 7; {ANSI CFB Pipelined}

CRYPT_MODE_OFBP = 8; {ANSI OFB Pipelined}

CRYPT_MODE_CBCOFM = 9; {ANSI CBC + OF Masking}

CRYPT_MODE_CBCOFMI = 10; {ANSI CBC + OFM Interleaved}

// RC2 sub-ids

ALG_SID_RC2 = 2;

// Stream cipher sub-ids

ALG_SID_RC4 = 1;

ALG_SID_SEAL = 2;

// Diffie-Hellman sub-ids

ALG_SID_DH_SANDF = 1;

ALG_SID_DH_EPHEM = 2;

ALG_SID_AGREED_KEY_ANY = 3;

ALG_SID_KEA = 4;

// Hash sub ids

ALG_SID_MD2 = 1;

ALG_SID_MD4 = 2;

ALG_SID_MD5 = 3;

ALG_SID_SHA = 4;

ALG_SID_SHA1 = 4;

ALG_SID_MAC = 5;

ALG_SID_RIPEMD = 6;

ALG_SID_RIPEMD160 = 7;

ALG_SID_SSL3SHAMD5 = 8;

ALG_SID_HMAC = 9;

// secure channel sub ids

ALG_SID_SSL3_MASTER = 1;

ALG_SID_SCHANNEL_MASTER_HASH = 2;

ALG_SID_SCHANNEL_MAC_KEY = 3;

ALG_SID_PCT1_MASTER = 4;

ALG_SID_SSL2_MASTER = 5;

ALG_SID_TLS1_MASTER = 6;

ALG_SID_SCHANNEL_ENC_KEY = 7;

// Our silly example sub-id

ALG_SID_EXAMPLE = 80;

{$IFNDEF ALGIDDEF}

{$DEFINE ALGIDDEF}

Type ALG_ID = ULONG;

{$ENDIF}

// algorithm identifier definitions