, .. , , , . .

 

 

!

 

:

:

 

 

 

?

StudentHelp, , MS Word. , , antiplagiat.ru, etxt.ru advego.ru. StudentHelp , Word .


:


:

: . : 17.07.2012. : 2011. : 8. antiplagiat.ru: < 30%

():




ɠ ɠ һ




() ( )


















:
.17870-Ѡ ..



:
蠠 ..
















2009

1:

: , .
: Symantec AntiVirus.
:
1. : > > Symantec Client Security > Symantec AntiVirus.


2. Scan > Custom Scan > CD-(:) .


3. : .




: CD- (:), , 2005 .





















2:


: .

: WORD .

:

    , .


1. :
- .  :
Public Sub 1()
Const ALU = ""
Const AL = ""
Dim Sim As String, Sim1 As Variant
Dim Index As Integer
Dim Result As String
Result = ""
For Each Sim1 In Selection.Characters
Sim = Sim1
Select Case Sim
Case "" To ""
Index = Asc(Sim) - Asc("") + 1
Sim = Mid(ALU, Index, 1)
Case "" To ""
Index = Asc(Sim) - Asc("") + 1
Sim = Mid(AL, Index, 1)
End Select
Result = Result + Sim
Next Sim1
Selection.LanguageID = wdRussian
Selection.TypeText Result
End Sub


.


- . :
Public Sub 2()
Const ALU = ""
Const AL = ""
Dim Sim As String, Sim1 As Variant
Dim Index As Integer
Dim Result As String
Result = ""
For Each Sim1 In Selection.Characters
Sim = Sim1
Select Case Sim
Case "" To ""
Index = Asc(Sim) - Asc("") + 1
Sim = Mid(ALU, Index, 1)
Case "" To ""
Index = Asc(Sim) - Asc("") + 1
Sim = Mid(AL, Index, 1)
End Select
Result = Result + Sim
Next Sim1
Selection.LanguageID = wdRussian
Selection.TypeText Result
End Sub





2. .

.

ߠ ޠ ߠ Š ؠ .

( )



Public Sub ()
'

Const ALU = ""
Const AL = ""
Dim Sim As String, Sym1 As Variant
Dim Index As Integer
Dim Result As Double
Result = 0
For Each Sym1 In Selection.Characters
Sym = Sym1
Select Case Sym
Case "" To ""
Index = Asc(Sym) - Asc("") + 1
Case "" To ""
Index = Asc(Sym) - Asc("") + 1
End Select
Result = Result + Index
Next Sym1
MsgBox " : " & Result
End Sub



4. . / / .

5. . , .໠蠫.
/ / / / .




: MsWord, , . .






















3.


: Microsoft Excel



    Excel
( 1 , ):




    ໠ KeyGen . ( F8)
    . 2 蠠
    .



Key Gen:

Private Sub CommandButton1_Click()
Dim k1(12), k2(12), k3(12) As Boolean
For i = 1 To 12
y = Rnd(12)
If y > 0.5 Then k1(i) = 1
If y < 0.5 Then k1(i) = 0
Worksheets(3).Cells(i + 1, 2).Value = k1(i)
Next i
For i = 1 To 12
x = Rnd(12)
If x > 0.5 Then k2(i) = 1
If x < 0.5 Then k2(i) = 0
Worksheets(3).Cells(i + 1, 3).Value = k2(i)
Next i
For i = 1 To 12
x = Rnd(12)
If x > 0.5 Then k3(i) = 1
If x < 0.5 Then k3(i) = 0
Worksheets(3).Cells(i + 1, 4).Value = k2(i)
Next i
End Sub

:

Private Sub CommandButton2_Click()
Dim a, b, c, d, e As Boolean
Dim k1(12), k2(12), k3(12) As Boolean


For i = 1 To 12
w = Worksheets(3).Cells(i + 1, 2).Value
If w = 1 Then k1(i) = True
If w = 0 Then k1(i) = False
Next i
For i = 1 To 12
w = Worksheets(3).Cells(i + 1, 3).Value
If w = 1 Then k2(i) = True
If w = 0 Then k2(i) = False
Next i
For i = 1 To 12
w = Worksheets(3).Cells(i + 1, 4).Value
If w = 1 Then k3(i) = True
If w = 0 Then k3(i) = False
Next i
j = 1
For i = 1 To Ls
w = Worksheets(3).Cells(i + 1, 1).Value
If w = 1 Then a = True
If w = 0 Then a = False
If j > 12 Then j = 1
c = a Xor k1(j)
b = c Xor k2(j)
e = b Xor k3(j)
If e = True Then w = 1
If e = False Then w = 0
Worksheets(3).Cells(i + 1, 5).Value = w
j = j + 1
Next i
End

:

Private Sub CommandButton3_Click()
Dim a, b, c, d, e As Boolean
Dim k1(12), k2(12), k3(12) As Boolean
For i = 1 To 12
w = Worksheets(3).Cells(i + 1, 2).Value
If w = 1 Then k1(i) = True
If w = 0 Then k1(i) = False
Next i
For i = 1 To 12
w = Worksheets(3).Cells(i + 1, 3).Value
If w = 1 Then k2(i) = True
If w = 0 Then k2(i) = False
Next i
For i = 1 To 12
w = Worksheets(3).Cells(i + 1, 4).Value
If w = 1 Then k3(i) = True
If w = 0 Then k3(i) = False
Next i
j = 1
For i = 1 To Ls
w = Worksheets(3).Cells(i + 1, 5).Value
If w = 1 Then e = True
If w = 0 Then e = False
If j > 12 Then j = 1
..................



90% antiplagiat.ru, etxt.ru advego.ru




* . , .