Co Vás zde nejvíce zajímalo v roce 2008?
Jak vybrat kvalitní TV / display - toto téma zajímalo celou 1/5 vsech návštěvníků
LCD TV Calibration - How to Calibrate Your Television
LCD TV MONITOR REVIEWS
Jak vybrat novou televizi ?
Jak vybrat KVALITNÍ OBRAZOVKU která má opravdu kvalitní obraz
YouTube
Download Higher Resolution Videos from YouTube
youtube download and specific points inside a video
youtube stahuj video
ekonomie
Instantní kurz ekonomie
Zlatý standard - Gold Standard
Jaká je cena jednotlivých služeb státu
Peníze
hry
Einsteinova hádanka - Komu patří ryba?
ekologie ...
Obnovitelné zdroje energie neexistují!
Bjørn Lomborg
Posouzení energetických potřeb České republiky
EU
O čem je Lisabonská smlouva
Svrchovanost - Sovereignty
Lisabonská smlouva je mrtvá
Ekonomické aspekty Lisabonské smlouvy
Liberitas.eu
Islám
Fitna with subtitles
Máme odvahu postavit se zlu?
Evropo, tvé jméno je Zbabělost
Objevte Islám - Discover Islam
Komunismus Socialismus Totalita
ÚNOR 1948 - Komunistický puč
Srpen 1968 Komunistická invaze do Československa
Hřbitovy jsou plny těch, kdo spoléhali na diplomacii...
Chinese Tiananmen massacre - Tchien-an-men
Komunistický slib
komunismus socialismus teror a bezpraví
.
Mýty
Hysteria Myth - Mýty Hysterie
Mýty
a řada dalších ...
Výběr politických, kulturních a ekonomických očekávaných událostí ve světě v roce 2009
Přehled očekávaných událostí ve sportu v roce 2009
.
quotations, links and thinking about something - How to? bloček odkazů citací a úvah ...
31. prosince 2008
30. prosince 2008
Kreditní karta "zadarmo"!
Kreditní karta "zadarmo"!
Proč platíte bance poplatky za používání jejich služeb, které si i bez Vašich poplatků nechá velmi dobře zaplatit?
Při každé platbě kartou platí obchodník provizi 2-5% z ceny Vašeho nákupu.
To znamená že tyto poplatky musí promítnout do ceny zboží!
Protože jsou ale lidé pohodlní hledat kvalitní služby banky jim za to učtují daší poplatky:)
Všimli jste si, že např v Německém diskontním obchodě nikde nemůžete zaplatit kartou leda karkou kterou vydal daný řetězec. Potom se možná nebudete divit že v německém diskontu často nakoupíte průměrný nákup za stejnou nebo nižší cenu než v ČR.
.
Pokud chcete kreditku ZADARMO doporučuji tuto kartu!
Ale pozor, musíte dodržovat pravidla nebo Vás přijde tato karta velmi draze. Ale to je podobné i u jiných bank.
kam dál?
Proč platíte bance poplatky za používání jejich služeb, které si i bez Vašich poplatků nechá velmi dobře zaplatit?
Při každé platbě kartou platí obchodník provizi 2-5% z ceny Vašeho nákupu.
To znamená že tyto poplatky musí promítnout do ceny zboží!
Protože jsou ale lidé pohodlní hledat kvalitní služby banky jim za to učtují daší poplatky:)
Všimli jste si, že např v Německém diskontním obchodě nikde nemůžete zaplatit kartou leda karkou kterou vydal daný řetězec. Potom se možná nebudete divit že v německém diskontu často nakoupíte průměrný nákup za stejnou nebo nižší cenu než v ČR.
.
Pokud chcete kreditku ZADARMO doporučuji tuto kartu!
Ale pozor, musíte dodržovat pravidla nebo Vás přijde tato karta velmi draze. Ale to je podobné i u jiných bank.
kam dál?
účet zadarmo - bez bankovních poplatků
Peníze
Jak poslat levně peníze do zahraničí
Jak na rodinný rozpočet
.24. prosince 2008
Vánoční sms přání na 160 znaků
Narodil se Kristus Pan, aby nikdo nebyl sam,
Cely den mnoho usmevu ktere si nikdo nekoupi, rodinu pratele co vzdy povzbudi,
Ke stesti krucek k bohatstvi skok...
prvni verze
Narodil se Kristus Pan, aby nikdo nebyl sam,
Cele svatky mnoho usmevu ktere si nikdo nekoupi, rodinu pratele co vzdy podrzi,
Ke stesti krucek k bohatstvi skok...
přeje autor blogu
Vánoce - tradice, zvyky, koledy, Staročeské vánoce ...
free sms brána
Vodafone
O2 - Eurotel
T-Mobile
.
.
Saddleback.com
Hillsong.co.uk
CB.cz
Exit316.cz
Příště uvidíte
Co oči nevidí
Ne, 28.12.2008 8:40 ČT2
Viděli jste
Ukradené Vánoce
Ne, 21.12.2008 8:30 ČT2
sleduj online vysilání zde
.
Cely den mnoho usmevu ktere si nikdo nekoupi, rodinu pratele co vzdy povzbudi,
Ke stesti krucek k bohatstvi skok...
prvni verze
Narodil se Kristus Pan, aby nikdo nebyl sam,
Cele svatky mnoho usmevu ktere si nikdo nekoupi, rodinu pratele co vzdy podrzi,
Ke stesti krucek k bohatstvi skok...
přeje autor blogu
Vánoce - tradice, zvyky, koledy, Staročeské vánoce ...
free sms brána
Vodafone
O2 - Eurotel
T-Mobile
.
.
Saddleback.com
Hillsong.co.uk
CB.cz
Exit316.cz
Příště uvidíte
Co oči nevidí
Ne, 28.12.2008 8:40 ČT2
Viděli jste
Ukradené Vánoce
Ne, 21.12.2008 8:30 ČT2
sleduj online vysilání zde
.
20. prosince 2008
17. prosince 2008
S Romy si nevědí rady nikde
Proč si nikde v EU nevědí rady s Romy?
Domnívám se, že důvod je naprosto jednoduchý. V ekonomice se tomu říká pokřivené tržní prostředí. Tak jako subvence učinili afričaný závyslé tak nerovný přístup a sociální dávky vytvořili závyslou skupinu obyvatelstva.
Černé svědomí Evropy: s Romy si nevědí rady nikde na kontinentu
Demagogické plány sociálních inženýrů likvidují celé generace některých skupin obyvatelstva a to především Cikánů či Rómů nebo jak se správně nazývají.
Nemalá část z nich ma asi smůlu že vypadají jinak a že budí díky nedobrým zkušenostem často obecnou více či méně oprávněnou nedůvěru.
Jediné co může Rómy postavit alespoň částečně na nohy je rovný přístup ve všech oblastech. Ať se jedna o povinnosti nebo práva.
Jak je ale vyhecovat a naučit konzumu to opravdu nevím.
Domnívám se, že důvod je naprosto jednoduchý. V ekonomice se tomu říká pokřivené tržní prostředí. Tak jako subvence učinili afričaný závyslé tak nerovný přístup a sociální dávky vytvořili závyslou skupinu obyvatelstva.
Černé svědomí Evropy: s Romy si nevědí rady nikde na kontinentu
Demagogické plány sociálních inženýrů likvidují celé generace některých skupin obyvatelstva a to především Cikánů či Rómů nebo jak se správně nazývají.
Nemalá část z nich ma asi smůlu že vypadají jinak a že budí díky nedobrým zkušenostem často obecnou více či méně oprávněnou nedůvěru.
Jediné co může Rómy postavit alespoň částečně na nohy je rovný přístup ve všech oblastech. Ať se jedna o povinnosti nebo práva.
Jak je ale vyhecovat a naučit konzumu to opravdu nevím.
15. prosince 2008
Corruption. We all pay.
Corruption. We all pay.
Eu Corruption
Transparency
eStat
EU Corruption
More videos about EU corruption
mafia, accountability, embracery, graft, bribe money, hush money
korupce, uplatky podplácení, uplácení, mafie,
Eu Corruption
Transparency
eStat
EU Corruption
More videos about EU corruption
mafia, accountability, embracery, graft, bribe money, hush money
korupce, uplatky podplácení, uplácení, mafie,
13. prosince 2008
12. prosince 2008
No means No! Stop Totality
Nigel Farage - United Kingdom Independence Party
and hes speach in EU Parliament
EU Parliament - RTL
Svrchovanost Sovereignty
United Kingdom Independence Party
.
From Crisis to victory - Hanne Dahl
.
and hes speach in EU Parliament
EU Parliament - RTL
Svrchovanost Sovereignty
United Kingdom Independence Party
.
From Crisis to victory - Hanne Dahl
.
10. prosince 2008
Logické hry - Logic games
Popular Games
Tangramz
Play free multiplayer puzzle game - Tangramz!
.
Untouchable 11 online puzzle a try now!
.
Holidays Merry-Go-Round
Cubic Snake Views
Maths Is Fun.com
Online Games, Optical illusions, Fun Quizzes, Magic and More
cut-the-knot
Concept is puzzles - Logic puzzles Sudoku, Karuro, Hitori, Hashi ...
Think Fun
Tanzzle
The American Crossword Puzzle Tournament
World Puzzle Federation
The 4th World Sudoku Championship - Slovakia
SLOVENSKÝ ZVÄZ HÁDANKÁROV A KRÍŽOVKÁROV
International Puzzle Party
hry - hadanka - enigma - puzzle - puzzler - game - games - hra
Origami
.
Tangramz
Play free multiplayer puzzle game - Tangramz!
.
Untouchable 11 online puzzle a try now!
.
Holidays Merry-Go-Round
Cubic Snake Views
Maths Is Fun.com
Online Games, Optical illusions, Fun Quizzes, Magic and More
cut-the-knot
Concept is puzzles - Logic puzzles Sudoku, Karuro, Hitori, Hashi ...
Think Fun
Tanzzle
The American Crossword Puzzle Tournament
World Puzzle Federation
The 4th World Sudoku Championship - Slovakia
SLOVENSKÝ ZVÄZ HÁDANKÁROV A KRÍŽOVKÁROV
International Puzzle Party
hry - hadanka - enigma - puzzle - puzzler - game - games - hra
Origami
.
8. prosince 2008
7. prosince 2008
unlock workbook password and sheet passwords
Unlock a workbook password and sheet passwords
Odemknutí tabulky v Excelu xls
OS:
Windows
Product:
MS Excel (2002, ..)
Description:
Kód dokáže najít hrubou silou heslo sešitu i listu. Pro použití nakopírovat kód do modulu. Pro odemčení sešitu spustit makro
UnlockWorkbookPro odemčení listu pak makro
UnlockSheet
' modUnlockRoutines
'
' Module provides Excel workbook and sheet unlock routines. The algorithm
' relies on a backdoor password that can be 1 to 9 characters long where each
' character is either an "A" or "B" except the last which can be any character
' from ASCII code 32 to 255.
'
' Implemented as a regular module for use with any Excel VBA project.
'
' Dependencies:
'
' None
'
' © 2007 Kevin M. Jones
Option Explicit
Private Sub DisplayStatus( _
ByVal PasswordsTried As Long _
)
' Display the status in the Excel status bar.
'
' Syntax
'
' DisplayStatus(PasswordsTried)
'
' PasswordsTried - The number of passwords tried thus far.
Static LastStatus As String
LastStatus = Format(PasswordsTried / 57120, "0%") & " of possible passwords tried."
If Application.StatusBar <> LastStatus Then
Application.StatusBar = LastStatus
DoEvents
End If
End Sub
Private Function TrySheetPasswordSize( _
ByVal Size As Long, _
ByRef PasswordsTried As Long, _
ByRef Password As String, _
Optional ByVal Base As String _
) As Boolean
' Try unlocking the sheet with all passwords of the specified size.
'
' TrySheetPasswordSize(Size, PasswordsTried, Password, [Base])
'
' Size - The size of the password to try.
'
' PasswordsTried - The cummulative number of passwords tried thus far.
'
' Password - The current password.
'
' Base - The base password from the calling routine.
Dim Index As Long
On Error Resume Next
If IsMissing(Base) Then Base = vbNullString
If Len(Base) < Size - 1 Then
For Index = 65 To 66
If TrySheetPasswordSize(Size, PasswordsTried, Password, Base & Chr(Index)) Then
TrySheetPasswordSize = True
Exit Function
End If
Next Index
ElseIf Len(Base) < Size Then
For Index = 32 To 255
ActiveSheet.Unprotect Base & Chr(Index)
If Not ActiveSheet.ProtectContents Then
TrySheetPasswordSize = True
Password = Base & Chr(Index)
Exit Function
End If
PasswordsTried = PasswordsTried + 1
Next Index
End If
On Error GoTo 0
DisplayStatus PasswordsTried
End Function
Private Function TryWorkbookPasswordSize( _
ByVal Size As Long, _
ByRef PasswordsTried As Long, _
ByRef Password As String, _
Optional ByVal Base As String _
) As Boolean
' Try unlocking the workbook with all passwords of the specified size.
'
' TryWorkbookPasswordSize(Size, PasswordsTried, Password, [Base])
'
' Size - The size of the password to try.
'
' PasswordsTried - The cummulative number of passwords tried thus far.
'
' Password - The current password.
'
' Base - The base password from the calling routine.
Dim Index As Long
On Error Resume Next
If IsMissing(Base) Then Base = vbNullString
If Len(Base) < Size - 1 Then
For Index = 65 To 66
If TryWorkbookPasswordSize(Size, PasswordsTried, Password, Base & Chr(Index)) Then
TryWorkbookPasswordSize = True
Exit Function
End If
Next Index
ElseIf Len(Base) < Size Then
For Index = 32 To 255
ActiveWorkbook.Unprotect Base & Chr(Index)
If Not ActiveWorkbook.ProtectStructure And Not ActiveWorkbook.ProtectWindows Then
TryWorkbookPasswordSize = True
Password = Base & Chr(Index)
Exit Function
End If
PasswordsTried = PasswordsTried + 1
Next Index
End If
On Error GoTo 0
DisplayStatus PasswordsTried
End Function
Public Sub UnlockSheet()
' Unlock the active sheet using a backdoor Excel provides where an alternate
' password is created that is more limited.
Dim PasswordSize As Variant
Dim PasswordsTried As Long
Dim Password As String
PasswordsTried = 0
If Not ActiveSheet.ProtectContents Then
MsgBox "The sheet is already unprotected."
Exit Sub
End If
On Error Resume Next
ActiveSheet.Protect ""
ActiveSheet.Unprotect ""
On Error GoTo 0
If ActiveSheet.ProtectContents Then
For Each PasswordSize In Array(5, 4, 6, 7, 8, 3, 2, 1)
If TrySheetPasswordSize(PasswordSize, PasswordsTried, Password) Then Exit For
Next PasswordSize
End If
If Not ActiveSheet.ProtectContents Then
MsgBox "The sheet " & ActiveSheet.Name & " has been unprotected with password '" & Password & "'."
End If
Application.StatusBar = False
End Sub
Public Sub UnlockWorkbook()
' Unlock the active workbook using a backdoor Excel provides where an alternate
' password is created that is more limited.
Dim PasswordSize As Variant
Dim PasswordsTried As Long
Dim Password As String
PasswordsTried = 0
If Not ActiveWorkbook.ProtectStructure And Not ActiveWorkbook.ProtectWindows Then
MsgBox "The workbook is already unprotected."
Exit Sub
End If
On Error Resume Next
ActiveWorkbook.Unprotect vbNullString
On Error GoTo 0
If ActiveWorkbook.ProtectStructure Or ActiveWorkbook.ProtectWindows Then
For Each PasswordSize In Array(5, 4, 6, 7, 8, 3, 2, 1)
If TryWorkbookPasswordSize(PasswordSize, PasswordsTried, Password) Then Exit For
Next PasswordSize
End If
If Not ActiveWorkbook.ProtectStructure And Not ActiveWorkbook.ProtectWindows Then
MsgBox "The workbook " & ActiveWorkbook.Name & " has been unprotected with password '" & Password & "'."
End If
Application.StatusBar = False
End Sub
Odemknutí tabulky v Excelu xls
OS:
Windows
Product:
MS Excel (2002, ..)
Description:
Kód dokáže najít hrubou silou heslo sešitu i listu. Pro použití nakopírovat kód do modulu. Pro odemčení sešitu spustit makro
UnlockWorkbookPro odemčení listu pak makro
UnlockSheet
' modUnlockRoutines
'
' Module provides Excel workbook and sheet unlock routines. The algorithm
' relies on a backdoor password that can be 1 to 9 characters long where each
' character is either an "A" or "B" except the last which can be any character
' from ASCII code 32 to 255.
'
' Implemented as a regular module for use with any Excel VBA project.
'
' Dependencies:
'
' None
'
' © 2007 Kevin M. Jones
Option Explicit
Private Sub DisplayStatus( _
ByVal PasswordsTried As Long _
)
' Display the status in the Excel status bar.
'
' Syntax
'
' DisplayStatus(PasswordsTried)
'
' PasswordsTried - The number of passwords tried thus far.
Static LastStatus As String
LastStatus = Format(PasswordsTried / 57120, "0%") & " of possible passwords tried."
If Application.StatusBar <> LastStatus Then
Application.StatusBar = LastStatus
DoEvents
End If
End Sub
Private Function TrySheetPasswordSize( _
ByVal Size As Long, _
ByRef PasswordsTried As Long, _
ByRef Password As String, _
Optional ByVal Base As String _
) As Boolean
' Try unlocking the sheet with all passwords of the specified size.
'
' TrySheetPasswordSize(Size, PasswordsTried, Password, [Base])
'
' Size - The size of the password to try.
'
' PasswordsTried - The cummulative number of passwords tried thus far.
'
' Password - The current password.
'
' Base - The base password from the calling routine.
Dim Index As Long
On Error Resume Next
If IsMissing(Base) Then Base = vbNullString
If Len(Base) < Size - 1 Then
For Index = 65 To 66
If TrySheetPasswordSize(Size, PasswordsTried, Password, Base & Chr(Index)) Then
TrySheetPasswordSize = True
Exit Function
End If
Next Index
ElseIf Len(Base) < Size Then
For Index = 32 To 255
ActiveSheet.Unprotect Base & Chr(Index)
If Not ActiveSheet.ProtectContents Then
TrySheetPasswordSize = True
Password = Base & Chr(Index)
Exit Function
End If
PasswordsTried = PasswordsTried + 1
Next Index
End If
On Error GoTo 0
DisplayStatus PasswordsTried
End Function
Private Function TryWorkbookPasswordSize( _
ByVal Size As Long, _
ByRef PasswordsTried As Long, _
ByRef Password As String, _
Optional ByVal Base As String _
) As Boolean
' Try unlocking the workbook with all passwords of the specified size.
'
' TryWorkbookPasswordSize(Size, PasswordsTried, Password, [Base])
'
' Size - The size of the password to try.
'
' PasswordsTried - The cummulative number of passwords tried thus far.
'
' Password - The current password.
'
' Base - The base password from the calling routine.
Dim Index As Long
On Error Resume Next
If IsMissing(Base) Then Base = vbNullString
If Len(Base) < Size - 1 Then
For Index = 65 To 66
If TryWorkbookPasswordSize(Size, PasswordsTried, Password, Base & Chr(Index)) Then
TryWorkbookPasswordSize = True
Exit Function
End If
Next Index
ElseIf Len(Base) < Size Then
For Index = 32 To 255
ActiveWorkbook.Unprotect Base & Chr(Index)
If Not ActiveWorkbook.ProtectStructure And Not ActiveWorkbook.ProtectWindows Then
TryWorkbookPasswordSize = True
Password = Base & Chr(Index)
Exit Function
End If
PasswordsTried = PasswordsTried + 1
Next Index
End If
On Error GoTo 0
DisplayStatus PasswordsTried
End Function
Public Sub UnlockSheet()
' Unlock the active sheet using a backdoor Excel provides where an alternate
' password is created that is more limited.
Dim PasswordSize As Variant
Dim PasswordsTried As Long
Dim Password As String
PasswordsTried = 0
If Not ActiveSheet.ProtectContents Then
MsgBox "The sheet is already unprotected."
Exit Sub
End If
On Error Resume Next
ActiveSheet.Protect ""
ActiveSheet.Unprotect ""
On Error GoTo 0
If ActiveSheet.ProtectContents Then
For Each PasswordSize In Array(5, 4, 6, 7, 8, 3, 2, 1)
If TrySheetPasswordSize(PasswordSize, PasswordsTried, Password) Then Exit For
Next PasswordSize
End If
If Not ActiveSheet.ProtectContents Then
MsgBox "The sheet " & ActiveSheet.Name & " has been unprotected with password '" & Password & "'."
End If
Application.StatusBar = False
End Sub
Public Sub UnlockWorkbook()
' Unlock the active workbook using a backdoor Excel provides where an alternate
' password is created that is more limited.
Dim PasswordSize As Variant
Dim PasswordsTried As Long
Dim Password As String
PasswordsTried = 0
If Not ActiveWorkbook.ProtectStructure And Not ActiveWorkbook.ProtectWindows Then
MsgBox "The workbook is already unprotected."
Exit Sub
End If
On Error Resume Next
ActiveWorkbook.Unprotect vbNullString
On Error GoTo 0
If ActiveWorkbook.ProtectStructure Or ActiveWorkbook.ProtectWindows Then
For Each PasswordSize In Array(5, 4, 6, 7, 8, 3, 2, 1)
If TryWorkbookPasswordSize(PasswordSize, PasswordsTried, Password) Then Exit For
Next PasswordSize
End If
If Not ActiveWorkbook.ProtectStructure And Not ActiveWorkbook.ProtectWindows Then
MsgBox "The workbook " & ActiveWorkbook.Name & " has been unprotected with password '" & Password & "'."
End If
Application.StatusBar = False
End Sub
1. prosince 2008
fee comparison betwene visa and master card
fee comparison betwene visa and master card
A merchant account is a contract under which an acquiring bank extends a line of credit to a merchant, who wishes to accept payment card transactions of a particular card association brand... more
... The National Retail Federation today welcomed the introduction of landmark antitrust legislation that would address hidden MasterCard and Visa fees that cost merchants and their customers more than $40 billion a year ...
more
Merchant Account Services and Info
Read this before signing up for a Merchant Account
Price Comparison - Case Study of a Sample Merchant's costs
Total Fees Paid
National Retail Federation
Visa/MasterCard Settlement
Fight Unfair Credit Card Fees
PAYMENTS NEWS
Secure Payment Gateway
Shop.org
master card - visa card
.
A merchant account is a contract under which an acquiring bank extends a line of credit to a merchant, who wishes to accept payment card transactions of a particular card association brand... more
... The National Retail Federation today welcomed the introduction of landmark antitrust legislation that would address hidden MasterCard and Visa fees that cost merchants and their customers more than $40 billion a year ...
more
Merchant Account Services and Info
Read this before signing up for a Merchant Account
Price Comparison - Case Study of a Sample Merchant's costs
Total Fees Paid
National Retail Federation
Visa/MasterCard Settlement
Fight Unfair Credit Card Fees
PAYMENTS NEWS
Secure Payment Gateway
Shop.org
master card - visa card
.
Přihlásit se k odběru:
Příspěvky (Atom)